Mercurial > emacs
comparison lisp/speedbar.el @ 65809:f528ccbc5de9
* speedbar.el (speedbar-ignored-path-regexp, speedbar-line-path)
(speedbar-ignored-path-expressions, speedbar-buffers-line-path)
(speedbar-add-ignored-path-regexp, speedbar-buffers-line-path)
(speedbar-path-line): Define obsolete aliases.
(speedbar-line-directory): Doc fix.
* progmodes/vhdl-mode.el (vhdl-speedbar-initialize)
(vhdl-speedbar-rescan-hierarchy): Call speedbar-line-directory
instead of speedbar-line-path.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 03 Oct 2005 20:46:29 +0000 |
| parents | 6e229fd94815 |
| children | 0900c0c906d7 aa89c814f853 |
comparison
equal
deleted
inserted
replaced
| 65808:dc8ccc41617e | 65809:f528ccbc5de9 |
|---|---|
| 3153 t) | 3153 t) |
| 3154 (goto-char dest) | 3154 (goto-char dest) |
| 3155 nil)))))) | 3155 nil)))))) |
| 3156 | 3156 |
| 3157 (defun speedbar-line-directory (&optional depth) | 3157 (defun speedbar-line-directory (&optional depth) |
| 3158 "Retrieve the directoryname associated with the current line. | 3158 "Retrieve the directory name associated with the current line. |
| 3159 This may require traversing backwards from DEPTH and combining the default | 3159 This may require traversing backwards from DEPTH and combining the default |
| 3160 directory with these items. This function is replaceable in | 3160 directory with these items. This function is replaceable in |
| 3161 `speedbar-mode-functions-list' as `speedbar-line-directory'." | 3161 `speedbar-mode-functions-list' as `speedbar-line-directory'." |
| 3162 (save-restriction | 3162 (save-restriction |
| 3163 (widen) | 3163 (widen) |
| 4093 (if (listp font-lock-global-modes) | 4093 (if (listp font-lock-global-modes) |
| 4094 (add-to-list 'font-lock-global-modes '(not speedbar-mode)) | 4094 (add-to-list 'font-lock-global-modes '(not speedbar-mode)) |
| 4095 ) | 4095 ) |
| 4096 ) | 4096 ) |
| 4097 | 4097 |
| 4098 | |
| 4099 ;;; Obsolete variables and functions | |
| 4100 | |
| 4101 (define-obsolete-variable-alias | |
| 4102 'speedbar-ignored-path-regexp 'speedbar-ignored-directory-regexp) | |
| 4103 | |
| 4104 (define-obsolete-variable-alias 'speedbar-ignored-path-expressions | |
| 4105 'speedbar-ignored-directory-expressions) | |
| 4106 | |
| 4107 (define-obsolete-function-alias 'speedbar-add-ignored-path-regexp | |
| 4108 'speedbar-add-ignored-directory-regexp) | |
| 4109 | |
| 4110 (define-obsolete-function-alias 'speedbar-line-path | |
| 4111 'speedbar-line-directory) | |
| 4112 | |
| 4113 (define-obsolete-function-alias 'speedbar-buffers-line-path | |
| 4114 'speedbar-buffers-line-directory) | |
| 4115 | |
| 4116 (define-obsolete-function-alias 'speedbar-path-line | |
| 4117 'speedbar-directory-line) | |
| 4118 | |
| 4119 (define-obsolete-function-alias 'speedbar-buffers-line-path | |
| 4120 'speedbar-buffers-line-directory) | |
| 4121 | |
| 4098 (provide 'speedbar) | 4122 (provide 'speedbar) |
| 4099 | 4123 |
| 4100 ;; run load-time hooks | 4124 ;; run load-time hooks |
| 4101 (run-hooks 'speedbar-load-hook) | 4125 (run-hooks 'speedbar-load-hook) |
| 4102 | 4126 |