Commit fa47d796 authored by Dmitry Gutov's avatar Dmitry Gutov
Browse files

* 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'.
parent 62e010af
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):
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment