diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:27:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-10-14 01:27:08 +0000 |
| commit | 7f1422bc46763e74285cdb15ba0453b85264e5f6 (patch) | |
| tree | 7b7d0c108fcbb2b7d9f935c411297ab9a2254558 /lisp/thingatpt.el | |
| parent | f7583fb625909cb0b23bd1267492d2df2459dd88 (diff) | |
| download | emacs-7f1422bc46763e74285cdb15ba0453b85264e5f6.tar.gz | |
(read-from-whole-string): Add call to `ignore'.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 6e2c4e4317b..73f88f4b4a5 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -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 |