(icomplete-get-keys): Doc fix. Use `when'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc632f0edd0f41f31579662710a2b172b839861c..f5002a8a0dde998b63de1e99919c2e0512413672 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-31  Juanma Barranquero  <lekktu@gmail.com>
+
+       * icomplete.el (icomplete-get-keys): Doc fix.  Use `when'.
+
 2008-05-31  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-cvs.el (vc-cvs-after-dir-status): Support spaces in file
@@ -15,8 +19,8 @@
 
 2008-05-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
-       * vc-cvs.el (vc-cvs-state-heuristic, vc-cvs-parse-status): Try and
-       return `unregistered' when applicable.
+       * vc-cvs.el (vc-cvs-state-heuristic, vc-cvs-parse-status):
+       Try and return `unregistered' when applicable.
 
        * emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
        Don't encourage naming variables with "-flag".

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 52636274633f811eb90e99fc89fe2a06d133fdb2..7f395019825a38df662555c46d51c1a7c9f4d6b6 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -145,22 +145,22 @@ minibuffer completion.")
 (add-hook 'icomplete-post-command-hook 'icomplete-exhibit)
 
 (defun icomplete-get-keys (func-name)
-  "Return strings naming keys bound to `func-name', or nil if none.
+  "Return strings naming keys bound to FUNC-NAME, or nil if none.
 Examines the prior, not current, buffer, presuming that current buffer
 is minibuffer."
-  (if (commandp func-name)
+  (when (commandp func-name)
     (save-excursion
       (let* ((sym (intern func-name))
             (buf (other-buffer nil t))
             (keys (with-current-buffer buf (where-is-internal sym))))
-       (if keys
-           (concat "<"
-                   (mapconcat 'key-description
-                              (sort keys
-                                    #'(lambda (x y)
-                                        (< (length x) (length y))))
-                              ", ")
-                   ">"))))))
+       (when keys
+         (concat "<"
+                 (mapconcat 'key-description
+                            (sort keys
+                                  #'(lambda (x y)
+                                      (< (length x) (length y))))
+                            ", ")
+                 ">"))))))
 ;;;_  = icomplete-with-completion-tables
 (defvar icomplete-with-completion-tables '(internal-complete-buffer)
   "Specialized completion tables with which icomplete should operate.