Mercurial > emacs

diff lisp/thingatpt.el @ 47861:1a9d2889f455

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a9de3e936eef
children ac9c67849967
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