aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-07-24 02:50:50 +0000
committerRichard M. Stallman1994-07-24 02:50:50 +0000
commit019644eeaa19ec86673d160f16dd2cc9510c2b59 (patch)
tree8b4c2f320e4f921d7c5585d145a3edc6d095f8f2
parentcd6446282dadab417844013d255d326c404b9533 (diff)
downloademacs-019644eeaa19ec86673d160f16dd2cc9510c2b59.tar.gz
emacs-019644eeaa19ec86673d160f16dd2cc9510c2b59.zip
(add-log-current-defun): Skip doc string
correctly even if it ends with line that starts space.
-rw-r--r--lisp/add-log.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el
index fdc546c9a91..3c570fa17d5 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -358,7 +358,9 @@ Has a preference of looking backwards."
358 ;; or the DEFUN macro used by the C library. 358 ;; or the DEFUN macro used by the C library.
359 (if (condition-case nil 359 (if (condition-case nil
360 (and (save-excursion 360 (and (save-excursion
361 (forward-line 1) 361 (end-of-line)
362 (while (= (preceding-char) ?\\)
363 (end-of-line 2))
362 (backward-sexp 1) 364 (backward-sexp 1)
363 (beginning-of-line) 365 (beginning-of-line)
364 (setq tem (point)) 366 (setq tem (point))