X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Flist-mode.el;h=454418670be89531b6e6c8ee76e4c78ee02d5abb;hp=f171b11d2ba02b51369a9017d99f07cb3bc5f05a;hb=8ba3626da629f1b4ecafae24c85f3d0cb3bf8b8e;hpb=dbf2768f7b146e97e37a27316f70bb313f1acf15

diff --git a/lisp/list-mode.el b/lisp/list-mode.el
index f171b11..4544186 100644
--- a/lisp/list-mode.el
+++ b/lisp/list-mode.el
@@ -330,19 +330,13 @@ If `completion-highlight-first-word-only' is non-nil, then only the start
 	(let ((win-width
 	       (or cl-window-width
 		   (if bufferp
-		       ;; This needs fixing for the case of windows 
-		       ;; that aren't the same width's the frame.
-		       ;; Sadly, the window it will appear in is not known
-		       ;; until after the text has been made.
-
 		       ;; We have to use last-nonminibuf-frame here
 		       ;; and not selected-frame because if a
 		       ;; minibuffer-only frame is being used it will
 		       ;; be the selected-frame at the point this is
 		       ;; run.  We keep the selected-frame call around
 		       ;; just in case.
-		       (frame-width (or (last-nonminibuf-frame)
-					(selected-frame)))
+               (window-width (get-lru-window (last-nonminibuf-frame)))
 		     80))))
 	  (let ((count 0)
 		(max-width 0)