[Emacs-diffs] master ec14f08: Avoid errors in thing-at-point with 2nd argument non-nil

[Eli Zaretskii]

branch: master
commit ec14f087535282c188861815ac806024274185d5
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Avoid errors in thing-at-point with 2nd argument non-nil
    
    * lisp/thingatpt.el (thing-at-point): Only call 'length' on
    sequences.  (Bug#21391)
---
 lisp/thingatpt.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 6e90b26..a9c539b 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))