From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 11 Feb 2003 21:40:17 +0000 (+0000)
Subject: (find-tag-tag): Move (default foo) to before `:' in the prompt.
X-Git-Tag: ttn-vms-21-2-B4~11234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ebc6b37c4730d932d826d25751424e4ced04ff30;p=emacs.git

(find-tag-tag): Move (default foo) to before `:' in the prompt.
(find-tag): Make sure we move point in the proper window.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e3154ae4c4a..c91d18418d8 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -793,7 +793,9 @@ Assumes the tags table is the current buffer."
 			       (get major-mode 'find-tag-default-function)
 			       'find-tag-default)))
 	 (spec (completing-read (if default
-				    (format "%s(default %s) " string default)
+				    (format "%s (default %s): "
+					    (substring string 0 (string-match "[ :]+\\'" string))
+					    default)
 				  string)
 				'tags-complete-tag
 				nil nil nil nil default)))
@@ -914,10 +916,12 @@ Contrast this with the ring of marks gone to by the command.
 
 See documentation of variable `tags-file-name'."
   (interactive (find-tag-interactive "Find tag: "))
-  (let ((buf (find-tag-noselect tagname next-p regexp-p)))
+  (let* ((buf (find-tag-noselect tagname next-p regexp-p))
+	 (pos (with-current-buffer buf (point))))
     (condition-case nil
 	(switch-to-buffer buf)
-      (error (pop-to-buffer buf)))))
+      (error (pop-to-buffer buf)))
+    (goto-char pos)))
 ;;;###autoload (define-key esc-map "." 'find-tag)
 
 ;;;###autoload