From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Sep 1994 05:38:59 +0000 (+0000)
Subject: (add-log-current-defun): Deal with lisp-interaction-mode like lisp-mode.
X-Git-Tag: emacs-19.34~6905
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fec4c1b349958d3849df58e59537027d26d1a52;p=emacs.git

(add-log-current-defun): Deal with lisp-interaction-mode like lisp-mode.
---

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."
   (condition-case nil
       (save-excursion
 	(let ((location (point)))
-	  (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode))
+	  (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-mode
+						    lisp-interaction-mode))
 		 ;; If we are now precisely a the beginning of a defun,
 		 ;; make sure beginning-of-defun finds that one
 		 ;; rather than the previous one.