Commit 7f1422bc authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent f7583fb6
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment