[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M. Stallman]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.296 emacs/lisp/subr.el:1.297
*** emacs/lisp/subr.el:1.296    Sun Apr  7 06:09:39 2002
--- emacs/lisp/subr.el  Wed Apr 10 10:55:19 2002
***************
*** 808,814 ****
      ;;               (not (member (cons 'not function) hook-value)))
      ;;  (push (cons 'not function) hook-value))
      ;; Set the actual variable
!     (if local (set hook hook-value) (set-default hook hook-value))))
  
  (defun add-to-list (list-var element &optional append)
    "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.
--- 808,818 ----
      ;;               (not (member (cons 'not function) hook-value)))
      ;;  (push (cons 'not function) hook-value))
      ;; Set the actual variable
!     (if (not local)
!       (set-default hook hook-value)
!       (if (equal hook-value '(t))
!         (kill-local-variable hook)
!       (set hook hook-value)))))
  
  (defun add-to-list (list-var element &optional append)
    "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.