🚀 go-pugleaf

In GNU Emacs 19.27.3 (sparc-sun-sunos4.1.3, X toolkit) of Mon Sep 19 1994 on raccoon.cs.rochester.edu

Here is a minor improvement to add-log.el.  I often use
lisp-interaction-mode for editing elisp.  This lets add-log do its
thing properly when invoked from a lisp-interaction-mode buffer.

Change log entry and diff follow.

Mon Sep 19 11:25:11 1994  Boris Goldowsky  <boris@cs.rochester.edu>

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

*** /scratch/boris/emacs/lisp/add-log.el.orig	Mon Sep 19 11:18:42 1994
--- /scratch/boris/emacs/lisp/add-log.el	Mon Sep 19 11:16:25 1994
***************
*** 300,306 ****
    (condition-case nil
        (save-excursion
  	(let ((location (point)))
! 	  (cond ((memq major-mode '(emacs-lisp-mode lisp-mode scheme-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.
--- 300,307 ----
    (condition-case nil
        (save-excursion
  	(let ((location (point)))
! 	  (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.


--
Boris Goldowsky                        The only way you'll end up in a corner
                                        Is by walking in too straight of a li
boris@cs.rochester.edu                    --Claudia Schmidt                 n
57 Glasgow Street, Rochester, NY 14608                                      e