mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2013-08-08 20:54:22 -04:00
parent 241de2901e
commit ad9dcd70d6
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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> 2013-08-09 Juanma Barranquero <lekktu@gmail.com>
* frameset.el (frameset-p): Add autoload cookie. * frameset.el (frameset-p): Add autoload cookie.

11
lisp/ido.el
View File

@ -3972,12 +3972,11 @@ If `ido-change-word-sub' cannot be found in WORD, return nil."
(if (featurep 'xemacs) (if (featurep 'xemacs)
;; XEmacs extents are put on by default, doesn't seem to be ;; XEmacs extents are put on by default, doesn't seem to be
;; any way of switching them off. ;; any way of switching them off.
;; This obscure code avoids a byte compiler warning in Emacs. (display-completion-list
(let ((f 'display-completion-list)) completion-list
(funcall f completion-list :help-string "ido "
:help-string "ido " :activate-callback
:activate-callback (lambda (&rest _) (message "Doesn't work yet, sorry!")))
(lambda (x y z) (message "Doesn't work yet, sorry!"))))
;; else running Emacs ;; else running Emacs
;;(add-hook 'completion-setup-hook 'completion-setup-function) ;;(add-hook 'completion-setup-hook 'completion-setup-function)
(display-completion-list completion-list))))))) (display-completion-list completion-list)))))))