# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1034558828 0
# Node ID 1a9d2889f4556c491d17b3c55e69c0d5bd188675
# Parent  621b10466c9ae14fc7a0c42eff6b255fbf87e390
(read-from-whole-string): Add call to `ignore'.

diff -r 621b10466c9a -r 1a9d2889f455 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Mon Oct 14 01:25:16 2002 +0000
+++ b/lisp/thingatpt.el	Mon Oct 14 01:27:08 2002 +0000
@@ -384,7 +384,8 @@
   (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