/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.296 by pj, Sun Apr 7 10:09:39 2002 UTC revision 1.297 by rms, Wed Apr 10 14:55:19 2002 UTC
# Line 808  This makes the hook buffer-local if need Line 808  This makes the hook buffer-local if need
808      ;;         (not (member (cons 'not function) hook-value)))      ;;         (not (member (cons 'not function) hook-value)))
809      ;;  (push (cons 'not function) hook-value))      ;;  (push (cons 'not function) hook-value))
810      ;; Set the actual variable      ;; Set the actual variable
811      (if local (set hook hook-value) (set-default hook hook-value))))      (if (not local)
812            (set-default hook hook-value)
813          (if (equal hook-value '(t))
814              (kill-local-variable hook)
815            (set hook hook-value)))))
816    
817  (defun add-to-list (list-var element &optional append)  (defun add-to-list (list-var element &optional append)
818    "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.    "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.

Legend:
Removed from v.1.296  
changed lines
  Added in v.1.297

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26