* lisp/textmodes/ispell.el (ispell-lookup-words): When `look' is not

available and the word has no wildcards, append one to the grep
pattern.
http://lists.gnu.org/archive/html/emacs-devel/2013-11/msg00258.html
(ispell-complete-word): Call `ispell-lookup-words' with the value
independent of `ispell-look-p'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 794b13d752b3bb7a002dd9a5d1751273ec3dfdda..6ac129e6a27c9cd7ec9f048de1f0e78c3737a90f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-11-09  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * textmodes/ispell.el (ispell-lookup-words): When `look' is not
+       available and the word has no wildcards, append one to the grep
+       pattern.
+       http://lists.gnu.org/archive/html/emacs-devel/2013-11/msg00258.html
+       (ispell-complete-word): Call `ispell-lookup-words' with the value
+       independent of `ispell-look-p'.
+
 2013-11-08  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/ruby-mode.el (ruby-smie--implicit-semi-p):

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index a361bdae64bde37e5e767d8d40a325d58f2f8385..651aaa2668845faa782465fe9fea96f47a14d81d 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2649,8 +2649,12 @@ if defined."
       (message "Starting \"%s\" process..." (file-name-nondirectory prog))
       (if look-p
           nil
+        (insert "^" word)
+        ;; When there are no wildcards, append one, for consistency
+        ;; with `look' behavior.
+        (unless wild-p (insert "*"))
+        (insert "$")
         ;; Convert * to .*
-        (insert "^" word "$")
         (while (search-backward "*" nil t) (insert "."))
         (setq word (buffer-string))
         (erase-buffer))
@@ -3785,8 +3789,7 @@ Standard ispell choices are then available."
          (or (string= word "")         ; Will give you every word
              (ispell-lookup-words
               (concat (and interior-frag "*") word
-                      (if (or interior-frag (null ispell-look-p))
-                          "*"))
+                      (and interior-frag "*"))
               (or ispell-complete-word-dict
                   ispell-alternate-dictionary))))
     (cond ((eq possibilities t)