🚀 go-pugleaf

In GNU Emacs 19.25.2 of Thu Aug 11 1994 on cthulhu (sparc-sun-sunos4.1.3)

lisp-indent-region doesn't DTRT if there is more than one sexp in the
region.  Only the first sexp is indented.  For example, if the region
in a lisp-mode buffer contains:

(sexp-1 arg1
arg2)
  (sexp-2) ; test
  (sexp-3)

and indent-region is called, then the result is:

(sexp-1 arg1
	arg2)
  (sexp-2)				; test
  (sexp-3)

instead of what it should be:

(sexp-1 arg1
	arg2)
(sexp-2)				; test
(sexp-3)

Work-around:
(add-hook 'lisp-mode-hook (lambda () (setq indent-region-function nil)))

The following fix seems to work, but may not be the best solution:

(defun lisp-indent-region (start end)
  (save-excursion
    (goto-char start)
    (let ((endmark (copy-marker end)))
      (while (< (point) endmark)
	(and (bolp) (not (eolp))
	     (lisp-indent-line))
	(indent-sexp endmark)
	(forward-sexp 1)
	(forward-line 1))
      (set-marker endmark nil))))

-- 
Mike Long                                         Mike.Long@Analog.com
VLSI Design Engineer                    (PGP 2.6 public key available)
Analog Devices, CPD Division
Norwood, MA 02062 USA                assert(*this!=opinionof(Analog));