From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Oct 2002 01:27:08 +0000 (+0000)
Subject: (read-from-whole-string): Add call to `ignore'.
X-Git-Tag: ttn-vms-21-2-B4~12849
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f1422bc46763e74285cdb15ba0453b85264e5f6;p=emacs.git

(read-from-whole-string): Add call to `ignore'.
---

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