mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2002-10-14 01:27:08 +00:00
parent f7583fb625
commit 7f1422bc46
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/thingatpt.el
View file

@ -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