mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases 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
Show Stats 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