Mercurial > emacs

comparison lisp/progmodes/vhdl-mode.el @ 90573:858cb33ae39d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 357-381) - Merge from gnus--rel--5.10 - Update from CVS - Merge from erc--emacs--21 * gnus--rel--5.10 (patch 116-122) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
author Miles Bader <miles@gnu.org>
date Thu, 03 Aug 2006 11:45:23 +0000
parents 146cd8369025 e48fbb6d599c
children dbe3f29e61d6
comparison
equal deleted inserted replaced
90572:ab9b8d043c39 90573:858cb33ae39d
14110 (put 'speedbar-with-writable 'lisp-indent-function 0) 14110 (put 'speedbar-with-writable 'lisp-indent-function 0)
14111 14111
14112 (defun vhdl-speedbar-display-directory (directory depth &optional rescan) 14112 (defun vhdl-speedbar-display-directory (directory depth &optional rescan)
14113 "Display directory and hierarchy information in speedbar." 14113 "Display directory and hierarchy information in speedbar."
14114 (setq vhdl-speedbar-show-projects nil) 14114 (setq vhdl-speedbar-show-projects nil)
14115 (setq speedbar-ignored-path-regexp 14115 (setq speedbar-ignored-directory-regexp
14116 (speedbar-extension-list-to-regex speedbar-ignored-path-expressions)) 14116 (speedbar-extension-list-to-regex speedbar-ignored-directory-expressions))
14117 (setq directory (abbreviate-file-name (file-name-as-directory directory))) 14117 (setq directory (abbreviate-file-name (file-name-as-directory directory)))
14118 (setq speedbar-last-selected-file nil) 14118 (setq speedbar-last-selected-file nil)
14119 (speedbar-with-writable 14119 (speedbar-with-writable
14120 (condition-case nil 14120 (condition-case nil
14121 (progn 14121 (progn
14131 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly"))))) 14131 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly")))))
14132 14132
14133 (defun vhdl-speedbar-display-projects (project depth &optional rescan) 14133 (defun vhdl-speedbar-display-projects (project depth &optional rescan)
14134 "Display projects and hierarchy information in speedbar." 14134 "Display projects and hierarchy information in speedbar."
14135 (setq vhdl-speedbar-show-projects t) 14135 (setq vhdl-speedbar-show-projects t)
14136 (setq speedbar-ignored-path-regexp ".") 14136 (setq speedbar-ignored-directory-regexp ".")
14137 (setq speedbar-last-selected-file nil) 14137 (setq speedbar-last-selected-file nil)
14138 (setq vhdl-speedbar-last-selected-project nil) 14138 (setq vhdl-speedbar-last-selected-project nil)
14139 (speedbar-with-writable 14139 (speedbar-with-writable
14140 (condition-case nil 14140 (condition-case nil
14141 ;; insert projects 14141 ;; insert projects