From ebc6b37c4730d932d826d25751424e4ced04ff30 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 11 Feb 2003 21:40:17 +0000 Subject: [PATCH] (find-tag-tag): Move (default foo) to before `:' in the prompt. (find-tag): Make sure we move point in the proper window. --- lisp/progmodes/etags.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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 -- 2.39.2