* bug#15460: 24.3; [PATCH] rename lookup-words to ispell-lookup-words
@ 2013-09-25 5:13 Leo Liu
2013-09-28 2:56 ` Leo Liu
0 siblings, 1 reply; 2+ messages in thread
From: Leo Liu @ 2013-09-25 5:13 UTC (permalink / raw)
To: 15460
Any objection to renaming lookup-words?
=== modified file 'lisp/cedet/semantic/texi.el'
--- lisp/cedet/semantic/texi.el 2013-01-01 09:11:05 +0000
+++ lisp/cedet/semantic/texi.el 2013-09-25 05:09:43 +0000
@@ -32,7 +32,7 @@
(require 'texinfo)
(defvar ede-minor-mode)
-(declare-function lookup-words "ispell")
+(declare-function ispell-lookup-words "ispell")
(declare-function ede-current-project "ede")
(defvar semantic-texi-super-regex
@@ -431,7 +431,7 @@
((member 'word (oref context :prefixclass))
;; Do completion for words via ispell.
(require 'ispell)
- (let ((word-list (lookup-words prefix)))
+ (let ((word-list (ispell-lookup-words prefix)))
(mapcar (lambda (f) (semantic-tag f 'word)) word-list))
)
(t nil))
=== modified file 'lisp/textmodes/ispell.el'
--- lisp/textmodes/ispell.el 2013-08-05 14:26:57 +0000
+++ lisp/textmodes/ispell.el 2013-09-25 05:11:28 +0000
@@ -2407,7 +2407,7 @@
" -- 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.
@@ -2614,7 +2614,7 @@
(erase-buffer)))))))
-(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 +3766,7 @@
;;;###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 +3782,12 @@
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)
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2013-09-28 2:56 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-09-25 5:13 bug#15460: 24.3; [PATCH] rename lookup-words to ispell-lookup-words Leo Liu
2013-09-28 2:56 ` Leo Liu
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.