(lisp-indent-region): Remove unused function.

This commit is contained in:
Stefan Monnier 2009-08-16 15:40:50 +00:00
parent c3732cb802
commit 1ae7942754
2 changed files with 2 additions and 10 deletions

View file

@ -1340,16 +1340,6 @@ ENDPOS is encountered."
(setq outer-loop-done (= (point) last-point))
(setq last-point (point)))))))
(defun lisp-indent-region (start end)
"Indent every line whose first char is between START and END inclusive."
(save-excursion
(let ((endmark (copy-marker end)))
(goto-char start)
(and (bolp) (not (eolp))
(lisp-indent-line))
(indent-sexp endmark)
(set-marker endmark nil))))
(defun indent-pp-sexp (&optional arg)
"Indent each line of the list starting just after point, or prettyprint it.
A prefix argument specifies pretty-printing."