comparison lisp/prim/lisp.el @ 116:9f59509498e1 r20-1b10

Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 0d2f883870bc
children 1370575f1259
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
324 (car list)) 324 (car list))
325 new)) 325 new))
326 (setq list (cdr list))) 326 (setq list (cdr list)))
327 (setq list (nreverse new)))) 327 (setq list (nreverse new))))
328 (with-output-to-temp-buffer "*Completions*" 328 (with-output-to-temp-buffer "*Completions*"
329 (display-completion-list list)) 329 (display-completion-list list)))
330 (when temp-buffer-shrink-to-fit
331 (shrink-window-if-larger-than-buffer
332 (get-buffer-window "*Completions*"))))
333 (message "Making completion list...%s" "done"))))) 330 (message "Making completion list...%s" "done")))))
334 331
335 ;;; lisp.el ends here 332 ;;; lisp.el ends here