Mercurial > emacs
annotate lisp/indent.el @ 86995:48cbca68cab3
Move here from ../gnus.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 02 Dec 2007 21:51:39 +0000 |
parents | b210bba3f477 |
children | c50e8341c802 4bc33ffdda1a |
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, |
75347 | 4 ;; 2005, 2006, 2007 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 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
12 ;; the Free Software Foundation; either version 3, or (at your option) |
263 | 13 ;; any later version. |
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 | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64091 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
263 | 24 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
25 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
26 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
27 ;; 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
|
28 ;; described in the Emacs manual. |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2201
diff
changeset
|
29 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
30 ;;; Code: |
263 | 31 |
19420 | 32 (defgroup indent nil |
64012
70dbaa65c723
(indent): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
57676
diff
changeset
|
33 "Indentation commands." |
19420 | 34 :group 'editing) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
35 |
19420 | 36 (defcustom standard-indent 4 |
37 "*Default number of columns for margin-changing functions to indent." | |
38 :group 'indent | |
39 :type 'integer) | |
40 | |
41845
23120b6a0225
(indent-line-function): Default is indent-relative again.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41762
diff
changeset
|
41 (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
|
42 "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
|
43 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
|
44 If it is called somewhere where auto-indentation cannot be done |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
45 \(f.ex. inside a string), the function should simply return `noindent'. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
46 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
|
47 Don't rebind TAB unless you really need to.") |
263 | 48 |
32242
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
49 (defcustom tab-always-indent t |
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
50 "*Controls the operation of the TAB key. |
6da78b4b7be2
(tab-always-indent): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31593
diff
changeset
|
51 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
|
52 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
|
53 or in the line's indentation, otherwise it inserts a \"real\" TAB character. |
f43a57ce897e
(tab-always-indent): Docstring fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
54 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
|
55 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
|
56 :group 'indent |
40636
1b4d4e638a5b
(tab-always-indent, indent-for-tab-command):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40482
diff
changeset
|
57 :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
|
58 |
263 | 59 (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
|
60 "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
|
61 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
|
62 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
|
63 special; we don't actually use them here." |
263 | 64 (interactive) |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
65 (if (memq indent-line-function |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
66 '(indent-relative indent-relative-maybe)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
67 ;; 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
|
68 ;; 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
|
69 (let ((column (save-excursion |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
70 (beginning-of-line) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
71 (skip-chars-backward "\n \t") |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
72 (beginning-of-line) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
73 (current-indentation)))) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
74 (if (<= (current-column) (current-indentation)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
75 (indent-line-to column) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
76 (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
|
77 ;; The normal case. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
78 (funcall indent-line-function))) |
263 | 79 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
80 (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
|
81 "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
|
82 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
|
83 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
|
84 the indentation. Else stay at same point in text. |
84773
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
85 If `transient-mark-mode' is turned on the region is active, |
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
86 indent the region. |
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
87 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
|
88 `indent-line-function'." |
85379
3664514f5c60
(indent-for-tab-command): Change interactive spec from "P" to "p".
Juri Linkov <juri@jurta.org>
parents:
84840
diff
changeset
|
89 (interactive "p") |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
90 (cond |
84840
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84773
diff
changeset
|
91 ;; The region is active, indent it. |
85379
3664514f5c60
(indent-for-tab-command): Change interactive spec from "P" to "p".
Juri Linkov <juri@jurta.org>
parents:
84840
diff
changeset
|
92 ((and arg transient-mark-mode mark-active |
84840
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84773
diff
changeset
|
93 (not (eq (region-beginning) (region-end)))) |
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84773
diff
changeset
|
94 (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
|
95 ((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
|
96 ;; 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
|
97 (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
|
98 (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
|
99 (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
|
100 (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
|
101 (insert-tab arg)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
102 ;; Those functions are meant specifically for tabbing and not for |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
103 ;; indenting, so we can't pass them to indent-according-to-mode. |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
104 ((memq indent-line-function '(indent-relative indent-relative-maybe)) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
105 (funcall indent-line-function)) |
84773
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
106 ;; Indent the line. |
d8b9b78eb16c
(indent-for-tab-command): Indent the region if
Dan Nicolaescu <dann@ics.uci.edu>
parents:
82140
diff
changeset
|
107 (t |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
108 (indent-according-to-mode)))) |
263 | 109 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
110 (defun insert-tab (&optional arg) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
111 (let ((count (prefix-numeric-value arg))) |
19508
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
112 (if (and abbrev-mode |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
113 (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
|
114 (expand-abbrev)) |
83b8438fa1a4
(indent-for-tab-command): Pass prefix arg to indent-tab.
Richard M. Stallman <rms@gnu.org>
parents:
14770
diff
changeset
|
115 (if indent-tabs-mode |
15113
8db176b73c9f
(insert-tab): fix previous change
Erik Naggum <erik@naggum.no>
parents:
15106
diff
changeset
|
116 (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
|
117 (indent-to (* tab-width (+ count (/ (current-column) tab-width))))))) |
263 | 118 |
119 (defun indent-rigidly (start end arg) | |
120 "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
|
121 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
|
122 You can remove all indentation from a region by giving a large negative ARG." |
263 | 123 (interactive "r\np") |
124 (save-excursion | |
125 (goto-char end) | |
126 (setq end (point-marker)) | |
127 (goto-char start) | |
128 (or (bolp) (forward-line 1)) | |
129 (while (< (point) end) | |
8642
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
130 (let ((indent (current-indentation)) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
131 eol-flag) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
132 (save-excursion |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
133 (skip-chars-forward " \t") |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
134 (setq eol-flag (eolp))) |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
135 (or eol-flag |
ae3b75bae5d7
(indent-rigidly): Insert new indent, then delete old.
Richard M. Stallman <rms@gnu.org>
parents:
8208
diff
changeset
|
136 (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
|
137 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) |
263 | 138 (forward-line 1)) |
139 (move-marker end nil))) | |
140 | |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
141 (defun indent-line-to (column) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
142 "Indent current line to COLUMN. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
143 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
|
144 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
|
145 (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
|
146 (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
|
147 (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
|
148 (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
|
149 (delete-region (point) |
1418ed733e9d
(indent-line-to): Delete spaces before inserting a tab.
Richard M. Stallman <rms@gnu.org>
parents:
13035
diff
changeset
|
150 (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
|
151 (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
|
152 ((> 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
|
153 (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
|
154 (progn (back-to-indentation) (point))))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
155 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
156 (defun current-left-margin () |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
157 "Return the left margin to use for this line. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
158 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
|
159 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
|
160 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
161 (back-to-indentation) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
162 (max 0 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
163 (+ left-margin (or (get-text-property |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
164 (if (and (eobp) (not (bobp))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
165 (1- (point)) (point)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
166 'left-margin) 0))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
167 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
168 (defun move-to-left-margin (&optional n force) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
169 "Move to the left margin of the current line. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
170 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
|
171 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
|
172 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
|
173 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
|
174 (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
|
175 (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
|
176 (skip-chars-forward " \t") |
57164
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
177 (if (minibufferp (current-buffer)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
178 (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
|
179 (goto-char (minibuffer-prompt-end)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
180 (beginning-of-line)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
181 (let ((lm (current-left-margin)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
182 (cc (current-column))) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
183 (cond ((> cc lm) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
184 (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
|
185 ;; 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
|
186 (backward-char 1))) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
187 ((and force (< cc lm)) |
11b507f888a6
(move-to-left-margin): Special case for minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
56831
diff
changeset
|
188 (indent-to-left-margin)))))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
189 |
50140
f94aa8667875
(indent-for-tab-command): If tab-always-indent is non-nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49597
diff
changeset
|
190 ;; This used to be the default indent-line-function, |
263 | 191 ;; used in Fundamental Mode, Text Mode, etc. |
192 (defun indent-to-left-margin () | |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
193 "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
|
194 (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
|
195 ;; 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
|
196 (when (save-excursion |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
197 (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
|
198 (bolp)) |
24b435ba9bce
(indent-to-left-margin): If point's in the indentation,
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
199 (skip-chars-forward " \t"))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
200 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
201 (defun delete-to-left-margin (&optional from to) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
202 "Remove left margin indentation from a region. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
203 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
|
204 In no case will it delete non-whitespace. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
205 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
|
206 (save-excursion |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
207 (goto-char (or to (point-max))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
208 (setq to (point-marker)) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
209 (goto-char (or from (point-min))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
210 (or (bolp) (forward-line 1)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
211 (while (< (point) to) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
212 (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
|
213 (forward-line 1)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
214 (move-marker to nil))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
215 |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
216 (defun set-left-margin (from to width) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
217 "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
|
218 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
|
219 |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
220 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
|
221 Without prefix argument, the command prompts for WIDTH." |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
222 (interactive "r\nNSet left margin to column: ") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
223 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
224 ;; If inside indentation, start from BOL. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
225 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
226 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
227 (if (bolp) (setq from (point))) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
228 ;; Place end after whitespace |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
229 (goto-char to) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
230 (skip-chars-forward " \t") |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
231 (setq to (point-marker))) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
232 ;; Delete margin indentation first, but keep paragraph indentation. |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
233 (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
|
234 (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
|
235 (indent-rigidly from to width) |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
236 (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
|
237 (move-marker to nil)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
238 |
57297
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
239 (defun set-right-margin (from to width) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
240 "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
|
241 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
|
242 |
42311c6c4bdb
(set-left-margin, set-right-margin): Rename `lm' arg to `width' for
Luc Teirlinck <teirllm@auburn.edu>
parents:
57164
diff
changeset
|
243 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
|
244 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
|
245 (interactive "r\nNSet right margin to width: ") |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
246 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
247 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
248 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
249 (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
|
250 (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
|
251 (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
|
252 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
253 (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
|
254 "Programmatically change value of a text-property. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
255 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
|
256 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
|
257 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
|
258 (let ((begin from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
259 end val) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
260 (while (setq val (get-text-property begin prop object) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
261 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
|
262 (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
|
263 (setq begin end)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
264 (if (< begin to) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
265 (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
|
266 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
267 (defun increase-left-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
268 "Increase or decrease the left-margin of the region. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
269 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
|
270 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
|
271 to change the margin by, in characters. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
272 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
|
273 (interactive "*r\nP") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
274 (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
|
275 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
276 (goto-char from) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
277 (skip-chars-backward " \t") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
278 (if (bolp) (setq from (point))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
279 (goto-char to) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
280 (setq to (point-marker))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
281 (alter-text-property from to 'left-margin |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
282 (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
|
283 (indent-rigidly from to inc) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
284 (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
|
285 (move-marker to nil)) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
286 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
287 (defun decrease-left-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
288 "Make the left margin of the region smaller. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
289 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
|
290 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
|
291 to change the margin by, in characters. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
292 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
|
293 (interactive "*r\nP") |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
294 (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
|
295 (increase-left-margin from to (- inc))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
296 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
297 (defun increase-right-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
298 "Increase the right-margin of the region. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
299 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
|
300 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
|
301 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
|
302 the right margin width. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
303 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
|
304 (interactive "r\nP") |
57676
94dfa49e7a83
(set-left-margin, set-right-margin): Delete redundant code.
Luc Teirlinck <teirllm@auburn.edu>
parents:
57297
diff
changeset
|
305 (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
|
306 (save-excursion |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
307 (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
|
308 (lambda (v) (+ inc (or v 0)))) |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
309 (if auto-fill-function |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
310 (fill-region from to nil t t)))) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
311 |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
312 (defun decrease-right-margin (from to inc) |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
313 "Make the right margin of the region smaller. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
314 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
|
315 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
|
316 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
|
317 the right margin width. |
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
318 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
|
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-right-margin from to (- inc))) |
263 | 322 |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
323 (defun beginning-of-line-text (&optional n) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
324 "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
|
325 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
|
326 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
|
327 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
|
328 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
|
329 \(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
|
330 (interactive "p") |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
331 (beginning-of-line n) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
332 (skip-chars-forward " \t") |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
333 ;; Skip over fill-prefix. |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48581
diff
changeset
|
334 (if (and fill-prefix |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
335 (not (string-equal fill-prefix ""))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
336 (if (equal fill-prefix |
49597
e88404e8f2cf
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48581
diff
changeset
|
337 (buffer-substring |
10812
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
338 (point) (min (point-max) (+ (length fill-prefix) (point))))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
339 (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
|
340 (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
|
341 (looking-at adaptive-fill-regexp)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
342 (goto-char (match-end 0)))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
343 ;; Skip centering or flushright indentation |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
344 (if (memq (current-justification) '(center right)) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
345 (skip-chars-forward " \t"))) |
cd0a341fd620
(current-left-margin): careful of EOB.
Boris Goldowsky <boris@gnu.org>
parents:
10470
diff
changeset
|
346 |
263 | 347 (defvar indent-region-function nil |
12683
0e9d2009e609
(indent-region-function): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
11281
diff
changeset
|
348 "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
|
349 A value of nil means really run `indent-according-to-mode' on each line.") |
263 | 350 |
45367
2a9743cfbeab
(indent-region): Make COLUMN arg optional.
Richard M. Stallman <rms@gnu.org>
parents:
43053
diff
changeset
|
351 (defun indent-region (start end &optional column) |
263 | 352 "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
|
353 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
|
354 |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
355 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
|
356 indents all the lines with it: |
26169 | 357 |
48581
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
358 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
|
359 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
|
360 with it. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
361 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
|
362 to indent the region. |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
363 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
|
364 |
023f680b7cfe
(indent-according-to-mode, indent-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
45438
diff
changeset
|
365 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
|
366 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
|
367 column to indent to; if it is nil, use one of the three methods above." |
263 | 368 (interactive "r\nP") |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
369 (if (null column) |
263 | 370 (if fill-prefix |
371 (save-excursion | |
372 (goto-char end) | |
373 (setq end (point-marker)) | |
374 (goto-char start) | |
375 (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
|
376 (while (< (point) end) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
377 (or (looking-at regexp) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
378 (and (bolp) (eolp)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
379 (insert fill-prefix)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
380 (forward-line 1)))) |
263 | 381 (if indent-region-function |
382 (funcall indent-region-function start end) | |
383 (save-excursion | |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
384 (setq end (copy-marker end)) |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
385 (goto-char start) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
386 (while (< (point) end) |
4473
600d0d832d99
(indent-region): Fix paren error in last change.
Richard M. Stallman <rms@gnu.org>
parents:
4465
diff
changeset
|
387 (or (and (bolp) (eolp)) |
4465
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
388 (funcall indent-line-function)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
389 (forward-line 1)) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
390 (move-marker end nil)))) |
794498c64928
(indent-region): Rename arg ARG to COLUMN.
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
391 (setq column (prefix-numeric-value column)) |
263 | 392 (save-excursion |
393 (goto-char end) | |
394 (setq end (point-marker)) | |
395 (goto-char start) | |
396 (or (bolp) (forward-line 1)) | |
397 (while (< (point) end) | |
398 (delete-region (point) (progn (skip-chars-forward " \t") (point))) | |
399 (or (eolp) | |
10467
b8053ce05ab5
(standard-indent): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8642
diff
changeset
|
400 (indent-to column 0)) |
263 | 401 (forward-line 1)) |
402 (move-marker end nil)))) | |
403 | |
404 (defun indent-relative-maybe () | |
38151
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
405 "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
|
406 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
|
407 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
|
408 |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
409 See also `indent-relative'." |
263 | 410 (interactive) |
411 (indent-relative t)) | |
412 | |
413 (defun indent-relative (&optional unindented-ok) | |
414 "Space out to under next indent point in previous nonblank line. | |
415 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
|
416 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
|
417 ^ ^ ^ ^ ^ ^ ^ ^ ^ |
263 | 418 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
|
419 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
|
420 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
|
421 does nothing. |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
422 |
9fb3fc20b9b0
(indent-relative-maybe, indent-relative): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
37367
diff
changeset
|
423 See also `indent-relative-maybe'." |
263 | 424 (interactive "P") |
19508
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
425 (if (and abbrev-mode |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
426 (eq (char-syntax (preceding-char)) ?w)) |
c86800208845
(indent-relative, insert-tab):
Richard M. Stallman <rms@gnu.org>
parents:
19420
diff
changeset
|
427 (expand-abbrev)) |
263 | 428 (let ((start-column (current-column)) |
429 indent) | |
430 (save-excursion | |
431 (beginning-of-line) | |
432 (if (re-search-backward "^[^\n]" nil t) | |
433 (let ((end (save-excursion (forward-line 1) (point)))) | |
434 (move-to-column start-column) | |
435 ;; Is start-column inside a tab on this line? | |
436 (if (> (current-column) start-column) | |
437 (backward-char 1)) | |
438 (or (looking-at "[ \t]") | |
439 unindented-ok | |
440 (skip-chars-forward "^ \t" end)) | |
441 (skip-chars-forward " \t" end) | |
442 (or (= (point) end) (setq indent (current-column)))))) | |
443 (if indent | |
444 (let ((opoint (point-marker))) | |
445 (indent-to indent 0) | |
446 (if (> opoint (point)) | |
447 (goto-char opoint)) | |
448 (move-marker opoint nil)) | |
449 (tab-to-tab-stop)))) | |
450 | |
19420 | 451 (defcustom tab-stop-list |
263 | 452 '(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120) |
19895
bff4ed62d00a
(tab-stop-list): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
19508
diff
changeset
|
453 "*List of tab stop positions used by `tab-to-tab-stop'. |
19420 | 454 This should be a list of integers, ordered from smallest to largest." |
455 :group 'indent | |
456 :type '(repeat integer)) | |
263 | 457 |
40482
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
458 (defvar edit-tab-stops-map |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
459 (let ((map (make-sparse-keymap))) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
460 (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
|
461 (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
|
462 map) |
ec3016b59706
(indent-line-function): Change default to indent-relative.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38151
diff
changeset
|
463 "Keymap used in `edit-tab-stops'.") |
263 | 464 |
465 (defvar edit-tab-stops-buffer nil | |
56831
a6ed4f895b79
(edit-tab-stops-buffer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
466 "Buffer whose tab stops are being edited. |
a6ed4f895b79
(edit-tab-stops-buffer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
467 This matters if the variable `tab-stop-list' is local in that buffer.") |
263 | 468 |
469 (defun edit-tab-stops () | |
470 "Edit the tab stops used by `tab-to-tab-stop'. | |
471 Creates a buffer *Tab Stops* containing text describing the tab stops. | |
472 A colon indicates a column where there is a tab stop. | |
473 You can add or remove colons and then do \\<edit-tab-stops-map>\\[edit-tab-stops-note-changes] to make changes take effect." | |
474 (interactive) | |
475 (setq edit-tab-stops-buffer (current-buffer)) | |
476 (switch-to-buffer (get-buffer-create "*Tab Stops*")) | |
477 (use-local-map edit-tab-stops-map) | |
478 (make-local-variable 'indent-tabs-mode) | |
479 (setq indent-tabs-mode nil) | |
480 (overwrite-mode 1) | |
481 (setq truncate-lines t) | |
482 (erase-buffer) | |
483 (let ((tabs tab-stop-list)) | |
484 (while tabs | |
485 (indent-to (car tabs) 0) | |
486 (insert ?:) | |
487 (setq tabs (cdr tabs)))) | |
488 (let ((count 0)) | |
489 (insert ?\n) | |
490 (while (< count 8) | |
491 (insert (+ count ?0)) | |
492 (insert " ") | |
493 (setq count (1+ count))) | |
494 (insert ?\n) | |
495 (while (> count 0) | |
496 (insert "0123456789") | |
497 (setq count (1- count)))) | |
498 (insert "\nTo install changes, type C-c C-c") | |
499 (goto-char (point-min))) | |
500 | |
501 (defun edit-tab-stops-note-changes () | |
502 "Put edited tab stops into effect." | |
503 (interactive) | |
504 (let (tabs) | |
505 (save-excursion | |
506 (goto-char 1) | |
507 (end-of-line) | |
508 (while (search-backward ":" nil t) | |
509 (setq tabs (cons (current-column) tabs)))) | |
510 (bury-buffer (prog1 (current-buffer) | |
511 (switch-to-buffer edit-tab-stops-buffer))) | |
512 (setq tab-stop-list tabs)) | |
513 (message "Tab stops installed")) | |
514 | |
515 (defun tab-to-tab-stop () | |
516 "Insert spaces or tabs to next defined tab-stop column. | |
517 The variable `tab-stop-list' is a list of columns at which there are tab stops. | |
518 Use \\[edit-tab-stops] to edit them interactively." | |
519 (interactive) | |
12778
657be7aaa043
(tab-to-tab-stop): Expand abbrevs only after a word-char.
Richard M. Stallman <rms@gnu.org>
parents:
12683
diff
changeset
|
520 (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
|
521 (expand-abbrev)) |
263 | 522 (let ((tabs tab-stop-list)) |
523 (while (and tabs (>= (current-column) (car tabs))) | |
524 (setq tabs (cdr tabs))) | |
525 (if tabs | |
7973
b7ea350590a7
(tab-to-tab-stop): Combine new indentation with previous.
Richard M. Stallman <rms@gnu.org>
parents:
7813
diff
changeset
|
526 (let ((opoint (point))) |
41758
581ab0e31090
(tab-to-tab-stop): Use delete-horizontal-space.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40636
diff
changeset
|
527 (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
|
528 (indent-to (car tabs))) |
74231
0b8c05c54956
(tab-to-tab-stop, move-to-tab-stop): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
68651
diff
changeset
|
529 (insert ?\s)))) |
263 | 530 |
531 (defun move-to-tab-stop () | |
532 "Move point to next defined tab-stop column. | |
533 The variable `tab-stop-list' is a list of columns at which there are tab stops. | |
534 Use \\[edit-tab-stops] to edit them interactively." | |
535 (interactive) | |
536 (let ((tabs tab-stop-list)) | |
537 (while (and tabs (>= (current-column) (car tabs))) | |
538 (setq tabs (cdr tabs))) | |
539 (if tabs | |
8037
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
540 (let ((before (point))) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
541 (move-to-column (car tabs) t) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
542 (save-excursion |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
543 (goto-char before) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
544 ;; 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
|
545 ;; 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
|
546 (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
|
547 (eq (following-char) ?\t)) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
548 (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
|
549 (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
|
550 (eq (preceding-char) ?\s)) |
8037
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
551 (forward-char -1)) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
552 (delete-region (point) before)))))))) |
fd5fb80a940d
(move-to-tab-stop): Delete unnecessary spaces
Richard M. Stallman <rms@gnu.org>
parents:
7984
diff
changeset
|
553 |
263 | 554 (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
|
555 (define-key esc-map "\C-\\" 'indent-region) |
263 | 556 (define-key ctl-x-map "\t" 'indent-rigidly) |
557 (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
|
558 |
52401 | 559 ;;; arch-tag: f402b2a7-e44f-492f-b5b8-38996020b7c3 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
269
diff
changeset
|
560 ;;; indent.el ends here |