diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-09-05 11:22:11 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-09-05 11:22:11 +0300 |
| commit | ec14f087535282c188861815ac806024274185d5 (patch) | |
| tree | f05e2db0489a1033b9aef5d4bfbfdc89ef40c885 /lisp/thingatpt.el | |
| parent | 90937cbfe48229028d839a5e8c5815020e84b235 (diff) | |
| download | emacs-ec14f087535282c188861815ac806024274185d5.tar.gz | |
Avoid errors in thing-at-point with 2nd argument non-nil
* lisp/thingatpt.el (thing-at-point): Only call 'length' on
sequences. (Bug#21391)
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 6e90b265082..a9c539b7b87 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -145,7 +145,7 @@ a symbol as a valid THING." (let ((bounds (bounds-of-thing-at-point thing))) (when bounds (buffer-substring (car bounds) (cdr bounds))))))) - (when (and text no-properties) + (when (and text no-properties (sequencep text)) (set-text-properties 0 (length text) nil text)) text)) |