Mercurial > emacs
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