diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-24 02:50:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-24 02:50:50 +0000 |
| commit | 019644eeaa19ec86673d160f16dd2cc9510c2b59 (patch) | |
| tree | 8b4c2f320e4f921d7c5585d145a3edc6d095f8f2 | |
| parent | cd6446282dadab417844013d255d326c404b9533 (diff) | |
| download | emacs-019644eeaa19ec86673d160f16dd2cc9510c2b59.tar.gz emacs-019644eeaa19ec86673d160f16dd2cc9510c2b59.tar.bz2 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.el | 4 |
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." ;; or the DEFUN macro used by the C library. (if (condition-case nil (and (save-excursion - (forward-line 1) + (end-of-line) + (while (= (preceding-char) ?\\) + (end-of-line 2)) (backward-sexp 1) (beginning-of-line) (setq tem (point)) |