diff options
| -rw-r--r-- | lisp/thingatpt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 6e2c4e4317b..73f88f4b4a5 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -384,7 +384,8 @@ Signal an error if the entire string was not used." (let* ((read-data (read-from-string str)) (more-left (condition-case nil - (progn (read-from-string (substring str (cdr read-data))) + ;; The call to `ignore' suppresses a warning. + (progn (ignore (read-from-string (substring str (cdr read-data)))) t) (end-of-file nil)))) (if more-left |