procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't error when indenting malformed Lisp (Bug#30891)

Browse source 
* lisp/emacs-lisp/lisp-mode.el (lisp-indent-calc-next): If we run out
of indent stack, reset the parse state.
This commit is contained in:
Noam Postavsky 2018-03-17 21:14:11 -04:00
parent c3adbc88a0
commit 92de44fa1f
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mode.el
View file

@ -827,6 +827,10 @@ by more than one line to cross a string literal."
(prog1 (prog1
(let (indent) (let (indent)
(cond ((= (forward-line 1) 1) nil) (cond ((= (forward-line 1) 1) nil)
;; Negative depth, probably some kind of syntax error.
((null indent-stack)
;; Reset state.
(setq ppss (parse-partial-sexp (point) (point))))
((car indent-stack)) ((car indent-stack))
((integerp (setq indent (calculate-lisp-indent ppss))) ((integerp (setq indent (calculate-lisp-indent ppss)))
(setf (car indent-stack) indent)) (setf (car indent-stack) indent))