Mercurial > emacs

changeset 4486:3ab31f82a529

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(etags-goto-tag-location): If match started with Ctrl-m, compensate when setting point.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 Aug 1993 07:21:22 +0000
parents 6e6fd9ff650f
children 177aaa70734d
files lisp/progmodes/etags.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Sun Aug 08 06:55:45 1993 +0000
+++ b/lisp/progmodes/etags.el	Sun Aug 08 07:21:22 1993 +0000
@@ -975,6 +975,11 @@
 	(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)