This is the offending change, if you back this out all is well with the world again. andy RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/subr.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -u -r1.6 -r1.7 --- subr.el 1998/05/16 05:06:54 1.6 +++ subr.el 1998/06/30 06:35:26 1.7 ＠＠ -194,14 +194,14 ＠＠ (and (local-variable-p hook (current-buffer)) (not (memq t (symbol-value hook))))) (let ((hook-value (symbol-value hook))) - (if (consp hook-value) + (if (and (consp hook-value) (not (functionp (car hook-value)))) (if (member function hook-value) (setq hook-value (delete function (copy-sequence hook-value))) ) (if (equal hook-value function) (setq hook-value nil))) (set hook hook-value)) (let ((hook-value (default-value hook))) - (if (consp hook-value) + (if (and (consp hook-value) (not (functionp (car hook-value)))) (if (member function hook-value) (setq hook-value (delete function (copy-sequence hook-value)))) (if (equal hook-value function) --------------------------------------------------------------------------- " .sigs are like your face - rarely seen by you and uglier than you think" Dr Andy Piper, Technical Architect, Parallax Solutions Ltd mail: andyp(a)parallax.co.uk web: www.parallax.co.uk/~andyp