diff options
| author | Chong Yidong | 2008-10-30 23:52:39 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-10-30 23:52:39 +0000 |
| commit | 361a81d9bc33b267b6062b922ee707befe73f3aa (patch) | |
| tree | aef68358445440468185da93210d6d55e890f250 | |
| parent | decaba0042071cb8a1f9e9e5dd68f50e4c50d5c7 (diff) | |
| download | emacs-361a81d9bc33b267b6062b922ee707befe73f3aa.tar.gz emacs-361a81d9bc33b267b6062b922ee707befe73f3aa.zip | |
(indent-for-tab-command): Use use-region-p.
| -rw-r--r-- | lisp/indent.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index f942847ec64..f962cf4686f 100644 --- a/lisp/indent.el +++ b/lisp/indent.el | |||
| @@ -93,8 +93,7 @@ The function actually called to indent the line is determined by the value of | |||
| 93 | (interactive "P") | 93 | (interactive "P") |
| 94 | (cond | 94 | (cond |
| 95 | ;; The region is active, indent it. | 95 | ;; The region is active, indent it. |
| 96 | ((and transient-mark-mode mark-active | 96 | ((use-region-p) |
| 97 | (not (eq (region-beginning) (region-end)))) | ||
| 98 | (indent-region (region-beginning) (region-end))) | 97 | (indent-region (region-beginning) (region-end))) |
| 99 | ((or ;; indent-to-left-margin is only meant for indenting, | 98 | ((or ;; indent-to-left-margin is only meant for indenting, |
| 100 | ;; so we force it to always insert a tab here. | 99 | ;; so we force it to always insert a tab here. |