[Emacs-diffs] Changes to emacs/lisp/icomplete.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/05/31 23:49:28

Index: icomplete.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/icomplete.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- icomplete.el        29 May 2008 20:03:42 -0000      1.57
+++ icomplete.el        31 May 2008 23:49:27 -0000      1.58
@@ -145,15 +145,15 @@
 (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
+       (when keys
            (concat "<"
                    (mapconcat 'key-description
                               (sort keys