From 7f1422bc46763e74285cdb15ba0453b85264e5f6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 14 Oct 2002 01:27:08 +0000 Subject: [PATCH] (read-from-whole-string): Add call to `ignore'. --- lisp/thingatpt.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2