mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

Avoid infloop in 'ispell-region'

Browse Source 
* lisp/textmodes/ispell.el (ispell-begin-skip-region-regexp):
Protect against 'ispell-skip-region-alist' being nil.  Reported by
Ernest Adrogué <nfdisco@gmail.com>, see
http://lists.gnu.org/archive/html/help-gnu-emacs/2017-01/msg00007.html.
This commit is contained in:
Eli Zaretskii 2017-01-07 13:02:50 +02:00
parent 512e9886be
commit 50fd04cd4b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/textmodes/ispell.el
View File

@ -3133,7 +3133,14 @@ Must be called after `ispell-buffer-local-parsing' due to dependence on mode."
(if (string= "" comment-end) "^" (regexp-quote comment-end)))
(if (and (null ispell-check-comments) comment-start)
(regexp-quote comment-start))
(ispell-begin-skip-region ispell-skip-region-alist)
;; If they set ispell-skip-region-alist to nil, mapconcat
;; will produce an empty string, which will then match
;; anything without moving point, something
;; ispell-skip-region doesn't expect. Perhaps we should be
;; more defensive and delq "" above as well, in addition to
;; deleting nil elements.
(if ispell-skip-region-alist
(ispell-begin-skip-region ispell-skip-region-alist))
(ispell--make-filename-or-URL-re)))
"\\|"))