(c-indent-line-or-region):

Pass prefix arg to `c-indent-command'.  Use `use-region-p'.
This commit is contained in:
Richard M. Stallman
2007-12-25 22:14:07 +00:00
parent cb3a9d33b3
commit c02a1ee94d

View File

@@ -3069,16 +3069,17 @@ non-nil."
;; compiled, e.g. in the menus.
(c-region-is-active-p))
(defun c-indent-line-or-region ()
"When the region is active, indent it syntactically. Otherwise
indent the current line syntactically."
;; Emacs has a variable called mark-active, XEmacs uses region-active-p
(interactive)
(if (and transient-mark-mode mark-active
(not (eq (region-beginning) (region-end))))
(defun c-indent-line-or-region (&optional arg region)
"Indent active region, current line, or block starting on this line.
In Transient Mark mode, when the region is active, reindent the region.
Othewise, with a prefix argument, rigidly reindent the expression
starting on the current line.
Otherwise reindent just the current line."
(interactive
(list current-prefix-arg (use-region-p)))
(if region
(c-indent-region (region-beginning) (region-end))
(c-indent-line)))
(c-indent-command arg)))
;; for progress reporting
(defvar c-progress-info nil)