Mercurial > emacs
comparison lisp/add-log.el @ 8949:b307091cdf97
(add-log-current-defun): Deal with lisp-interaction-mode like lisp-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Sep 1994 05:38:59 +0000 |
| parents | 589abdc989e1 |
| children | be396da9c611 |
comparison
equal
deleted
inserted
replaced
| 8948:5f79babaa7d2 | 8949:b307091cdf97 |
|---|---|
| 298 | 298 |
| 299 Has a preference of looking backwards." | 299 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. |
| 307 (or (eobp) (forward-char 1)) | 308 (or (eobp) (forward-char 1)) |
| 308 (beginning-of-defun) | 309 (beginning-of-defun) |