[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el |
Date: |
Tue, 11 Feb 2003 16:40:17 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el,
Stefan Monnier <=