Mercurial > hg > xemacs-beta

changeset 5524:e05d98bf9644

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Style and indentation corrections, behavior.el. 2011-06-19 Aidan Kehoe <kehoea@parhasard.net> * 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.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 19 Jun 2011 19:15:52 +0100
parents 810b77562486
children 2a6a8da4dd7c
files lisp/ChangeLog lisp/behavior.el
diffstat 2 files changed, 14 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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@parhasard.net>
+
+	* 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@parhasard.net>
 
 	* cl-macs.el (defsubst*):
--- 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