From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Sep 1998 19:58:39 +0000 (+0000)
Subject: (ada-search-ignore-string-comment):
X-Git-Tag: emacs-20.4~1771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=452b2285752ce73265424f56a684ad5c8ee9755a;p=emacs.git

(ada-search-ignore-string-comment):
In "found in comment" case, don't beginning-of-line after forward-line.
---

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 8614ca4421a..bf4860d75bf 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -3022,9 +3022,10 @@ This works by two steps:
             (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
        ;;