Commit b2388336 authored by Dmitry Gutov's avatar Dmitry Gutov
Browse files

* lisp/emacs-lisp/lisp.el (lisp--local-variables): Catch `end-of-file'

error from `read-from-string'.

Fixes: debbugs:16850
parent 40ff7f86
2014-02-26 Dmitry Gutov <dgutov@yandex.ru>
* emacs-lisp/lisp.el (lisp--local-variables): Catch `end-of-file'
error from `read-from-string'. (Bug#16850)
* emacs-lisp/ert.el (ert-run-tests-interactively): `read' the
result of `completing-read' in the interactive form. (Bug#16854)
......
......@@ -719,8 +719,10 @@ considered."
(dolist (p (nth 9 ppss))
(push (cdr (syntax-after p)) closer))
(setq closer (apply #'string closer))
(let* ((sexp (car (read-from-string
(concat txt "lisp--witness--lisp" closer))))
(let* ((sexp (condition-case nil
(car (read-from-string
(concat txt "lisp--witness--lisp" closer)))
(end-of-file nil)))
(macroexpand-advice (lambda (expander form &rest args)
(condition-case nil
(apply expander form args)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment