# HG changeset patch # User Chong Yidong # Date 1128372389 0 # Node ID f528ccbc5de9bb2f4a6823dff2e03c26bd1f49d7 # Parent dc8ccc41617eeedf56cc6d16cb86634611bc5660 * 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. diff -r dc8ccc41617e -r f528ccbc5de9 lisp/ChangeLog --- a/lisp/ChangeLog Mon Oct 03 20:45:55 2005 +0000 +++ b/lisp/ChangeLog Mon Oct 03 20:46:29 2005 +0000 @@ -1,3 +1,15 @@ +2005-10-03 Chong Yidong + + * 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. + 2005-10-03 Jan Dj,Ad(Brv * x-dnd.el (x-dnd-drop-data): Don't set dnd-open-file-other-window diff -r dc8ccc41617e -r f528ccbc5de9 lisp/progmodes/vhdl-mode.el --- a/lisp/progmodes/vhdl-mode.el Mon Oct 03 20:45:55 2005 +0000 +++ b/lisp/progmodes/vhdl-mode.el Mon Oct 03 20:46:29 2005 +0000 @@ -13988,11 +13988,11 @@ (speedbar-add-mode-functions-list '("vhdl directory" (speedbar-item-info . vhdl-speedbar-item-info) - (speedbar-line-path . speedbar-files-line-path))) + (speedbar-line-directory . speedbar-files-line-path))) (speedbar-add-mode-functions-list '("vhdl project" (speedbar-item-info . vhdl-speedbar-item-info) - (speedbar-line-path . vhdl-speedbar-line-project))) + (speedbar-line-directory . vhdl-speedbar-line-project))) ;; keymap (unless vhdl-speedbar-key-map (setq vhdl-speedbar-key-map (speedbar-make-specialized-keymap)) @@ -14257,9 +14257,9 @@ ((save-excursion (beginning-of-line) (looking-at "[^0-9]")) (re-search-forward "[0-9]+:" nil t) (vhdl-scan-directory-contents - (abbreviate-file-name (speedbar-line-path)))) + (abbreviate-file-name (speedbar-line-directory)))) ;; current directory - (t (setq path (speedbar-line-path)) + (t (setq path (speedbar-line-directory)) (string-match "^\\(.+[/\\]\\)" path) (vhdl-scan-directory-contents (abbreviate-file-name (match-string 1 path))))) @@ -14977,7 +14977,7 @@ (cond ((string-match "+" text) ; we have to expand this dir (setq speedbar-shown-directories (cons (expand-file-name - (concat (speedbar-line-path indent) token "/")) + (concat (speedbar-line-directory indent) token "/")) speedbar-shown-directories)) (speedbar-change-expand-button-char ?-) (speedbar-reset-scanners) @@ -14986,12 +14986,12 @@ (end-of-line) (forward-char 1) (vhdl-speedbar-insert-dirs (speedbar-file-lists - (concat (speedbar-line-path indent) token "/")) + (concat (speedbar-line-directory indent) token "/")) (1+ indent)) (speedbar-reset-scanners) (vhdl-speedbar-insert-dir-hierarchy (abbreviate-file-name - (concat (speedbar-line-path indent) token "/")) + (concat (speedbar-line-directory indent) token "/")) (1+ indent) speedbar-power-click))) (vhdl-speedbar-update-current-unit t t)) ((string-match "-" text) ; we have to contract this node @@ -14999,7 +14999,7 @@ (let ((oldl speedbar-shown-directories) (newl nil) (td (expand-file-name - (concat (speedbar-line-path indent) token)))) + (concat (speedbar-line-directory indent) token)))) (while oldl (if (not (string-match (concat "^" (regexp-quote td)) (car oldl))) (setq newl (cons (car oldl) newl))) @@ -15085,7 +15085,7 @@ (if vhdl-speedbar-show-projects (vhdl-speedbar-line-project) (abbreviate-file-name - (file-name-as-directory (speedbar-line-path indent))))) + (file-name-as-directory (speedbar-line-directory indent))))) (defun vhdl-speedbar-line-project (&optional indent) "Get currently displayed project name." @@ -15236,7 +15236,7 @@ (unit-name (vhdl-speedbar-line-text)) (vhdl-project (vhdl-speedbar-line-project)) (directory (file-name-as-directory - (or (speedbar-line-file) (speedbar-line-path))))) + (or (speedbar-line-file) (speedbar-line-directory))))) (if (fboundp 'speedbar-select-attached-frame) (speedbar-select-attached-frame) (select-frame speedbar-attached-frame)) @@ -15248,7 +15248,7 @@ (interactive) (let ((vhdl-project (vhdl-speedbar-line-project)) (default-directory (file-name-as-directory - (or (speedbar-line-file) (speedbar-line-path))))) + (or (speedbar-line-file) (speedbar-line-directory))))) (vhdl-generate-makefile))) (defun vhdl-speedbar-check-unit (design-unit) diff -r dc8ccc41617e -r f528ccbc5de9 lisp/speedbar.el --- a/lisp/speedbar.el Mon Oct 03 20:45:55 2005 +0000 +++ b/lisp/speedbar.el Mon Oct 03 20:46:29 2005 +0000 @@ -3155,7 +3155,7 @@ nil)))))) (defun speedbar-line-directory (&optional depth) - "Retrieve the directoryname associated with the current line. + "Retrieve the directory name associated with the current line. This may require traversing backwards from DEPTH and combining the default directory with these items. This function is replaceable in `speedbar-mode-functions-list' as `speedbar-line-directory'." @@ -4095,6 +4095,30 @@ ) ) + +;;; Obsolete variables and functions + +(define-obsolete-variable-alias + 'speedbar-ignored-path-regexp 'speedbar-ignored-directory-regexp) + +(define-obsolete-variable-alias 'speedbar-ignored-path-expressions + 'speedbar-ignored-directory-expressions) + +(define-obsolete-function-alias 'speedbar-add-ignored-path-regexp + 'speedbar-add-ignored-directory-regexp) + +(define-obsolete-function-alias 'speedbar-line-path + 'speedbar-line-directory) + +(define-obsolete-function-alias 'speedbar-buffers-line-path + 'speedbar-buffers-line-directory) + +(define-obsolete-function-alias 'speedbar-path-line + 'speedbar-directory-line) + +(define-obsolete-function-alias 'speedbar-buffers-line-path + 'speedbar-buffers-line-directory) + (provide 'speedbar) ;; run load-time hooks