From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Aug 2013 00:54:22 +0000 (-0400)
Subject: * lisp/ido.el (ido-completion-help): Fix up compiler warning.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad9dcd70d619c92ba664c87eead897567b9f1691;p=emacs.git

* lisp/ido.el (ido-completion-help): Fix up compiler warning.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 382c5804330..46e8f62f19b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* ido.el (ido-completion-help): Fix up compiler warning.
+
 2013-08-09  Juanma Barranquero  <lekktu@gmail.com>
 
 	* frameset.el (frameset-p): Add autoload cookie.
diff --git a/lisp/ido.el b/lisp/ido.el
index 5d017069c5e..39ad3137bc9 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3972,12 +3972,11 @@ If `ido-change-word-sub' cannot be found in WORD, return nil."
 	    (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)))))))