Mercurial > emacs

comparison lisp/textmodes/=ispell4.el @ 7841:f152f2b276c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-complete-word): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Jun 1994 23:00:40 +0000
parents edf32f56ba70
children 0b9e18f9b085
comparison
equal deleted inserted replaced
7840:31956391d7ea 7841:f152f2b276c5
894 ;; * String is a common substring completion already. Make list. 894 ;; * String is a common substring completion already. Make list.
895 (t 895 (t
896 (message "Making completion list...") 896 (message "Making completion list...")
897 (if (string-equal completion "") (delete-region bow (point))) 897 (if (string-equal completion "") (delete-region bow (point)))
898 (let ((list (all-completions prefix ispell-lookup-completions-alist))) 898 (let ((list (all-completions prefix ispell-lookup-completions-alist)))
899 (with-output-to-temp-buffer " *Completions*" 899 (with-output-to-temp-buffer "*Completions*"
900 (display-completion-list list))) 900 (display-completion-list list)))
901 (message "Making completion list...done"))))) 901 (message "Making completion list...done")))))
902 902
903 ;;;###autoload 903 ;;;###autoload
904 (defun ispell-complete-word-interior-frag () 904 (defun ispell-complete-word-interior-frag ()