--- a/lisp/package-ui.el	Mon Aug 13 11:15:00 2007 +0200
+++ b/lisp/package-ui.el	Mon Aug 13 11:16:07 2007 +0200
@@ -140,12 +140,12 @@
 (defun pui-directory-exists (dir)
   "Check to see if DIR exists in `package-get-remote'."
   (let (found)
-    (mapcar '(lambda (item)
-	       (if (and (null (car item))
-			(string-equal (file-name-as-directory (car (cdr item)))
-				      (file-name-as-directory dir)))
-		   (setq found t))
-	       ) package-get-remote)
+    (mapcar #'(lambda (item)
+		(if (and (null (car item))
+			 (string-equal (file-name-as-directory (car (cdr item)))
+				       (file-name-as-directory dir)))
+		    (setq found t)))
+	    package-get-remote)
     found
     ))
 
@@ -358,11 +358,8 @@
       (save-window-excursion
 	(with-output-to-temp-buffer tmpbuf
 	  (display-completion-list (sort
-				    (mapcar '(lambda (pkg)
-					       (symbol-name pkg)
-					       )
-					    pui-deleted-packages)
-				    'string<)
+				    (mapcar #'symbol-name pui-deleted-packages)
+				    #'string<)
 				   :activate-callback nil
 				   :help-string "Packages selected for removal:\n"
 				   :completion-string t
@@ -389,16 +386,12 @@
 	  ;; errors occur, which would normally be caused by display-buffer).
 	  (save-window-excursion
 	    (with-output-to-temp-buffer tmpbuf
-	      (display-completion-list (sort
-					(mapcar '(lambda (pkg)
-						   (symbol-name pkg)
-						   )
-						pui-selected-packages)
-					'string<)
-				       :activate-callback nil
-				       :help-string "Packages selected for installation:\n"
-				       :completion-string t
-				       ))
+	      (display-completion-list
+	       (sort (mapcar #'symbol-name pui-selected-packages) #'string<)
+	       :activate-callback nil
+	       :help-string "Packages selected for installation:\n"
+	       :completion-string t
+	       ))
 	    (setq tmpbuf (get-buffer-create tmpbuf))
 	    (display-buffer tmpbuf)
 	    (setq do-install (y-or-n-p "Install these packages? "))
@@ -618,67 +611,66 @@
 "))
     (insert sep-string)
     (setq start (point))
-    (mapcar '(lambda (pkg)
-	       (let (pkg-sym info version desc
-			     b e extent current-vers disp)
-		 (setq pkg-sym (car pkg)
-		       info (package-get-info-version (cdr pkg) nil))
-		 (setq version (package-get-info-prop info 'version)
-		       desc (package-get-info-prop info 'description))
+    (mapcar
+     #'(lambda (pkg)
+	 (let (pkg-sym info version desc
+		       b e extent current-vers disp)
+	   (setq pkg-sym (car pkg)
+		 info (package-get-info-version (cdr pkg) nil))
+	   (setq version (package-get-info-prop info 'version)
+		 desc (package-get-info-prop info 'description))
 
-		 (setq disp (pui-package-symbol-char pkg-sym
-						     version))
-		 (setq b (point))
-		 (if pui-list-verbose
-		     (progn
-		       (setq current-vers (package-get-key pkg-sym :version))
-		       (cond
-			( (not current-vers)
-			  (setq current-vers "-----") )
-			( (stringp current-vers)
-			  (setq current-vers
-				(format "%.2f"
-					(string-to-number current-vers))) )
-			( (numberp current-vers)
-			  (setq current-vers (format "%.2f" current-vers)) )
-			)
-		       (insert
-			(format "%s %-15s %-5.2f  %-5s  %s\n"
-				(car disp) pkg-sym 
-				(if (stringp version)
-				    (string-to-number version)
-				  version)
-				current-vers desc))
-;;		       (insert
-;;			(format "\t\t  %-12s  %s\n"
-;;				(package-get-info-prop info 'author-version)
-;;				(package-get-info-prop info 'date)
-;;				))
-		       )
-		   (insert (format "%s %-15s %-5s %s\n"
-				   (car disp)
-				   pkg-sym version desc)))
-		 (save-excursion
-		   (setq e (progn
-			     (forward-line -1)
-			     (end-of-line)
-			     (point)))
-		   )
-		 (setq extent (make-extent b e))
-		 (if (car (cdr disp))
-		     (set-extent-face extent (get-face (car (cdr disp))))
-		   (set-extent-face extent (get-face 'default)))
-		 (set-extent-property extent 'highlight t)
-		 (set-extent-property extent 'pui t)
-		 (set-extent-property extent 'pui-package pkg-sym)
-		 (set-extent-property extent 'pui-info info)
-		 (set-extent-property extent 'help-echo 'pui-help-echo)
-		 (set-extent-property extent 'keymap pui-package-keymap)
-		 )) (sort (copy-sequence package-get-base)
-			  '(lambda (a b)
-			     (string< (symbol-name (car a))
-				      (symbol-name (car b)))
-			       )))
+	   (setq disp (pui-package-symbol-char pkg-sym
+					       version))
+	   (setq b (point))
+	   (if pui-list-verbose
+	       (progn
+		 (setq current-vers (package-get-key pkg-sym :version))
+		 (cond
+		  ( (not current-vers)
+		    (setq current-vers "-----") )
+		  ( (stringp current-vers)
+		    (setq current-vers
+			  (format "%.2f"
+				  (string-to-number current-vers))) )
+		  ( (numberp current-vers)
+		    (setq current-vers (format "%.2f" current-vers)) )
+		  )
+		 (insert
+		  (format "%s %-15s %-5.2f  %-5s  %s\n"
+			  (car disp) pkg-sym 
+			  (if (stringp version)
+			      (string-to-number version)
+			    version)
+			  current-vers desc))
+		 ;; (insert
+		 ;;  (format "\t\t  %-12s  %s\n"
+		 ;;    (package-get-info-prop info 'author-version)
+		 ;;    (package-get-info-prop info 'date)))
+		 )
+	     (insert (format "%s %-15s %-5s %s\n"
+			     (car disp)
+			     pkg-sym version desc)))
+	   (save-excursion
+	     (setq e (progn
+		       (forward-line -1)
+		       (end-of-line)
+		       (point))))
+	   (setq extent (make-extent b e))
+	   (if (car (cdr disp))
+	       (set-extent-face extent (get-face (car (cdr disp))))
+	     (set-extent-face extent (get-face 'default)))
+	   (set-extent-property extent 'highlight t)
+	   (set-extent-property extent 'pui t)
+	   (set-extent-property extent 'pui-package pkg-sym)
+	   (set-extent-property extent 'pui-info info)
+	   (set-extent-property extent 'help-echo 'pui-help-echo)
+	   (set-extent-property extent 'keymap pui-package-keymap)
+	   ))
+     (sort (copy-sequence package-get-base)
+	   #'(lambda (a b)
+	       (string< (symbol-name (car a))
+			(symbol-name (car b))))))
     (insert sep-string)
     (insert (documentation 'list-packages-mode))
     (set-buffer-modified-p nil)
@@ -693,7 +685,7 @@
       (add-submenu '() pui-menu)
       (setq mode-popup-menu pui-menu))
     (clear-message)
-;    (message (substitute-command-keys "Press `\\[pui-help]' for help."))
+    ;;    (message (substitute-command-keys "Press `\\[pui-help]' for help."))
     ))
 
 ;;;###autoload