Function: thing-at-point--read-from-whole-string

thing-at-point--read-from-whole-string is a byte-compiled function defined in thingatpt.el.gz.

Signature

(thing-at-point--read-from-whole-string STR)

Documentation

Read a Lisp expression from STR.

Signal an error if the entire string was not used.

Aliases

read-from-whole-string (obsolete since 25.1)

Source Code

;; Defined in /usr/src/emacs/lisp/thingatpt.el.gz
(defun thing-at-point--read-from-whole-string (str)
  "Read a Lisp expression from STR.
Signal an error if the entire string was not used."
  (let* ((read-data (read-from-string str))
	 (more-left
	  (condition-case nil
	      ;; The call to `ignore' suppresses a compiler warning.
	      (progn (ignore (read-from-string (substring str (cdr read-data))))
		     t)
	    (end-of-file nil))))
    (if more-left
	(error "Can't read whole string")
      (car read-data))))