Mercurial > emacs
changeset 50455:7993414db7f7
* progmodes/etags.el (tag-find-file-of-tag): Renamed from
find-file-of-tag to avoid name space pollution.
(tag-find-file-of-tag-noselect): Likewise.
(etags-list-tags, etags-tags-apropos): Use
tag-find-file-of-tag instead of find-file-of-tag.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Sat, 05 Apr 2003 18:19:30 +0000 |
| parents | 583825022e8f |
| children | 0f86c147686f |
| files | lisp/ChangeLog lisp/progmodes/etags.el |
| diffstat | 2 files changed, 15 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Apr 05 18:01:14 2003 +0000 +++ b/lisp/ChangeLog Sat Apr 05 18:19:30 2003 +0000 @@ -1,3 +1,11 @@ +2003-04-06 Masatake YAMATO <jet@gyve.org> + + * progmodes/etags.el (tag-find-file-of-tag): Renamed from + find-file-of-tag to avoid name space pollution. + (tag-find-file-of-tag-noselect): Likewise. + (etags-list-tags, etags-tags-apropos): Use + tag-find-file-of-tag instead of find-file-of-tag. + 2003-04-06 Masatake YAMATO <jet@gyve.org> * info.el (Info-goto-emacs-command-node): If command
--- a/lisp/progmodes/etags.el Sat Apr 05 18:01:14 2003 +0000 +++ b/lisp/progmodes/etags.el Sat Apr 05 18:19:30 2003 +0000 @@ -1149,7 +1149,7 @@ ;; Get the local value in the tags table buffer before switching buffers. (setq goto-func goto-tag-location-function) - (find-file-of-tag-noselect file) + (tag-find-file-of-tag-noselect file) (widen) (push-mark) (funcall goto-func tag-info) @@ -1157,7 +1157,7 @@ ;; Return the buffer where the tag was found. (current-buffer)))) -(defun find-file-of-tag-noselect (file) +(defun tag-find-file-of-tag-noselect (file) ;; Find the right line in the specified file. ;; If we are interested in compressed-files, ;; we search files with extensions. @@ -1191,8 +1191,8 @@ (error "File %s not found" file)) (set-buffer the-buffer)))) -(defun find-file-of-tag (file) - (let ((buf (find-file-of-tag-noselect file))) +(defun tag-find-file-of-tag (file) + (let ((buf (tag-find-file-of-tag-noselect file))) (condition-case nil (switch-to-buffer buf) (error (pop-to-buffer buf))))) @@ -1391,7 +1391,7 @@ 'action (lambda (button) (let ((tag-info (button-get button 'tag-info)) (goto-func (button-get button 'goto-func))) - (find-file-of-tag (button-get button 'file-path)) + (tag-find-file-of-tag (button-get button 'file-path)) (widen) (funcall goto-func tag-info))) 'face 'tags-tag-face @@ -1475,7 +1475,7 @@ 'action (lambda (button) (let ((tag-info (button-get button 'tag-info)) (goto-func (button-get button 'goto-func))) - (find-file-of-tag (button-get button 'file-path)) + (tag-find-file-of-tag (button-get button 'file-path)) (widen) (funcall goto-func tag-info))) 'face 'tags-tag-face @@ -1485,7 +1485,7 @@ (make-text-button pt (point) 'file-path file-path 'action (lambda (button) - (find-file-of-tag (button-get button 'file-path)) + (tag-find-file-of-tag (button-get button 'file-path)) ;; Get the local value in the tags table ;; buffer before switching buffers. (goto-char (point-min)))