Mercurial > hg > xemacs-beta

comparison lisp/list-mode.el @ 314:341dac730539 r21-0b55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b55
author cvs
date Mon, 13 Aug 2007 10:44:22 +0200
parents 6cb5e14cd98e
children 8429d81ab209
comparison
equal deleted inserted replaced
313:2905de29931f 314:341dac730539
282 (cl-parsing-keywords 282 (cl-parsing-keywords
283 ((:activate-callback 'default-choose-completion) 283 ((:activate-callback 'default-choose-completion)
284 :user-data 284 :user-data
285 :reference-buffer 285 :reference-buffer
286 (:help-string completion-default-help-string) 286 (:help-string completion-default-help-string)
287 (:completion-string "Possible completions are:")
287 :window-width) 288 :window-width)
288 () 289 ()
289 (let ((old-buffer (current-buffer)) 290 (let ((old-buffer (current-buffer))
290 (bufferp (bufferp standard-output))) 291 (bufferp (bufferp standard-output)))
291 (if bufferp 292 (if bufferp
339 ;; re-space the columns 340 ;; re-space the columns
340 (setq max-width (/ win-width cols)) 341 (setq max-width (/ win-width cols))
341 (if (/= (% count cols) 0) ; want ceiling... 342 (if (/= (% count cols) 0) ; want ceiling...
342 (1+ (/ count cols)) 343 (1+ (/ count cols))
343 (/ count cols))))))) 344 (/ count cols)))))))
344 (princ (gettext "Possible completions are:")) 345 (if (stringp cl-completion-string)
346 (princ (gettext cl-completion-string)))
345 (let ((tail completions) 347 (let ((tail completions)
346 (r 0) 348 (r 0)
347 (regexp-string 349 (regexp-string
348 (if (eq t 350 (if (eq t
349 completion-highlight-first-word-only) 351 completion-highlight-first-word-only)