[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.170 emacs/lisp/progmodes/etags.el:1.171
*** emacs/lisp/progmodes/etags.el:1.170 Thu Nov 14 02:16:14 2002
--- emacs/lisp/progmodes/etags.el       Tue Feb 11 16:40:17 2003
***************
*** 793,799 ****
                               (get major-mode 'find-tag-default-function)
                               'find-tag-default)))
         (spec (completing-read (if default
!                                   (format "%s(default %s) " string default)
                                  string)
                                'tags-complete-tag
                                nil nil nil nil default)))
--- 793,801 ----
                               (get major-mode 'find-tag-default-function)
                               'find-tag-default)))
         (spec (completing-read (if default
!                                   (format "%s (default %s): "
!                                           (substring string 0 (string-match 
"[ :]+\\'" string))
!                                           default)
                                  string)
                                'tags-complete-tag
                                nil nil nil nil default)))
***************
*** 914,923 ****
  
  See documentation of variable `tags-file-name'."
    (interactive (find-tag-interactive "Find tag: "))
!   (let ((buf (find-tag-noselect tagname next-p regexp-p)))
      (condition-case nil
        (switch-to-buffer buf)
!       (error (pop-to-buffer buf)))))
  ;;;###autoload (define-key esc-map "." 'find-tag)
  
  ;;;###autoload
--- 916,927 ----
  
  See documentation of variable `tags-file-name'."
    (interactive (find-tag-interactive "Find tag: "))
!   (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)))
!     (goto-char pos)))
  ;;;###autoload (define-key esc-map "." 'find-tag)
  
  ;;;###autoload