diff options
| author | Richard M. Stallman | 1994-07-24 02:50:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-24 02:50:50 +0000 |
| commit | 019644eeaa19ec86673d160f16dd2cc9510c2b59 (patch) | |
| tree | 8b4c2f320e4f921d7c5585d145a3edc6d095f8f2 | |
| parent | cd6446282dadab417844013d255d326c404b9533 (diff) | |
| download | emacs-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.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." | |||
| 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)) |