Re: Fwd: Bug in lisp indentation

[Stefan Monnier <monnier@iro.umontreal.ca>]

> neither is the beaviour of indent-region consistent with TAB.

This is very easy to fix.  And I think it's a good idea in any case.
See patch below,


        Stefan


--- lisp-mode.el	08 jui 2007 14:44:28 -0400	1.202
+++ lisp-mode.el	15 jui 2007 21:49:08 -0400	
@@ -214,8 +214,6 @@
   ;;(set (make-local-variable 'adaptive-fill-mode) nil)
   (make-local-variable 'indent-line-function)
   (setq indent-line-function 'lisp-indent-line)
-  (make-local-variable 'indent-region-function)
-  (setq indent-region-function 'lisp-indent-region)
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t)
   (make-local-variable 'outline-regexp)
@@ -1206,16 +1204,6 @@
 	    (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."