Commit 6dd697d9 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(indent-for-tab-command): Indent the region if

transient-mark-mode and the region is active.
parent c7da3b70
......@@ -110,6 +110,9 @@ file or directory.
* Editing Changes in Emacs 23.1
** TAB now indents the region if the region is active and
`transient-mark-mode' is turned on.
** C-z now invokes `suspend-frame', C-x C-c now invokes
`save-buffers-kill-terminal'.
......
2007-09-22 Dan Nicolaescu <dann@ics.uci.edu>
* indent.el (indent-for-tab-command): Indent the region if
transient-mark-mode and the region is active.
2007-09-21 Francesco Potort,Al(B <pot@gnu.org>
* progmodes/octave-inf.el (inferior-octave-mode): Use add-hook to
......
......@@ -78,11 +78,13 @@ special; we don't actually use them here."
(funcall indent-line-function)))
(defun indent-for-tab-command (&optional arg)
"Indent line in proper way for current major mode or insert a tab.
"Indent line or region in proper way for current major mode or insert a tab.
Depending on `tab-always-indent', either insert a tab or indent.
If initial point was within line's indentation, position after
the indentation. Else stay at same point in text.
The function actually called to indent is determined by the value of
If `transient-mark-mode' is turned on the region is active,
indent the region.
The function actually called to indent the line is determined by the value of
`indent-line-function'."
(interactive "P")
(cond
......@@ -97,7 +99,12 @@ The function actually called to indent is determined by the value of
;; 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))
(t ;; The normal case.
;; 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))))
(defun insert-tab (&optional arg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment