procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/etags.el (tag-find-file-of-tag): Renamed from

Browse source 
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.
This commit is contained in:
Masatake YAMATO 2003-04-05 18:19:30 +00:00
parent fafb00dc11
commit 844062627c
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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

14
lisp/progmodes/etags.el
View file

@ -1149,7 +1149,7 @@ where they were found."
;; 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 @@ where they were found."
;; 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 @@ where they were found."
(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 @@ where they were found."
'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 @@ where they were found."
'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 @@ where they were found."
(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)))