changeset 47861:1a9d2889f455

(read-from-whole-string): Add call to `ignore'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 14 Oct 2002 01:27:08 +0000
parents 621b10466c9a
children ac9c67849967
files lisp/thingatpt.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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