diff options
| author | Dmitry Gutov | 2020-12-16 02:49:35 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2020-12-16 02:49:35 +0200 |
| commit | fda9a2bbfd3adcce046c03bee72ba848c61a3e29 (patch) | |
| tree | 09d44b801bca46c7f3bd9600c007eea91cd3d3a7 | |
| parent | 2e7402b760576b54a326fca593c948a73bc3d6d0 (diff) | |
| download | emacs-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.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." | |||
| 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) |