mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/lisp-mode.el (indent-sexp): Clean up marker.

Browse source
This commit is contained in:
Noam Postavsky 2017-03-15 22:35:47 -04:00
parent 43c84577a3
commit 8bb5d7adaf
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1089,12 +1089,13 @@ ENDPOS is encountered."
(next-depth init-depth)
(last-depth init-depth)
(last-syntax-point (point)))
(unless endpos
;; Get error now if we don't have a complete sexp after point.
(save-excursion (forward-sexp 1)
;; We need a marker because we modify the buffer
;; text preceding endpos.
(setq endpos (point-marker))))
;; We need a marker because we modify the buffer
;; text preceding endpos.
(setq endpos (copy-marker
(if endpos endpos
;; Get error now if we don't have a complete sexp
;; after point.
(save-excursion (forward-sexp 1) (point)))))
(save-excursion
(while (< (point) endpos)
;; Parse this line so we can learn the state to indent the
@ -1154,7 +1155,8 @@ ENDPOS is encountered."
;; `calculate-lisp-indent' only returns nil
;; when we're in a string, but this won't
;; happen because we skip strings above.
(t (error "This shouldn't happen!"))))))))))))
(t (error "This shouldn't happen!"))))))))))
(move-marker endpos nil)))
(defun indent-pp-sexp (&optional arg)
"Indent each line of the list starting just after point, or prettyprint it.