[Emacs-diffs] trunk r113771: * lisp/ido.el (ido-completion-help): Fix up compiler warning.

[Stefan Monnier]

------------------------------------------------------------
revno: 113771
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-08-08 20:54:22 -0400
message:
  * lisp/ido.el (ido-completion-help): Fix up compiler warning.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/ido.el                    ido.el-20091113204419-o5vbwnq5f7feedwu-2430

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-09 00:30:24 +0000
+++ b/lisp/ChangeLog    2013-08-09 00:54:22 +0000
@@ -1,3 +1,7 @@
+2013-08-09  Stefan Monnier  <address@hidden>
+
+       * ido.el (ido-completion-help): Fix up compiler warning.
+
 2013-08-09  Juanma Barranquero  <address@hidden>
 
        * frameset.el (frameset-p): Add autoload cookie.

=== modified file 'lisp/ido.el'
--- a/lisp/ido.el       2013-08-08 14:03:56 +0000
+++ b/lisp/ido.el       2013-08-09 00:54:22 +0000
@@ -3972,12 +3972,11 @@
            (if (featurep 'xemacs)
                ;; XEmacs extents are put on by default, doesn't seem to be
                ;; any way of switching them off.
-               ;; This obscure code avoids a byte compiler warning in Emacs.
-               (let ((f 'display-completion-list))
-                 (funcall f completion-list
-                          :help-string "ido "
-                          :activate-callback
-                          (lambda (x y z) (message "Doesn't work yet, 
sorry!"))))
+                (display-completion-list
+                 completion-list
+                 :help-string "ido "
+                 :activate-callback
+                 (lambda (&rest _) (message "Doesn't work yet, sorry!")))
              ;; else running Emacs
              ;;(add-hook 'completion-setup-hook 'completion-setup-function)
              (display-completion-list completion-list)))))))