Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
769 (if (or (not next) 769 (if (or (not next)
770 (not (memq last-command 770 (not (memq last-command
771 '(find-tag find-tag-other-window tags-loop-continue)))) 771 '(find-tag find-tag-other-window tags-loop-continue))))
772 (push-tag-mark)) 772 (push-tag-mark))
773 (if other-window 773 (if other-window
774 (pop-to-buffer tag-buf) 774 (pop-to-buffer tag-buf t)
775 (switch-to-buffer tag-buf)) 775 (switch-to-buffer tag-buf))
776 (widen) 776 (widen)
777 (push-mark) 777 (push-mark)
778 (goto-char tag-point) 778 (goto-char tag-point)
779 (if find-tag-hook 779 (if find-tag-hook
785 ;; Return t in case used as the tags-loop-scan. 785 ;; Return t in case used as the tags-loop-scan.
786 t) 786 t)
787 787
788 ;;;###autoload 788 ;;;###autoload
789 (defun find-tag-other-window (tagname &optional next) 789 (defun find-tag-other-window (tagname &optional next)
790 "*Find tag whose name contains TAGNAME. 790 "*Find tag whose name contains TAGNAME, in another window.
791 Selects the buffer that the tag is contained in in another window 791 Selects the buffer that the tag is contained in in another window
792 and puts point at its definition. 792 and puts point at its definition.
793 If TAGNAME is a null string, the expression in the buffer 793 If TAGNAME is a null string, the expression in the buffer
794 around or before point is used as the tag name. 794 around or before point is used as the tag name.
795 If second arg NEXT is non-nil (interactively, with prefix arg), 795 If second arg NEXT is non-nil (interactively, with prefix arg),