comparison lisp/emacs-lisp/crm.el @ 90261:7beb78bc1f8e

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 616-696) - Add lisp/mh-e/.arch-inventory - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. - lisp/gnus/ChangeLog: Remove duplicate entry * gnus--rel--5.10 (patch 147-181) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: lisp/mml.el (mml-preview): Doc fix. - Update from CVS: texi/message.texi: Fix default values. - Update from CVS: texi/gnus.texi (RSS): Addition.
author Miles Bader <miles@gnu.org>
date Mon, 16 Jan 2006 08:37:27 +0000
parents 2d92f5c9d6ae e17240315b4a
children c5406394f567
comparison
equal deleted inserted replaced
90260:0ca0d9181b5e 90261:7beb78bc1f8e
245 minibuffer-completion-predicate))) 245 minibuffer-completion-predicate)))
246 (message nil) 246 (message nil)
247 (if (null completions) 247 (if (null completions)
248 (crm-temp-echo-area-glyphs " [No completions]") 248 (crm-temp-echo-area-glyphs " [No completions]")
249 (with-output-to-temp-buffer "*Completions*" 249 (with-output-to-temp-buffer "*Completions*"
250 (display-completion-list (sort completions 'string-lessp)))))) 250 (display-completion-list
251 (sort completions 'string-lessp)
252 crm-current-element)))))
251 nil) 253 nil)
252 254
253 (defun crm-do-completion () 255 (defun crm-do-completion ()
254 "This is the internal completion engine. 256 "This is the internal completion engine.
255 This function updates the text in the minibuffer 257 This function updates the text in the minibuffer