mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 02:31:23 -07:00
Code Issues Projects Releases Wiki Activity

(find-tag-interactive): If last-tag is nil,

Browse source 
behave as if there were no prefix argument.
(find-tag-noselect): If last-tag is nil, behave as if the NEXT-P
argument were nil.
This commit is contained in:
Eli Zaretskii 2001-01-11 10:18:42 +00:00
parent 7742ee1924
commit 926861fbc1
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2001-01-11 Eli Zaretskii <eliz@is.elta.co.il>
* progmodes/etags.el (find-tag-interactive): If last-tag is nil,
behave as if there were no prefix argument.
(find-tag-noselect): If last-tag is nil, behave as if the NEXT-P
argument were nil.
2001-01-11 Richard M. Stallman <rms@gnu.org>
* isearch.el (isearch-lazy-highlight-update):

8
lisp/progmodes/etags.el
View file

@ -782,7 +782,7 @@ Assumes the tags table is the current buffer."
;; Get interactive args for find-tag{-noselect,-other-window,-regexp}.
(defun find-tag-interactive (prompt &optional no-default)
(if current-prefix-arg
(if (and current-prefix-arg last-tag)
(list nil (if (< (prefix-numeric-value current-prefix-arg) 0)
'-
t))
@ -839,7 +839,7 @@ See documentation of variable `tags-file-name'."
(run-hooks 'local-find-tag-hook))))
;; Record whence we came.
(ring-insert find-tag-marker-ring (point-marker))
(if next-p
(if (and next-p last-tag)
;; Find the same table we last used.
(visit-tags-table-buffer 'same)
;; Pick a table to use.
@ -852,7 +852,7 @@ See documentation of variable `tags-file-name'."
(set-buffer
;; find-tag-in-order does the real work.
(find-tag-in-order
(if next-p last-tag tagname)
(if (and next-p last-tag) last-tag tagname)
(if regexp-p
find-tag-regexp-search-function
find-tag-search-function)
@ -863,7 +863,7 @@ See documentation of variable `tags-file-name'."
find-tag-regexp-next-line-after-failure-p
find-tag-next-line-after-failure-p)
(if regexp-p "matching" "containing")
(not next-p)))
(or (not next-p) (not last-tag))))
(set-marker marker (point))
(run-hooks 'local-find-tag-hook)
(ring-insert tags-location-ring marker)