Mercurial > emacs

changeset 23178:ff46f1893f6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ada-search-ignore-string-comment): In "found in comment" case, don't beginning-of-line after forward-line.
author Karl Heuer <kwzh@gnu.org>
date Fri, 04 Sep 1998 19:58:39 +0000
parents e3e7eca80c06
children 72461ea3cfc8
files lisp/progmodes/ada-mode.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el	Fri Sep 04 19:57:32 1998 +0000
+++ b/lisp/progmodes/ada-mode.el	Fri Sep 04 19:58:39 1998 +0000
@@ -3022,9 +3022,10 @@
             (progn
               (re-search-backward "--" nil 1)
               (goto-char (match-beginning 0)))
-          (progn
-            (forward-line 1)
-            (beginning-of-line))))
+	  (forward-line 1)
+	  ;; Used to have (beginning-of-line) here,
+	  ;; but that caused trouble at end of buffer with no newline.
+	  ))
        ;;
        ;; found in string => skip it
        ;;