From: Kim F. Storm <storm@cua.dk>
Date: Sun, 7 Jul 2002 21:16:23 +0000 (+0000)
Subject: Changed xemacs specific code to avoid byte compiler warning in GNU
X-Git-Tag: ttn-vms-21-2-B4~14263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c1bc2463810de61b3a2448f8d231cf58d223a42;p=emacs.git

Changed xemacs specific code to avoid byte compiler warning in GNU
emacs.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 9c1c353242e..446a1239a9f 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2871,10 +2871,12 @@ for first matching file."
 	    (if ido-xemacs 
 		;; XEmacs extents are put on by default, doesn't seem to be
 		;; any way of switching them off.
-		(display-completion-list completion-list
-					 :help-string "ido "
-					 :activate-callback 
-					 '(lambda (x y z) (message "doesn't work yet, sorry!")))
+		;; This obscure code avoids a byte compiler warning in GNU 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!"))))
 	      ;; else running Emacs
 	      ;;(add-hook 'completion-setup-hook 'completion-setup-function)
 	      (display-completion-list completion-list)))))))