(lisp-indent-region): Remove unused function.
This commit is contained in:
parent
c3732cb802
commit
1ae7942754
2 changed files with 2 additions and 10 deletions
|
@ -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."
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue