comparison lisp/prim/lisp.el @ 76:c0c698873ce1 r20-0b33

Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 54cc21c15cbb
children 0d2f883870bc
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
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 (shrink-window-if-larger-than-buffer
331 (get-buffer-window "*Completions*")))
330 (message "Making completion list...%s" "done"))))) 332 (message "Making completion list...%s" "done")))))
331 333
332 ;;; lisp.el ends here 334 ;;; lisp.el ends here