Mercurial > emacs
annotate lisp/indent.el @ 107617:c5f9e4613394
Merge from mainline.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 16 Jan 2010 06:57:09 -0500 |
parents | 1d1d5d9bd884 |
children | eeda0c6e1f2f |
rev | line source |
---|---|
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
1 ;;; indent.el --- indentation commands for Emacs |
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
2 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64091
diff
changeset
|
3 ;; Copyright (C) 1985, 1995, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
845 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
6 ;; Maintainer: FSF |
263 | 7 |
8 ;; This file is part of GNU Emacs. | |
9 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
263 | 11 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; (at your option) any later version. |
263 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
263 | 22 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
23 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
24 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
25 ;; Commands for making and changing indentation in text. These are |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
26 ;; described in the Emacs manual. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
27 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
28 ;;; Code: |
263 | 29 |
19420 | 30 (defgroup indent nil |
64012
70dbaa65c723
(indent): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
57676
diff
changeset
|
31 "Indentation commands." |
19420 | 32 :group 'editing) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
33 |
19420 | 34 (defcustom standard-indent 4 |
100171 | 35 "Default number of columns for margin-changing functions to indent." |
19420 | 36 :group 'indent |
37 :type 'integer) | |
38 | |
41845
23120b6a0225
(indent-line-function): Default is indent-relative again.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41762
diff
changeset
|
39 (defvar indent-line-function 'indent-relative |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
40 "Function to indent the current line. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
41 This function will be called with no arguments. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
42 If it is called somewhere where auto-indentation cannot be done |
98147
0db3bd4aa48f
(indent-line-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
43 \(e.g. inside a string), the function should simply return `noindent'. |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
44 Setting this function is all you need to make TAB indent appropriately. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
45 Don't rebind TAB unless you really need to.") |
263 | 46 |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
47 (defcustom tab-always-indent t |
100171 | 48 "Controls the operation of the TAB key. |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
49 If t, hitting TAB always just indents the current line. |
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
50 If nil, hitting TAB indents the current line if point is at the left margin |
81327
f43a57ce897e
(tab-always-indent): Docstring fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
51 or in the line's indentation, otherwise it inserts a \"real\" TAB character. |
106482
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
52 If `complete', TAB first tries to indent the current line, and if the line |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
53 was already indented, then try to complete the thing at point. |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
54 |
81327
f43a57ce897e
(tab-always-indent): Docstring fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
55 Some programming language modes have their own variable to control this, |
74821
35c1ecc52a29
(tab-always-indent): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
74231
diff
changeset
|
56 e.g., `c-tab-always-indent', and do not respect this variable." |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
57 :group 'indent |
40636
1b4d4e638a5b
(tab-always-indent, indent-for-tab-command):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40482
diff
changeset
|
58 :type '(choice (const nil) (const t) (const always))) |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
59 |
263 | 60 (defun indent-according-to-mode () |
48581
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
61 "Indent line in proper way for current major mode. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
62 The buffer-local variable `indent-line-function' determines how to do this, |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
63 but the functions `indent-relative' and `indent-relative-maybe' are |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
64 special; we don't actually use them here." |
263 | 65 (interactive) |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
66 (if (memq indent-line-function |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
67 '(indent-relative indent-relative-maybe)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
68 ;; These functions are used for tabbing, but can't be used for |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
69 ;; indenting. Replace with something ad-hoc. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
70 (let ((column (save-excursion |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
71 (beginning-of-line) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
72 (skip-chars-backward "\n \t") |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
73 (beginning-of-line) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
74 (current-indentation)))) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
75 (if (<= (current-column) (current-indentation)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
76 (indent-line-to column) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
77 (save-excursion (indent-line-to column)))) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
78 ;; The normal case. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
79 (funcall indent-line-function))) |
263 | 80 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
81 (defun indent-for-tab-command (&optional arg) |
84773
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
82 "Indent line or region in proper way for current major mode or insert a tab. |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
83 Depending on `tab-always-indent', either insert a tab or indent. |
31593
833ec296540e
(indent-for-tab-command): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30690
diff
changeset
|
84 If initial point was within line's indentation, position after |
833ec296540e
(indent-for-tab-command): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
30690
diff
changeset
|
85 the indentation. Else stay at same point in text. |
87393
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
86 |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
87 If a prefix argument is given, also rigidly indent the entire |
103263
f1b56c6c0ebc
* indent.el (indent-for-tab-command): Fix typo in docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
88 balanced expression which starts at the beginning of the current |
87393
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
89 line to reflect the current line's change in indentation. |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
90 |
87336
9088a29785d1
(indent-for-tab-command): Fix doc-string typo.
Martin Rudalics <rudalics@gmx.at>
parents:
87180
diff
changeset
|
91 If `transient-mark-mode' is turned on and the region is active, |
87393
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
92 indent the region (in this case, any prefix argument is ignored). |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
93 |
84773
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
94 The function actually called to indent the line is determined by the value of |
30690
e666b7ea99a9
(indent-for-tab-command): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents:
26169
diff
changeset
|
95 `indent-line-function'." |
13035
b8453eab5114
(indent-for-tab-command): Get the prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
12778
diff
changeset
|
96 (interactive "P") |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
97 (cond |
84840
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84773
diff
changeset
|
98 ;; The region is active, indent it. |
99266
8d57082234b9
(indent-for-tab-command): Use use-region-p.
Chong Yidong <cyd@stupidchicken.com>
parents:
98147
diff
changeset
|
99 ((use-region-p) |
84840
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84773
diff
changeset
|
100 (indent-region (region-beginning) (region-end))) |
40636
1b4d4e638a5b
(tab-always-indent, indent-for-tab-command):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40482
diff
changeset
|
101 ((or ;; indent-to-left-margin is only meant for indenting, |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
102 ;; so we force it to always insert a tab here. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
103 (eq indent-line-function 'indent-to-left-margin) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
104 (and (not tab-always-indent) |
50140
f94aa8667875
(indent-for-tab-command): If tab-always-indent is non-nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49597
diff
changeset
|
105 (or (> (current-column) (current-indentation)) |
f94aa8667875
(indent-for-tab-command): If tab-always-indent is non-nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49597
diff
changeset
|
106 (eq this-command last-command)))) |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
107 (insert-tab arg)) |
84773
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
108 (t |
106482
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
109 (let ((old-tick (buffer-chars-modified-tick)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
110 (old-point (point)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
111 (old-indent (current-indentation))) |
87393
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
112 |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
113 ;; Indent the line. |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
114 (funcall indent-line-function) |
c5dbee67727b
Add prefix arg handling to indent-for-tab-command
Miles Bader <miles@gnu.org>
parents:
87336
diff
changeset
|
115 |
106482
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
116 (cond |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
117 ;; If the text was already indented right, try completion. |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
118 ((and (eq tab-always-indent 'complete) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
119 (eq old-point (point)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
120 (eq old-tick (buffer-chars-modified-tick))) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
121 (completion-at-point)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
122 |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
123 ;; If a prefix argument was given, rigidly indent the following |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
124 ;; sexp to match the change in the current line's indentation. |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
125 (arg |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
126 (let ((end-marker |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
127 (save-excursion |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
128 (forward-line 0) (forward-sexp) (point-marker))) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
129 (indentation-change (- (current-indentation) old-indent))) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
130 (save-excursion |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
131 (forward-line 1) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
132 (when (and (not (zerop indentation-change)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
133 (< (point) end-marker)) |
806e9f7990d8
* minibuffer.el (completion-at-point-functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
103263
diff
changeset
|
134 (indent-rigidly (point) end-marker indentation-change)))))))))) |
263 | 135 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
136 (defun insert-tab (&optional arg) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
137 (let ((count (prefix-numeric-value arg))) |
19508
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
138 (if (and abbrev-mode |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
139 (eq (char-syntax (preceding-char)) ?w)) |
15106
83b8438fa1a4
(indent-for-tab-command): Pass prefix arg to indent-tab.
Richard M. Stallman <rms@gnu.org>
parents:
14770
diff
changeset
|
140 (expand-abbrev)) |
83b8438fa1a4
(indent-for-tab-command): Pass prefix arg to indent-tab.
Richard M. Stallman <rms@gnu.org>
parents:
14770
diff
changeset
|
141 (if indent-tabs-mode |
15113
8db176b73c9f
(insert-tab): fix previous change
Erik Naggum <erik@naggum.no>
parents:
15106
diff
changeset
|
142 (insert-char ?\t count) |
15106
83b8438fa1a4
(indent-for-tab-command): Pass prefix arg to indent-tab.
Richard M. Stallman <rms@gnu.org>
parents:
14770
diff
changeset
|
143 (indent-to (* tab-width (+ count (/ (current-column) tab-width))))))) |
263 | 144 |
145 (defun indent-rigidly (start end arg) | |
146 "Indent all lines starting in the region sideways by ARG columns. | |
45438
7a6c116b0d4a
(indent-rigidly): Mention how to remove all indentation.
Eli Zaretskii <eliz@gnu.org>
parents:
45367
diff
changeset
|
147 Called from a program, takes three arguments, START, END and ARG. |
7a6c116b0d4a
(indent-rigidly): Mention how to remove all indentation.
Eli Zaretskii <eliz@gnu.org>
parents:
45367
diff
changeset
|
148 You can remove all indentation from a region by giving a large negative ARG." |
263 | 149 (interactive "r\np") |
150 (save-excursion | |
151 (goto-char end) | |
152 (setq end (point-marker)) | |
153 (goto-char start) | |
154 (or (bolp) (forward-line 1)) | |
155 (while (< (point) end) | |
8642
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
156 (let ((indent (current-indentation)) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
157 eol-flag) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
158 (save-excursion |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
159 (skip-chars-forward " \t") |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
160 (setq eol-flag (eolp))) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
161 (or eol-flag |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
162 (indent-to (max 0 (+ indent arg)) 0)) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
163 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) |
263 | 164 (forward-line 1)) |
165 (move-marker end nil))) | |
166 | |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
167 (defun indent-line-to (column) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
168 "Indent current line to COLUMN. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
169 This function removes or adds spaces and tabs at beginning of line |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
170 only if necessary. It leaves point at end of indentation." |
11043
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
171 (back-to-indentation) |
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
172 (let ((cur-col (current-column))) |
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
173 (cond ((< cur-col column) |
17155
d8e2f7cfb2b7
(indent-line-to): Fix off-by-one bug when deciding
Karl Heuer <kwzh@gnu.org>
parents:
15113
diff
changeset
|
174 (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width) |
13545
1418ed733e9d
(indent-line-to): Delete spaces before inserting a tab.
Richard M. Stallman <rms@gnu.org>
parents:
13035
diff
changeset
|
175 (delete-region (point) |
1418ed733e9d
(indent-line-to): Delete spaces before inserting a tab.
Richard M. Stallman <rms@gnu.org>
parents:
13035
diff
changeset
|
176 (progn (skip-chars-backward " ") (point)))) |
11043
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
177 (indent-to column)) |
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
178 ((> cur-col column) ; too far right (after tab?) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
179 (delete-region (progn (move-to-column column t) (point)) |
11043
4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
Boris Goldowsky <boris@gnu.org>
parents:
10812
diff
changeset
|
180 (progn (back-to-indentation) (point))))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
181 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
182 (defun current-left-margin () |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
183 "Return the left margin to use for this line. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
184 This is the value of the buffer-local variable `left-margin' plus the value |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
185 of the `left-margin' text-property at the start of the line." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
186 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
187 (back-to-indentation) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
188 (max 0 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
189 (+ left-margin (or (get-text-property |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
190 (if (and (eobp) (not (bobp))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
191 (1- (point)) (point)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
192 'left-margin) 0))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
193 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
194 (defun move-to-left-margin (&optional n force) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
195 "Move to the left margin of the current line. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
196 With optional argument, move forward N-1 lines first. |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
197 The column moved to is the one given by the `current-left-margin' function. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
198 If the line's indentation appears to be wrong, and this command is called |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
199 interactively or with optional argument FORCE, it will be fixed." |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
200 (interactive (list (prefix-numeric-value current-prefix-arg) t)) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
201 (beginning-of-line n) |
13577
d88cdc4a0cfe
(move-to-left-margin): Removed left-over code that
Richard M. Stallman <rms@gnu.org>
parents:
13545
diff
changeset
|
202 (skip-chars-forward " \t") |
57164
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
203 (if (minibufferp (current-buffer)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
204 (if (save-excursion (beginning-of-line) (bobp)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
205 (goto-char (minibuffer-prompt-end)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
206 (beginning-of-line)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
207 (let ((lm (current-left-margin)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
208 (cc (current-column))) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
209 (cond ((> cc lm) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
210 (if (> (move-to-column lm force) lm) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
211 ;; If lm is in a tab and we are not forcing, move before tab |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
212 (backward-char 1))) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
213 ((and force (< cc lm)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
214 (indent-to-left-margin)))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
215 |
50140
f94aa8667875
(indent-for-tab-command): If tab-always-indent is non-nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49597
diff
changeset
|
216 ;; This used to be the default indent-line-function, |
263 | 217 ;; used in Fundamental Mode, Text Mode, etc. |
218 (defun indent-to-left-margin () | |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
219 "Indent current line to the column given by `current-left-margin'." |
79191
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
220 (save-excursion (indent-line-to (current-left-margin))) |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
221 ;; If we are within the indentation, move past it. |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
222 (when (save-excursion |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
223 (skip-chars-backward " \t") |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
224 (bolp)) |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
225 (skip-chars-forward " \t"))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
226 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
227 (defun delete-to-left-margin (&optional from to) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
228 "Remove left margin indentation from a region. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
229 This deletes to the column given by `current-left-margin'. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
230 In no case will it delete non-whitespace. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
231 Args FROM and TO are optional; default is the whole buffer." |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
232 (save-excursion |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
233 (goto-char (or to (point-max))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
234 (setq to (point-marker)) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
235 (goto-char (or from (point-min))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
236 (or (bolp) (forward-line 1)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
237 (while (< (point) to) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
238 (delete-region (point) (progn (move-to-left-margin nil t) (point))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
239 (forward-line 1)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
240 (move-marker to nil))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
241 |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
242 (defun set-left-margin (from to width) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
243 "Set the left margin of the region to WIDTH. |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
244 If `auto-fill-mode' is active, re-fill the region to fit the new margin. |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
245 |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
246 Interactively, WIDTH is the prefix argument, if specified. |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
247 Without prefix argument, the command prompts for WIDTH." |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
248 (interactive "r\nNSet left margin to column: ") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
249 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
250 ;; If inside indentation, start from BOL. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
251 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
252 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
253 (if (bolp) (setq from (point))) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
254 ;; Place end after whitespace |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
255 (goto-char to) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
256 (skip-chars-forward " \t") |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
257 (setq to (point-marker))) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
258 ;; Delete margin indentation first, but keep paragraph indentation. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
259 (delete-to-left-margin from to) |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
260 (put-text-property from to 'left-margin width) |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
261 (indent-rigidly from to width) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
262 (if auto-fill-function (save-excursion (fill-region from to nil t t))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
263 (move-marker to nil)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
264 |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
265 (defun set-right-margin (from to width) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
266 "Set the right margin of the region to WIDTH. |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
267 If `auto-fill-mode' is active, re-fill the region to fit the new margin. |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
268 |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
269 Interactively, WIDTH is the prefix argument, if specified. |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
270 Without prefix argument, the command prompts for WIDTH." |
11281
10f9cf00c770
(set-right-margin): Fix prompt.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
271 (interactive "r\nNSet right margin to width: ") |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
272 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
273 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
274 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
275 (if (bolp) (setq from (point)))) |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
276 (put-text-property from to 'right-margin width) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
277 (if auto-fill-function (save-excursion (fill-region from to nil t t)))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
278 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
279 (defun alter-text-property (from to prop func &optional object) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
280 "Programmatically change value of a text-property. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
281 For each region between FROM and TO that has a single value for PROPERTY, |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
282 apply FUNCTION to that value and sets the property to the function's result. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
283 Optional fifth argument OBJECT specifies the string or buffer to operate on." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
284 (let ((begin from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
285 end val) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
286 (while (setq val (get-text-property begin prop object) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
287 end (text-property-not-all begin to prop val object)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
288 (put-text-property begin end prop (funcall func val) object) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
289 (setq begin end)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
290 (if (< begin to) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
291 (put-text-property begin to prop (funcall func val) object)))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
292 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
293 (defun increase-left-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
294 "Increase or decrease the left-margin of the region. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
295 With no prefix argument, this adds `standard-indent' of indentation. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
296 A prefix arg (optional third arg INC noninteractively) specifies the amount |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
297 to change the margin by, in characters. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
298 If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
299 (interactive "*r\nP") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
300 (setq inc (if inc (prefix-numeric-value inc) standard-indent)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
301 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
302 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
303 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
304 (if (bolp) (setq from (point))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
305 (goto-char to) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
306 (setq to (point-marker))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
307 (alter-text-property from to 'left-margin |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
308 (lambda (v) (max (- left-margin) (+ inc (or v 0))))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
309 (indent-rigidly from to inc) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
310 (if auto-fill-function (save-excursion (fill-region from to nil t t))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
311 (move-marker to nil)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
312 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
313 (defun decrease-left-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
314 "Make the left margin of the region smaller. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
315 With no prefix argument, decrease the indentation by `standard-indent'. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
316 A prefix arg (optional third arg INC noninteractively) specifies the amount |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
317 to change the margin by, in characters. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
318 If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
319 (interactive "*r\nP") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
320 (setq inc (if inc (prefix-numeric-value inc) standard-indent)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
321 (increase-left-margin from to (- inc))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
322 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
323 (defun increase-right-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
324 "Increase the right-margin of the region. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
325 With no prefix argument, increase the right margin by `standard-indent'. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
326 A prefix arg (optional third arg INC noninteractively) specifies the amount |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
327 to change the margin by, in characters. A negative argument decreases |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
328 the right margin width. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
329 If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
330 (interactive "r\nP") |
57676
94dfa49e7a83
(set-left-margin, set-right-margin): Delete redundant code.
Luc Teirlinck <teirllm@auburn.edu>
parents:
57297
diff
changeset
|
331 (setq inc (if inc (prefix-numeric-value inc) standard-indent)) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
332 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
333 (alter-text-property from to 'right-margin |
57676
94dfa49e7a83
(set-left-margin, set-right-margin): Delete redundant code.
Luc Teirlinck <teirllm@auburn.edu>
parents:
57297
diff
changeset
|
334 (lambda (v) (+ inc (or v 0)))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
335 (if auto-fill-function |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
336 (fill-region from to nil t t)))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
337 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
338 (defun decrease-right-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
339 "Make the right margin of the region smaller. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
340 With no prefix argument, decrease the right margin by `standard-indent'. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
341 A prefix arg (optional third arg INC noninteractively) specifies the amount |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
342 of width to remove, in characters. A negative argument increases |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
343 the right margin width. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
344 If `auto-fill-mode' is active, re-fills region to fit in new margin." |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
345 (interactive "*r\nP") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
346 (setq inc (if inc (prefix-numeric-value inc) standard-indent)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
347 (increase-right-margin from to (- inc))) |
263 | 348 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
349 (defun beginning-of-line-text (&optional n) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
350 "Move to the beginning of the text on this line. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
351 With optional argument, move forward N-1 lines first. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
352 From the beginning of the line, moves past the left-margin indentation, the |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
353 fill-prefix, and any indentation used for centering or right-justifying the |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48581
diff
changeset
|
354 line, but does not move past any whitespace that was explicitly inserted |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
355 \(such as a tab used to indent the first line of a paragraph)." |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
356 (interactive "p") |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
357 (beginning-of-line n) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
358 (skip-chars-forward " \t") |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
359 ;; Skip over fill-prefix. |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48581
diff
changeset
|
360 (if (and fill-prefix |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
361 (not (string-equal fill-prefix ""))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
362 (if (equal fill-prefix |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48581
diff
changeset
|
363 (buffer-substring |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
364 (point) (min (point-max) (+ (length fill-prefix) (point))))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
365 (forward-char (length fill-prefix))) |
14770
e3567339daa7
(beginning-of-line-text): Check adaptive-fill-regexp is non-nil.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
366 (if (and adaptive-fill-mode adaptive-fill-regexp |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
367 (looking-at adaptive-fill-regexp)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
368 (goto-char (match-end 0)))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
369 ;; Skip centering or flushright indentation |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
370 (if (memq (current-justification) '(center right)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
371 (skip-chars-forward " \t"))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
372 |
263 | 373 (defvar indent-region-function nil |
12683
0e9d2009e609
(indent-region-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
11281
diff
changeset
|
374 "Short cut function to indent region using `indent-according-to-mode'. |
0e9d2009e609
(indent-region-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
11281
diff
changeset
|
375 A value of nil means really run `indent-according-to-mode' on each line.") |
263 | 376 |
45367
2a9743cfbeab
(indent-region): Make COLUMN arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
43053
diff
changeset
|
377 (defun indent-region (start end &optional column) |
263 | 378 "Indent each nonblank line in the region. |
48581
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
379 A numeric prefix argument specifies a column: indent each line to that column. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
380 |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
381 With no prefix argument, the command chooses one of these methods and |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
382 indents all the lines with it: |
26169 | 383 |
48581
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
384 1) If `fill-prefix' is non-nil, insert `fill-prefix' at the |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
385 beginning of each line in the region that does not already begin |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
386 with it. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
387 2) If `indent-region-function' is non-nil, call that function |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
388 to indent the region. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
389 3) Indent each line as specified by the variable `indent-line-function'. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
390 |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
391 Called from a program, START and END specify the region to indent. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
392 If the third argument COLUMN is an integer, it specifies the |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
393 column to indent to; if it is nil, use one of the three methods above." |
263 | 394 (interactive "r\nP") |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
395 (if (null column) |
263 | 396 (if fill-prefix |
397 (save-excursion | |
398 (goto-char end) | |
399 (setq end (point-marker)) | |
400 (goto-char start) | |
401 (let ((regexp (regexp-quote fill-prefix))) | |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
402 (while (< (point) end) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
403 (or (looking-at regexp) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
404 (and (bolp) (eolp)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
405 (insert fill-prefix)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
406 (forward-line 1)))) |
263 | 407 (if indent-region-function |
408 (funcall indent-region-function start end) | |
409 (save-excursion | |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
410 (setq end (copy-marker end)) |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
411 (goto-char start) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
412 (while (< (point) end) |
4473
600d0d832d99
(indent-region): Fix paren error in last change.
Richard M. Stallman <rms@gnu.org>
parents:
4465
diff
changeset
|
413 (or (and (bolp) (eolp)) |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
414 (funcall indent-line-function)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
415 (forward-line 1)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
416 (move-marker end nil)))) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
417 (setq column (prefix-numeric-value column)) |
263 | 418 (save-excursion |
419 (goto-char end) | |
420 (setq end (point-marker)) | |
421 (goto-char start) | |
422 (or (bolp) (forward-line 1)) | |
423 (while (< (point) end) | |
424 (delete-region (point) (progn (skip-chars-forward " \t") (point))) | |
425 (or (eolp) | |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
426 (indent-to column 0)) |
263 | 427 (forward-line 1)) |
428 (move-marker end nil)))) | |
429 | |
430 (defun indent-relative-maybe () | |
38151
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
431 "Indent a new line like previous nonblank line. |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
432 If the previous nonblank line has no indent points beyond the |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
433 column point starts at, this command does nothing. |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
434 |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
435 See also `indent-relative'." |
263 | 436 (interactive) |
437 (indent-relative t)) | |
438 | |
439 (defun indent-relative (&optional unindented-ok) | |
440 "Space out to under next indent point in previous nonblank line. | |
441 An indent point is a non-whitespace character following whitespace. | |
25498
611af07c47c2
(indent-relative): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19895
diff
changeset
|
442 The following line shows the indentation points in this line. |
611af07c47c2
(indent-relative): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19895
diff
changeset
|
443 ^ ^ ^ ^ ^ ^ ^ ^ ^ |
263 | 444 If the previous nonblank line has no indent points beyond the |
38151
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
445 column point starts at, `tab-to-tab-stop' is done instead, unless |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
446 this command is invoked with a numeric argument, in which case it |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
447 does nothing. |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
448 |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
449 See also `indent-relative-maybe'." |
263 | 450 (interactive "P") |
19508
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
451 (if (and abbrev-mode |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
452 (eq (char-syntax (preceding-char)) ?w)) |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
453 (expand-abbrev)) |
263 | 454 (let ((start-column (current-column)) |
455 indent) | |
456 (save-excursion | |
457 (beginning-of-line) | |
458 (if (re-search-backward "^[^\n]" nil t) | |
459 (let ((end (save-excursion (forward-line 1) (point)))) | |
460 (move-to-column start-column) | |
461 ;; Is start-column inside a tab on this line? | |
462 (if (> (current-column) start-column) | |
463 (backward-char 1)) | |
464 (or (looking-at "[ \t]") | |
465 unindented-ok | |
466 (skip-chars-forward "^ \t" end)) | |
467 (skip-chars-forward " \t" end) | |
468 (or (= (point) end) (setq indent (current-column)))))) | |
469 (if indent | |
470 (let ((opoint (point-marker))) | |
471 (indent-to indent 0) | |
472 (if (> opoint (point)) | |
473 (goto-char opoint)) | |
474 (move-marker opoint nil)) | |
475 (tab-to-tab-stop)))) | |
476 | |
19420 | 477 (defcustom tab-stop-list |
263 | 478 '(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120) |
100171 | 479 "List of tab stop positions used by `tab-to-tab-stop'. |
19420 | 480 This should be a list of integers, ordered from smallest to largest." |
481 :group 'indent | |
482 :type '(repeat integer)) | |
87180
c50e8341c802
(tab-stop-list): Mark as safe-local-variable.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
85688
diff
changeset
|
483 (put 'tab-stop-list 'safe-local-variable 'listp) |
263 | 484 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
485 (defvar edit-tab-stops-map |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
486 (let ((map (make-sparse-keymap))) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
487 (define-key map "\C-x\C-s" 'edit-tab-stops-note-changes) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
488 (define-key map "\C-c\C-c" 'edit-tab-stops-note-changes) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
489 map) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
490 "Keymap used in `edit-tab-stops'.") |
263 | 491 |
492 (defvar edit-tab-stops-buffer nil | |
56831
a6ed4f895b79
(edit-tab-stops-buffer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
493 "Buffer whose tab stops are being edited. |
a6ed4f895b79
(edit-tab-stops-buffer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
494 This matters if the variable `tab-stop-list' is local in that buffer.") |
263 | 495 |
496 (defun edit-tab-stops () | |
497 "Edit the tab stops used by `tab-to-tab-stop'. | |
498 Creates a buffer *Tab Stops* containing text describing the tab stops. | |
499 A colon indicates a column where there is a tab stop. | |
500 You can add or remove colons and then do \\<edit-tab-stops-map>\\[edit-tab-stops-note-changes] to make changes take effect." | |
501 (interactive) | |
502 (setq edit-tab-stops-buffer (current-buffer)) | |
503 (switch-to-buffer (get-buffer-create "*Tab Stops*")) | |
504 (use-local-map edit-tab-stops-map) | |
505 (make-local-variable 'indent-tabs-mode) | |
506 (setq indent-tabs-mode nil) | |
507 (overwrite-mode 1) | |
508 (setq truncate-lines t) | |
509 (erase-buffer) | |
510 (let ((tabs tab-stop-list)) | |
511 (while tabs | |
512 (indent-to (car tabs) 0) | |
513 (insert ?:) | |
514 (setq tabs (cdr tabs)))) | |
515 (let ((count 0)) | |
516 (insert ?\n) | |
517 (while (< count 8) | |
518 (insert (+ count ?0)) | |
519 (insert " ") | |
520 (setq count (1+ count))) | |
521 (insert ?\n) | |
522 (while (> count 0) | |
523 (insert "0123456789") | |
524 (setq count (1- count)))) | |
525 (insert "\nTo install changes, type C-c C-c") | |
526 (goto-char (point-min))) | |
527 | |
528 (defun edit-tab-stops-note-changes () | |
529 "Put edited tab stops into effect." | |
530 (interactive) | |
531 (let (tabs) | |
532 (save-excursion | |
533 (goto-char 1) | |
534 (end-of-line) | |
535 (while (search-backward ":" nil t) | |
536 (setq tabs (cons (current-column) tabs)))) | |
537 (bury-buffer (prog1 (current-buffer) | |
538 (switch-to-buffer edit-tab-stops-buffer))) | |
539 (setq tab-stop-list tabs)) | |
540 (message "Tab stops installed")) | |
541 | |
542 (defun tab-to-tab-stop () | |
543 "Insert spaces or tabs to next defined tab-stop column. | |
544 The variable `tab-stop-list' is a list of columns at which there are tab stops. | |
545 Use \\[edit-tab-stops] to edit them interactively." | |
546 (interactive) | |
12778
657be7aaa043
(tab-to-tab-stop): Expand abbrevs only after a word-char.
Richard M. Stallman <rms@gnu.org>
parents:
12683
diff
changeset
|
547 (and abbrev-mode (= (char-syntax (preceding-char)) ?w) |
657be7aaa043
(tab-to-tab-stop): Expand abbrevs only after a word-char.
Richard M. Stallman <rms@gnu.org>
parents:
12683
diff
changeset
|
548 (expand-abbrev)) |
263 | 549 (let ((tabs tab-stop-list)) |
550 (while (and tabs (>= (current-column) (car tabs))) | |
551 (setq tabs (cdr tabs))) | |
552 (if tabs | |
7973
b7ea350590a7
(tab-to-tab-stop): Combine new indentation with previous.
Richard M. Stallman <rms@gnu.org>
parents:
7813
diff
changeset
|
553 (let ((opoint (point))) |
41758
581ab0e31090
(tab-to-tab-stop): Use delete-horizontal-space.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40636
diff
changeset
|
554 (delete-horizontal-space t) |
7973
b7ea350590a7
(tab-to-tab-stop): Combine new indentation with previous.
Richard M. Stallman <rms@gnu.org>
parents:
7813
diff
changeset
|
555 (indent-to (car tabs))) |
74231
0b8c05c54956
(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
556 (insert ?\s)))) |
263 | 557 |
558 (defun move-to-tab-stop () | |
559 "Move point to next defined tab-stop column. | |
560 The variable `tab-stop-list' is a list of columns at which there are tab stops. | |
561 Use \\[edit-tab-stops] to edit them interactively." | |
562 (interactive) | |
563 (let ((tabs tab-stop-list)) | |
564 (while (and tabs (>= (current-column) (car tabs))) | |
565 (setq tabs (cdr tabs))) | |
566 (if tabs | |
8037
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
567 (let ((before (point))) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
568 (move-to-column (car tabs) t) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
569 (save-excursion |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
570 (goto-char before) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
571 ;; If we just added a tab, or moved over one, |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
572 ;; delete any superfluous spaces before the old point. |
74231
0b8c05c54956
(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
573 (if (and (eq (preceding-char) ?\s) |
8037
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
574 (eq (following-char) ?\t)) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
575 (let ((tabend (* (/ (current-column) tab-width) tab-width))) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
576 (while (and (> (current-column) tabend) |
74231
0b8c05c54956
(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
577 (eq (preceding-char) ?\s)) |
8037
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
578 (forward-char -1)) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
579 (delete-region (point) before)))))))) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
580 |
263 | 581 (define-key global-map "\t" 'indent-for-tab-command) |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
582 (define-key esc-map "\C-\\" 'indent-region) |
263 | 583 (define-key ctl-x-map "\t" 'indent-rigidly) |
584 (define-key esc-map "i" 'tab-to-tab-stop) | |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
585 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
586 ;; arch-tag: f402b2a7-e44f-492f-b5b8-38996020b7c3 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
587 ;;; indent.el ends here |