diff options
| author | Glenn Morris | 2017-04-17 20:09:27 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-04-17 20:09:27 -0400 |
| commit | d0397f4a5764d3be93be3e3d35bccc1bf27522cf (patch) | |
| tree | d3a3b526599ff8de3b50e9a2c1d496166f88faec | |
| parent | d5ead735a07e619e514dd10b9e84e5d788b8a5f0 (diff) | |
| download | emacs-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.el | 5 |
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 | ||