From 452b2285752ce73265424f56a684ad5c8ee9755a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 4 Sep 1998 19:58:39 +0000 Subject: [PATCH] (ada-search-ignore-string-comment): In "found in comment" case, don't beginning-of-line after forward-line. --- lisp/progmodes/ada-mode.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 ;; -- 2.39.2