aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2020-12-16 02:49:35 +0200
committerDmitry Gutov2020-12-16 02:49:35 +0200
commitfda9a2bbfd3adcce046c03bee72ba848c61a3e29 (patch)
tree09d44b801bca46c7f3bd9600c007eea91cd3d3a7
parent2e7402b760576b54a326fca593c948a73bc3d6d0 (diff)
downloademacs-fda9a2bbfd3adcce046c03bee72ba848c61a3e29.tar.gz
emacs-fda9a2bbfd3adcce046c03bee72ba848c61a3e29.zip
(flymake-diag-region): Fall back to (end-of-thing 'symbol)
* lisp/progmodes/flymake.el (flymake-diag-region): Fall back to (end-of-thing 'symbol) (bug#29193).
-rw-r--r--lisp/progmodes/flymake.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index efa7b2ffbf1..6c3e0a19819 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -437,7 +437,8 @@ region is invalid."
437 (if (and col (cl-plusp col)) 437 (if (and col (cl-plusp col))
438 (let* ((beg (progn (forward-char (1- col)) 438 (let* ((beg (progn (forward-char (1- col))
439 (point))) 439 (point)))
440 (sexp-end (ignore-errors (end-of-thing 'sexp))) 440 (sexp-end (or (ignore-errors (end-of-thing 'sexp))
441 (ignore-errors (end-of-thing 'symbol))))
441 (end (or (and sexp-end 442 (end (or (and sexp-end
442 (not (= sexp-end beg)) 443 (not (= sexp-end beg))
443 sexp-end) 444 sexp-end)