commit: Style and indentation corrections, behavior.el.

changeset: 5524:e05d98bf9644 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sun Jun 19 19:15:52 2011 +0100 files: lisp/ChangeLog lisp/behavior.el description: 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 _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches