mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 22:11:45 -07:00
Code Issues Projects Releases Wiki Activity

(etags-goto-tag-location): If match started with Ctrl-m,

Browse source 
compensate when setting point.
This commit is contained in:
Richard M. Stallman 1993-08-08 07:21:22 +00:00
parent 651c847c8f
commit 280a1a6548
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/etags.el
View file

@ -975,6 +975,11 @@ See documentation of variable `tags-file-name'."
(re-search-forward pat nil t)
(error "`%s' not found in %s; time to rerun etags"
pat buffer-file-name)))
;; Position point at the right place
;; if the search string matched an extra Ctrl-m at the beginning.
(and (eq selective-display t)
(looking-at "\^m")
(forward-char 1))
(beginning-of-line))
(defun etags-list-tags (file)