Commit 84406262 authored by Masatake YAMATO's avatar Masatake YAMATO
Browse files

* 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.
parent fafb00dc
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
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment