Mercurial > emacs

comparison lisp/indent.el @ 85379:3664514f5c60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)