2871 |
(if ido-xemacs |
(if ido-xemacs |
2872 |
;; XEmacs extents are put on by default, doesn't seem to be |
;; XEmacs extents are put on by default, doesn't seem to be |
2873 |
;; any way of switching them off. |
;; any way of switching them off. |
2874 |
(display-completion-list completion-list |
;; This obscure code avoids a byte compiler warning in GNU emacs. |
2875 |
:help-string "ido " |
(let ((f 'display-completion-list)) |
2876 |
:activate-callback |
(funcall f completion-list |
2877 |
'(lambda (x y z) (message "doesn't work yet, sorry!"))) |
:help-string "ido " |
2878 |
|
:activate-callback |
2879 |
|
'(lambda (x y z) (message "doesn't work yet, sorry!")))) |
2880 |
;; else running Emacs |
;; else running Emacs |
2881 |
;;(add-hook 'completion-setup-hook 'completion-setup-function) |
;;(add-hook 'completion-setup-hook 'completion-setup-function) |
2882 |
(display-completion-list completion-list))))))) |
(display-completion-list completion-list))))))) |