Mercurial > hg > xemacs-beta

comparison lisp/list-mode.el @ 2098:9a1950c1e051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-25 22:13:28 by adrian] [PATCH] XEmacs 21.5: completion list to wide bug fixed <qdhekpv3zgh.fsf@DUN0831.ee.eur.nec.de>
author adrian
date Tue, 25 May 2004 22:13:28 +0000
parents abe6d1db359e
children ea07b60c097f
comparison
equal deleted inserted replaced
2097:8a29ddd7e34b 2098:9a1950c1e051
328 (princ (gettext 328 (princ (gettext
329 "There are no possible completions of what you have typed.")) 329 "There are no possible completions of what you have typed."))
330 (let ((win-width 330 (let ((win-width
331 (or cl-window-width 331 (or cl-window-width
332 (if bufferp 332 (if bufferp
333 ;; This needs fixing for the case of windows
334 ;; that aren't the same width's the frame.
335 ;; Sadly, the window it will appear in is not known
336 ;; until after the text has been made.
337
338 ;; We have to use last-nonminibuf-frame here 333 ;; We have to use last-nonminibuf-frame here
339 ;; and not selected-frame because if a 334 ;; and not selected-frame because if a
340 ;; minibuffer-only frame is being used it will 335 ;; minibuffer-only frame is being used it will
341 ;; be the selected-frame at the point this is 336 ;; be the selected-frame at the point this is
342 ;; run. We keep the selected-frame call around 337 ;; run. We keep the selected-frame call around
343 ;; just in case. 338 ;; just in case.
344 (frame-width (or (last-nonminibuf-frame) 339 (window-width (get-lru-window (last-nonminibuf-frame)))
345 (selected-frame)))
346 80)))) 340 80))))
347 (let ((count 0) 341 (let ((count 0)
348 (max-width 0) 342 (max-width 0)
349 old-max-width) 343 old-max-width)
350 ;; Find longest completion 344 ;; Find longest completion