diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-09-28 10:54:27 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-09-28 10:54:27 +0800 |
| commit | e090f499ee3103d5d1677c654d3d09020d7959cd (patch) | |
| tree | 47756d1cd72e53502f521fd485f7a08e9bd99c0b /lisp/textmodes | |
| parent | 7e138a62168e5a027c8818b344f73ae227cca547 (diff) | |
| download | emacs-e090f499ee3103d5d1677c654d3d09020d7959cd.tar.gz | |
Rename lookup-words to ispell-lookup-words
(ispell-complete-word, ispell-command-loop): All uses changed.
* cedet/semantic/texi.el (semantic-analyze-possible-completions): Use
ispell-lookup-words instead.
Fixes: debbugs:15460
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 3998fafa5cc..a361bdae64b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2407,7 +2407,7 @@ Global `ispell-quit' set to start location to continue spell session." " -- word-list: " (or ispell-complete-word-dict ispell-alternate-dictionary)) - miss (lookup-words new-word) + miss (ispell-lookup-words new-word) choices miss line ispell-choices-win-default-height) (while (and choices ; adjust choices window. @@ -2613,8 +2613,9 @@ SPC: Accept word this time. (sit-for 5)) (erase-buffer))))))) +(define-obsolete-function-alias 'lookup-words 'ispell-lookup-words "24.4") -(defun lookup-words (word &optional lookup-dict) +(defun ispell-lookup-words (word &optional lookup-dict) "Look up WORD in optional word-list dictionary LOOKUP-DICT. A `*' serves as a wild card. If no wild cards, `look' is used if it exists. Otherwise the variable `ispell-grep-command' contains the command used to @@ -3766,7 +3767,7 @@ Use APPEND to append the info to previous buffer if exists." ;;;###autoload (defun ispell-complete-word (&optional interior-frag) - "Try to complete the word before or under point (see `lookup-words'). + "Try to complete the word before or under point. If optional INTERIOR-FRAG is non-nil then the word may be a character sequence inside of a word. @@ -3782,11 +3783,12 @@ Standard ispell choices are then available." word (car word) possibilities (or (string= word "") ; Will give you every word - (lookup-words (concat (and interior-frag "*") word - (if (or interior-frag (null ispell-look-p)) - "*")) - (or ispell-complete-word-dict - ispell-alternate-dictionary)))) + (ispell-lookup-words + (concat (and interior-frag "*") word + (if (or interior-frag (null ispell-look-p)) + "*")) + (or ispell-complete-word-dict + ispell-alternate-dictionary)))) (cond ((eq possibilities t) (message "No word to complete")) ((null possibilities) |