[Emacs-diffs] trunk r115045: * lisp/textmodes/ispell.el (ispell-lookup-words): When `look' is not

[Dmitry Gutov]

------------------------------------------------------------
revno: 115045
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Sat 2013-11-09 03:12:25 +0200
message:
  * 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'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/ispell.el       ispell.el-20091113204419-o5vbwnq5f7feedwu-694

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-08 23:59:56 +0000
+++ b/lisp/ChangeLog    2013-11-09 01:12:25 +0000
@@ -1,3 +1,12 @@
+2013-11-09  Dmitry Gutov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-smie--implicit-semi-p):

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2013-09-28 02:54:27 +0000
+++ b/lisp/textmodes/ispell.el  2013-11-09 01:12:25 +0000
@@ -2649,8 +2649,12 @@
       (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 @@
          (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)