diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-07-07 21:16:23 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-07-07 21:16:23 +0000 |
| commit | 6c1bc2463810de61b3a2448f8d231cf58d223a42 (patch) | |
| tree | 20bad28f5b228bce18274b3d99a219d9bbe6e114 /lisp/ido.el | |
| parent | 85cd4372bcaf22d8f12116bd01ed332bc867902b (diff) | |
| download | emacs-6c1bc2463810de61b3a2448f8d231cf58d223a42.tar.gz | |
Changed xemacs specific code to avoid byte compiler warning in GNU
emacs.
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 10 |
1 files changed, 6 insertions, 4 deletions
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))))))) |