aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2017-04-17 20:09:27 -0400
committerGlenn Morris2017-04-17 20:09:27 -0400
commitd0397f4a5764d3be93be3e3d35bccc1bf27522cf (patch)
treed3a3b526599ff8de3b50e9a2c1d496166f88faec
parentd5ead735a07e619e514dd10b9e84e5d788b8a5f0 (diff)
downloademacs-d0397f4a5764d3be93be3e3d35bccc1bf27522cf.tar.gz
emacs-d0397f4a5764d3be93be3e3d35bccc1bf27522cf.zip
ispell.el: use user-error rather than debug-ignored-errors
* lisp/textmodes/ispell.el (ispell-get-word): Use user-error. (debug-ignored-errors): No longer modify.
-rw-r--r--lisp/textmodes/ispell.el5
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index db733fe661b..773023a34a6 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2014,7 +2014,7 @@ which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'."
2014 (if ispell-check-only 2014 (if ispell-check-only
2015 ;; return dummy word when just flagging misspellings 2015 ;; return dummy word when just flagging misspellings
2016 (list "" (point) (point)) 2016 (list "" (point) (point))
2017 (error "No word found to check!")) 2017 (user-error "No word found to check!"))
2018 (setq start (copy-marker (match-beginning 0)) 2018 (setq start (copy-marker (match-beginning 0))
2019 end (point-marker) 2019 end (point-marker)
2020 word (buffer-substring-no-properties start end)) 2020 word (buffer-substring-no-properties start end))
@@ -4138,9 +4138,6 @@ Both should not be used to define a buffer-local dictionary."
4138 (insert comment-end))))) 4138 (insert comment-end)))))
4139 (insert (concat " " word)))))))) 4139 (insert (concat " " word))))))))
4140 4140
4141;;FIXME: Use `user-error' instead!
4142(add-to-list 'debug-ignored-errors "^No word found to check!$")
4143
4144(provide 'ispell) 4141(provide 'ispell)
4145 4142
4146 4143