# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1049566770 0
# Node ID 7993414db7f7dd96e7fff874974e465fbf36894d
# Parent  583825022e8f4a736429f5b88c87370e13e8f16a
* 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.

diff -r 583825022e8f -r 7993414db7f7 lisp/ChangeLog
--- 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 
diff -r 583825022e8f -r 7993414db7f7 lisp/progmodes/etags.el
--- 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)))