diff options
| author | Richard M. Stallman | 1994-09-20 05:38:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-20 05:38:59 +0000 |
| commit | 3fec4c1b349958d3849df58e59537027d26d1a52 (patch) | |
| tree | 3dd02eb6a83d887265dd9a9a76a5294cccf10e42 | |
| parent | 4361366b72ab9c5b9a9591b22a299eab9b67f62e (diff) | |
| download | emacs-3fec4c1b349958d3849df58e59537027d26d1a52.tar.gz emacs-3fec4c1b349958d3849df58e59537027d26d1a52.zip | |
(add-log-current-defun): Deal with lisp-interaction-mode like lisp-mode.
| -rw-r--r-- | lisp/add-log.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 3c570fa17d5..db169295441 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -300,7 +300,8 @@ Has a preference of looking backwards." | |||
| 300 | (condition-case nil | 300 | (condition-case nil |
| 301 | (save-excursion | 301 | (save-excursion |
| 302 | (let ((location (point))) | 302 | (let ((location (point))) |
| 303 | (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode)) | 303 | (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode |
| 304 | lisp-interaction-mode)) | ||
| 304 | ;; If we are now precisely a the beginning of a defun, | 305 | ;; If we are now precisely a the beginning of a defun, |
| 305 | ;; make sure beginning-of-defun finds that one | 306 | ;; make sure beginning-of-defun finds that one |
| 306 | ;; rather than the previous one. | 307 | ;; rather than the previous one. |