From 280a1a6548749c1296b0ae2f7df56cc317a51f8a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Aug 1993 07:21:22 +0000 Subject: [PATCH] (etags-goto-tag-location): If match started with Ctrl-m, compensate when setting point. --- lisp/progmodes/etags.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 6fc6f899e49..fe7367e9639 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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) -- 2.11.4.GIT