/[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.365 by rms, Mon Oct 20 23:41:18 2003 UTC revision 1.366 by monnier, Mon Nov 3 14:44:48 2003 UTC
# Line 856  function, it is changed to a list of fun Line 856  function, it is changed to a list of fun
856                (set (make-local-variable hook) (list t)))                (set (make-local-variable hook) (list t)))
857      ;; Detect the case where make-local-variable was used on a hook      ;; Detect the case where make-local-variable was used on a hook
858      ;; and do what we used to do.      ;; and do what we used to do.
859      (when (and (local-variable-p hook)      (unless (and (consp (symbol-value hook)) (memq t (symbol-value hook)))
                (not (and (consp (symbol-value hook))  
                          (memq t (symbol-value hook)))))  
860        (setq local t)))        (setq local t)))
861    (let ((hook-value (if local (symbol-value hook) (default-value hook))))    (let ((hook-value (if local (symbol-value hook) (default-value hook))))
862      ;; If the hook value is a single function, turn it into a list.      ;; If the hook value is a single function, turn it into a list.

Legend:
Removed from v.1.365  
changed lines
  Added in v.1.366

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