[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/indent.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/indent.el,v |
Date: |
Mon, 24 Sep 2007 17:48:52 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 07/09/24 17:48:51
Index: indent.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/indent.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -b -r1.69 -r1.70
--- indent.el 22 Sep 2007 00:56:59 -0000 1.69
+++ indent.el 24 Sep 2007 17:48:49 -0000 1.70
@@ -88,6 +88,10 @@
`indent-line-function'."
(interactive "P")
(cond
+ ;; The region is active, indent it.
+ ((and transient-mark-mode mark-active
+ (not (eq (region-beginning) (region-end))))
+ (indent-region (region-beginning) (region-end)))
((or ;; indent-to-left-margin is only meant for indenting,
;; so we force it to always insert a tab here.
(eq indent-line-function 'indent-to-left-margin)
@@ -99,10 +103,6 @@
;; indenting, so we can't pass them to indent-according-to-mode.
((memq indent-line-function '(indent-relative indent-relative-maybe))
(funcall indent-line-function))
- ;; The region is active, indent it.
- ((and transient-mark-mode mark-active
- (not (eq (region-beginning) (region-end))))
- (indent-region (region-beginning) (region-end)))
;; Indent the line.
(t
(indent-according-to-mode))))