From: Leo Liu <sdl.web@gmail.com>
To: 15460@debbugs.gnu.org
Subject: bug#15460: 24.3; [PATCH] rename lookup-words to ispell-lookup-words
Date: Wed, 25 Sep 2013 13:13:28 +0800 [thread overview]
Message-ID: <m161tpa3gn.fsf@gmail.com> (raw)
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)
next reply other threads:[~2013-09-25 5:13 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-09-25 5:13 Leo Liu [this message]
2013-09-28 2:56 ` bug#15460: 24.3; [PATCH] rename lookup-words to ispell-lookup-words Leo Liu
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m161tpa3gn.fsf@gmail.com \
--to=sdl.web@gmail.com \
--cc=15460@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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.