Mercurial > emacs
comparison lisp/indent.el @ 85379:3664514f5c60
(indent-for-tab-command): Change interactive spec from "P" to "p".
(indent-for-tab-command): Add check for interactive arg before
indenting the active region.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Thu, 18 Oct 2007 00:08:08 +0000 |
parents | f4b3c97a692f |
children | b210bba3f477 1251cabc40b7 |
comparison
equal
deleted
inserted
replaced
85378:5e06a33ec5a4 | 85379:3664514f5c60 |
---|---|
84 the indentation. Else stay at same point in text. | 84 the indentation. Else stay at same point in text. |
85 If `transient-mark-mode' is turned on the region is active, | 85 If `transient-mark-mode' is turned on the region is active, |
86 indent the region. | 86 indent the region. |
87 The function actually called to indent the line is determined by the value of | 87 The function actually called to indent the line is determined by the value of |
88 `indent-line-function'." | 88 `indent-line-function'." |
89 (interactive "P") | 89 (interactive "p") |
90 (cond | 90 (cond |
91 ;; The region is active, indent it. | 91 ;; The region is active, indent it. |
92 ((and transient-mark-mode mark-active | 92 ((and arg transient-mark-mode mark-active |
93 (not (eq (region-beginning) (region-end)))) | 93 (not (eq (region-beginning) (region-end)))) |
94 (indent-region (region-beginning) (region-end))) | 94 (indent-region (region-beginning) (region-end))) |
95 ((or ;; indent-to-left-margin is only meant for indenting, | 95 ((or ;; indent-to-left-margin is only meant for indenting, |
96 ;; so we force it to always insert a tab here. | 96 ;; so we force it to always insert a tab here. |
97 (eq indent-line-function 'indent-to-left-margin) | 97 (eq indent-line-function 'indent-to-left-margin) |