diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-16 02:49:35 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-16 02:49:35 +0200 |
| commit | fda9a2bbfd3adcce046c03bee72ba848c61a3e29 (patch) | |
| tree | 09d44b801bca46c7f3bd9600c007eea91cd3d3a7 /lisp | |
| parent | 2e7402b760576b54a326fca593c948a73bc3d6d0 (diff) | |
| download | emacs-fda9a2bbfd3adcce046c03bee72ba848c61a3e29.tar.gz emacs-fda9a2bbfd3adcce046c03bee72ba848c61a3e29.tar.bz2 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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/flymake.el | 3 |
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." (if (and col (cl-plusp col)) (let* ((beg (progn (forward-char (1- col)) (point))) - (sexp-end (ignore-errors (end-of-thing 'sexp))) + (sexp-end (or (ignore-errors (end-of-thing 'sexp)) + (ignore-errors (end-of-thing 'symbol)))) (end (or (and sexp-end (not (= sexp-end beg)) sexp-end) |