# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1026076583 0
# Node ID 172a10dd044bcc5e4498d91b164934ee5cd32e57
# Parent  98786eb38aedcdc40543116cd12c3ed8fac1f19e
Changed xemacs specific code to avoid byte compiler warning in GNU
emacs.

diff -r 98786eb38aed -r 172a10dd044b lisp/ido.el
--- a/lisp/ido.el	Sun Jul 07 21:09:14 2002 +0000
+++ b/lisp/ido.el	Sun Jul 07 21:16:23 2002 +0000
@@ -2871,10 +2871,12 @@
 	    (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)))))))