emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Fwd: Bug in lisp indentation


From: Stefan Monnier
Subject: Re: Fwd: Bug in lisp indentation
Date: Sun, 15 Jul 2007 21:49:38 -0400
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux)

> 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."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]