[COMMIT] Style and indentation corrections, behavior.el.

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1308507352 -3600 # Node ID e05d98bf96448771d989af1b71dfc94b0be75b14 # Parent 810b775624861e2fe6ea3b238370c6a3b840a4de Style and indentation corrections, behavior.el. 2011-06-19 Aidan Kehoe <kehoea(a)parhasard.net&gt; * behavior.el (enable-behavior): * behavior.el (disable-behavior): Remove a couple of redundant lambdas here, and remove a cond clause that was never tripped (because nil is a list.) * behavior.el (behavior-menu-filter): Correct some indentation here. diff -r 810b77562486 -r e05d98bf9644 lisp/ChangeLog --- a/lisp/ChangeLog Sun Jun 19 19:03:39 2011 +0100 +++ b/lisp/ChangeLog Sun Jun 19 19:15:52 2011 +0100 ＠＠ -1,3 +1,12 ＠＠ +2011-06-19 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * behavior.el (enable-behavior): + * behavior.el (disable-behavior): + Remove a couple of redundant lambdas here, and remove a cond + clause that was never tripped (because nil is a list.) + * behavior.el (behavior-menu-filter): + Correct some indentation here. + 2011-06-19 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl-macs.el (defsubst*): diff -r 810b77562486 -r e05d98bf9644 lisp/behavior.el --- a/lisp/behavior.el Sun Jun 19 19:03:39 2011 +0100 +++ b/lisp/behavior.el Sun Jun 19 19:15:52 2011 +0100 ＠＠ -372,10 +372,9 ＠＠ (let ((require (getf plist :require)) (enable (getf plist :enable))) (cond ((listp require) - (mapc #'(lambda (sym) (require sym)) require)) + (mapc 'require require)) ((symbolp require) (require require)) - ((null require)) (t (error 'invalid-argument "Invalid :require spec" require))) (message "Enabling behavior %s..." behavior) (if enable (funcall enable)) ＠＠ -395,10 +394,9 ＠＠ (let ((require (getf plist :require)) (disable (getf plist :disable))) (cond ((listp require) - (mapc #'(lambda (sym) (require sym)) require)) + (mapc 'require require)) ((symbolp require) (require require)) - ((null require)) (t (error 'invalid-argument "Invalid :require spec" require))) (message "Disabling behavior %s..." behavior) (if disable (funcall disable)) ＠＠ -476,9 +474,9 ＠＠ ("%_Set Download Site" ("%_Official Releases" :filter ,#'(lambda (&rest junk) - (menu-split-long-menu - (submenu-generate-accelerator-spec - (package-ui-download-menu))))) + (menu-split-long-menu + (submenu-generate-accelerator-spec + (package-ui-download-menu))))) ("%_Pre-Releases" :filter ,#'(lambda (&rest junk) (menu-split-long-menu -- ‘Iodine deficiency was endemic in parts of the UK until, through what has been described as “an unplanned and accidental public health triumph”, iodine was added to cattle feed to improve milk production in the 1930s.’ (EN Pearce, Lancet, June 2011) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches