Commit ec14f087 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Avoid errors in thing-at-point with 2nd argument non-nil

* lisp/thingatpt.el (thing-at-point): Only call 'length' on
sequences.  (Bug#21391)
parent 90937cbf
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment