[Emacs-diffs] trunk r116912: Sync some vhdl changes that seem to have been missed from some previous merge

[Glenn Morris]

------------------------------------------------------------
revno: 116912
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2014-03-30 17:49:05 -0700
message:
  Sync some vhdl changes that seem to have been missed from some previous merge
  
  * lisp/progmodes/vhdl-mode.el (vhdl-speedbar-select-mra)
  (vhdl-compose-components-package, vhdl-compose-configuration):
  Abbreviate default-directory.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/vhdl-mode.el    
vhdlmode.el-20091113204419-o5vbwnq5f7feedwu-1258

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-31 00:35:12 +0000
+++ b/lisp/ChangeLog    2014-03-31 00:49:05 +0000
@@ -2,6 +2,10 @@
 
        * simple.el (cycle-spacing--context, cycle-spacing): Doc tweaks.
 
+       * progmodes/vhdl-mode.el (vhdl-speedbar-select-mra)
+       (vhdl-compose-components-package, vhdl-compose-configuration):
+       Abbreviate default-directory (missing from some previous upstream sync).
+
 2014-03-31  Reto Zimmermann  <address@hidden>
 
        Sync with upstream vhdl mode v3.35.2.

=== modified file 'lisp/progmodes/vhdl-mode.el'
--- a/lisp/progmodes/vhdl-mode.el       2014-03-31 00:22:29 +0000
+++ b/lisp/progmodes/vhdl-mode.el       2014-03-31 00:49:05 +0000
@@ -15859,8 +15859,10 @@
       (error "ERROR:  No architecture under cursor")
     (let* ((arch-key (downcase (vhdl-speedbar-line-text)))
           (ent-key (downcase (vhdl-speedbar-higher-text)))
-          (ent-alist (vhdl-aget vhdl-entity-alist
-                           (or (vhdl-project-p) default-directory) t))
+          (ent-alist (vhdl-aget
+                      vhdl-entity-alist
+                      (or (vhdl-project-p)
+                          (abbreviate-file-name default-directory)) t))
           (ent-entry (vhdl-aget ent-alist ent-key t)))
       (setcar (cddr (cddr ent-entry)) arch-key) ; (nth 4 ent-entry)
       (speedbar-refresh))))
@@ -16533,7 +16535,8 @@
          (concat (vhdl-replace-string vhdl-package-file-name pack-name t)
                  "." (file-name-extension (buffer-file-name))))
         (ent-alist (vhdl-aget vhdl-entity-alist
-                         (or project default-directory) t))
+                              (or project
+                                  (abbreviate-file-name default-directory)) t))
         (lazy-lock-minimum-size 0)
         clause-pos component-pos)
     (message "Generating components package \"%s\"..." pack-name)
@@ -16691,9 +16694,11 @@
   (interactive)
   (vhdl-require-hierarchy-info)
   (let ((ent-alist (vhdl-aget vhdl-entity-alist
-                        (or (vhdl-project-p) default-directory) t))
+                             (or (vhdl-project-p)
+                                 (abbreviate-file-name default-directory)) t))
        (conf-alist (vhdl-aget vhdl-config-alist
-                         (or (vhdl-project-p) default-directory) t))
+                              (or (vhdl-project-p)
+                                  (abbreviate-file-name default-directory)) t))
        (from-speedbar ent-name)
        inst-alist conf-name conf-file-name pos)
     (vhdl-prepare-search-2