# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1308507352 -3600
# Node ID e05d98bf96448771d989af1b71dfc94b0be75b14
# Parent  810b775624861e2fe6ea3b238370c6a3b840a4de
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.

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@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*):
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