# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780039539 0
# Node ID b307091cdf97aba5a9693be9fbc3d9d72eb13c8b
# Parent  5f79babaa7d2919d7c94900ead58f3a220daa0a1
(add-log-current-defun): Deal with lisp-interaction-mode like lisp-mode.

diff -r 5f79babaa7d2 -r b307091cdf97 lisp/add-log.el
--- a/lisp/add-log.el	Tue Sep 20 05:20:16 1994 +0000
+++ b/lisp/add-log.el	Tue Sep 20 05:38:59 1994 +0000
@@ -300,7 +300,8 @@
   (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.