Mercurial > emacs
annotate lisp/simple.el @ 33397:1c1159327046
(gnus-article-banner-alist)
(gnus-emphasize-whitespace-regexp, gnus-ignored-mime-types)
(gnus-article-date-lapsed-new-header)
(gnus-article-mime-match-handle-function, gnus-mime-action-alist)
(gnus-treat-strip-list-identifiers, gnus-treat-date-iso8601)
(gnus-treat-strip-headers-in-body)
(gnus-treat-capitalize-sentences, gnus-treat-play-sounds)
(gnus-treat-translate): Add :version.
(gnus-article-mime-part-function): Fix defcustom.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 10 Nov 2000 22:56:53 +0000 |
parents | bd48e8729dbb |
children | 8fc77111dd98 |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
1 ;;; simple.el --- basic editing commands for Emacs |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2 |
27234
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3 ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 99, 2000 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
475 | 5 |
6 ;; This file is part of GNU Emacs. | |
7 | |
8 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
9 ;; it under the terms of the GNU General Public License as published by | |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
762
diff
changeset
|
10 ;; the Free Software Foundation; either version 2, or (at your option) |
475 | 11 ;; any later version. |
12 | |
13 ;; GNU Emacs is distributed in the hope that it will be useful, | |
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 ;; GNU General Public License for more details. | |
17 | |
18 ;; You should have received a copy of the GNU General Public License | |
14169 | 19 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
21 ;; Boston, MA 02111-1307, USA. | |
475 | 22 |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2301
diff
changeset
|
23 ;;; Commentary: |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2301
diff
changeset
|
24 |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2301
diff
changeset
|
25 ;; A grab-bag of basic Emacs commands not specifically related to some |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2301
diff
changeset
|
26 ;; major mode or to file-handling. |
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2301
diff
changeset
|
27 |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
762
diff
changeset
|
28 ;;; Code: |
475 | 29 |
26466 | 30 (eval-when-compile |
30820
4b32734572d8
Autoload widget-convert when compiling.
Dave Love <fx@gnu.org>
parents:
30441
diff
changeset
|
31 (autoload 'widget-convert "wid-edit") |
31573 | 32 (autoload 'shell-mode "shell") |
26466 | 33 (require 'cl)) |
34 | |
35 | |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
36 (defgroup killing nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
37 "Killing and yanking commands" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
38 :group 'editing) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
39 |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
40 (defgroup paren-matching nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
41 "Highlight (un)matching of parens and expressions." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
42 :group 'matching) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
43 |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
44 |
25292 | 45 (defun fundamental-mode () |
46 "Major mode not specialized for anything in particular. | |
47 Other major modes are defined by comparison with this one." | |
48 (interactive) | |
49 (kill-all-local-variables)) | |
50 | |
51 ;; Making and deleting lines. | |
52 | |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
53 (defun newline (&optional arg) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
54 "Insert a newline, and move to left margin of the new line if it's blank. |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
55 The newline is marked with the text-property `hard'. |
31978
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
56 With ARG, insert that many newlines. |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
57 In Auto Fill mode, if no numeric arg, break the preceding line if it's long." |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
58 (interactive "*P") |
13137
a83a1515fd9b
(newline): Call barf-if-buffer-read-only.
Richard M. Stallman <rms@gnu.org>
parents:
12975
diff
changeset
|
59 (barf-if-buffer-read-only) |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
60 ;; Inserting a newline at the end of a line produces better redisplay in |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
61 ;; try_window_id than inserting at the beginning of a line, and the textual |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
62 ;; result is the same. So, if we're at beginning of line, pretend to be at |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
63 ;; the end of the previous line. |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
64 (let ((flag (and (not (bobp)) |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
65 (bolp) |
17214
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
66 ;; Make sure no functions want to be told about |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
67 ;; the range of the changes. |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
68 (not after-change-functions) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
69 (not before-change-functions) |
16417
fb6785d0c256
(newline): Use buffer-has-markers-at.
Richard M. Stallman <rms@gnu.org>
parents:
16408
diff
changeset
|
70 ;; Make sure there are no markers here. |
fb6785d0c256
(newline): Use buffer-has-markers-at.
Richard M. Stallman <rms@gnu.org>
parents:
16408
diff
changeset
|
71 (not (buffer-has-markers-at (1- (point)))) |
21459
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
72 (not (buffer-has-markers-at (point))) |
17214
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
73 ;; Make sure no text properties want to know |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
74 ;; where the change was. |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
75 (not (get-char-property (1- (point)) 'modification-hooks)) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
76 (not (get-char-property (1- (point)) 'insert-behind-hooks)) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
77 (or (eobp) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
78 (not (get-char-property (point) 'insert-in-front-hooks))) |
15605
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
79 ;; Make sure the newline before point isn't intangible. |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
80 (not (get-char-property (1- (point)) 'intangible)) |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
81 ;; Make sure the newline before point isn't read-only. |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
82 (not (get-char-property (1- (point)) 'read-only)) |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
83 ;; Make sure the newline before point isn't invisible. |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
84 (not (get-char-property (1- (point)) 'invisible)) |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
85 ;; Make sure the newline before point has the same |
8b2f2d10c40a
(newline): Don't do the optimization if the newline before point is
Miles Bader <miles@gnu.org>
parents:
15484
diff
changeset
|
86 ;; properties as the char before it (if any). |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
87 (< (or (previous-property-change (point)) -2) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
88 (- (point) 2)))) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
89 (was-page-start (and (bolp) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
90 (looking-at page-delimiter))) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
91 (beforepos (point))) |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
92 (if flag (backward-char 1)) |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
93 ;; Call self-insert so that auto-fill, abbrev expansion etc. happens. |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
94 ;; Set last-command-char to tell self-insert what to insert. |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
95 (let ((last-command-char ?\n) |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
96 ;; Don't auto-fill if we have a numeric argument. |
11362
b51e4c4cb0de
(newline): Don't auto-fill if flag is on; it was filling wrong line.
Richard M. Stallman <rms@gnu.org>
parents:
11326
diff
changeset
|
97 ;; Also not if flag is true (it would fill wrong line); |
b51e4c4cb0de
(newline): Don't auto-fill if flag is on; it was filling wrong line.
Richard M. Stallman <rms@gnu.org>
parents:
11326
diff
changeset
|
98 ;; there is no need to since we're at BOL. |
b51e4c4cb0de
(newline): Don't auto-fill if flag is on; it was filling wrong line.
Richard M. Stallman <rms@gnu.org>
parents:
11326
diff
changeset
|
99 (auto-fill-function (if (or arg flag) nil auto-fill-function))) |
12400
9e7727cdbb68
(newline): Put point at right place if insert gets error.
Richard M. Stallman <rms@gnu.org>
parents:
12355
diff
changeset
|
100 (unwind-protect |
9e7727cdbb68
(newline): Put point at right place if insert gets error.
Richard M. Stallman <rms@gnu.org>
parents:
12355
diff
changeset
|
101 (self-insert-command (prefix-numeric-value arg)) |
9e7727cdbb68
(newline): Put point at right place if insert gets error.
Richard M. Stallman <rms@gnu.org>
parents:
12355
diff
changeset
|
102 ;; If we get an error in self-insert-command, put point at right place. |
9e7727cdbb68
(newline): Put point at right place if insert gets error.
Richard M. Stallman <rms@gnu.org>
parents:
12355
diff
changeset
|
103 (if flag (forward-char 1)))) |
21459
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
104 ;; Even if we did *not* get an error, keep that forward-char; |
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
105 ;; all further processing should apply to the newline that the user |
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
106 ;; thinks he inserted. |
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
107 |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
108 ;; Mark the newline(s) `hard'. |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
109 (if use-hard-newlines |
21459
b787b88cc575
(newline): Mark as hard the newline that was just
Karl Heuer <kwzh@gnu.org>
parents:
21222
diff
changeset
|
110 (set-hard-newline-properties |
16018
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
111 (- (point) (if arg (prefix-numeric-value arg) 1)) (point))) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
112 ;; If the newline leaves the previous line blank, |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
113 ;; and we have a left margin, delete that from the blank line. |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
114 (or flag |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
115 (save-excursion |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
116 (goto-char beforepos) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
117 (beginning-of-line) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
118 (and (looking-at "[ \t]$") |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
119 (> (current-left-margin) 0) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
120 (delete-region (point) (progn (end-of-line) (point)))))) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
121 ;; Indent the line after the newline, except in one case: |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
122 ;; when we added the newline at the beginning of a line |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
123 ;; which starts a page. |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
124 (or was-page-start |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
125 (move-to-left-margin nil t))) |
10863
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
126 nil) |
8e6b25e41a99
(newline): Moved from cmds.c. Indents last
Boris Goldowsky <boris@gnu.org>
parents:
10854
diff
changeset
|
127 |
16018
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
128 (defun set-hard-newline-properties (from to) |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
129 (let ((sticky (get-text-property from 'rear-nonsticky))) |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
130 (put-text-property from to 'hard 't) |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
131 ;; If rear-nonsticky is not "t", add 'hard to rear-nonsticky list |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
132 (if (and (listp sticky) (not (memq 'hard sticky))) |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
133 (put-text-property from (point) 'rear-nonsticky |
9a12ac7707c9
(set-hard-newline-properties): New fn.
Richard M. Stallman <rms@gnu.org>
parents:
15988
diff
changeset
|
134 (cons 'hard sticky))))) |
25292 | 135 |
475 | 136 (defun open-line (arg) |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
137 "Insert a newline and leave point before it. |
10813
bccf0295c66e
(open-line): indent when inserting fil-prefix.
Boris Goldowsky <boris@gnu.org>
parents:
10805
diff
changeset
|
138 If there is a fill prefix and/or a left-margin, insert them on the new line |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
139 if the line would have been blank. |
1063
25b929c06f83
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
140 With arg N, insert N newlines." |
475 | 141 (interactive "*p") |
1063
25b929c06f83
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1039
diff
changeset
|
142 (let* ((do-fill-prefix (and fill-prefix (bolp))) |
10813
bccf0295c66e
(open-line): indent when inserting fil-prefix.
Boris Goldowsky <boris@gnu.org>
parents:
10805
diff
changeset
|
143 (do-left-margin (and (bolp) (> (current-left-margin) 0))) |
10422
3c447e2caef3
(open-line, split-line, next-line): Use `newline'
Richard M. Stallman <rms@gnu.org>
parents:
10352
diff
changeset
|
144 (loc (point))) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
145 (newline arg) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
146 (goto-char loc) |
10422
3c447e2caef3
(open-line, split-line, next-line): Use `newline'
Richard M. Stallman <rms@gnu.org>
parents:
10352
diff
changeset
|
147 (while (> arg 0) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
148 (cond ((bolp) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
149 (if do-left-margin (indent-to (current-left-margin))) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
150 (if do-fill-prefix (insert-and-inherit fill-prefix)))) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
151 (forward-line 1) |
10422
3c447e2caef3
(open-line, split-line, next-line): Use `newline'
Richard M. Stallman <rms@gnu.org>
parents:
10352
diff
changeset
|
152 (setq arg (1- arg))) |
11324
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
153 (goto-char loc) |
3190c85854b6
(newline): Don't indent afterward if at page sep line.
Richard M. Stallman <rms@gnu.org>
parents:
11318
diff
changeset
|
154 (end-of-line))) |
475 | 155 |
156 (defun split-line () | |
157 "Split current line, moving portion beyond point vertically down." | |
158 (interactive "*") | |
159 (skip-chars-forward " \t") | |
160 (let ((col (current-column)) | |
161 (pos (point))) | |
10422
3c447e2caef3
(open-line, split-line, next-line): Use `newline'
Richard M. Stallman <rms@gnu.org>
parents:
10352
diff
changeset
|
162 (newline 1) |
475 | 163 (indent-to col 0) |
164 (goto-char pos))) | |
165 | |
166 (defun delete-indentation (&optional arg) | |
167 "Join this line to previous and fix up whitespace at join. | |
892
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
168 If there is a fill prefix, delete it from the beginning of this line. |
475 | 169 With argument, join this line to following line." |
170 (interactive "*P") | |
171 (beginning-of-line) | |
172 (if arg (forward-line 1)) | |
173 (if (eq (preceding-char) ?\n) | |
174 (progn | |
175 (delete-region (point) (1- (point))) | |
892
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
176 ;; If the second line started with the fill prefix, |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
177 ;; delete the prefix. |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
178 (if (and fill-prefix |
1276
6b63876aea1c
(kill-word): Don't change point before calling kill-region.
Richard M. Stallman <rms@gnu.org>
parents:
1145
diff
changeset
|
179 (<= (+ (point) (length fill-prefix)) (point-max)) |
892
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
180 (string= fill-prefix |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
181 (buffer-substring (point) |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
182 (+ (point) (length fill-prefix))))) |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
183 (delete-region (point) (+ (point) (length fill-prefix)))) |
475 | 184 (fixup-whitespace)))) |
185 | |
24078 | 186 (defalias 'join-line #'delete-indentation) ; easier to find |
25292 | 187 |
475 | 188 (defun delete-blank-lines () |
189 "On blank line, delete all surrounding blank lines, leaving just one. | |
190 On isolated blank line, delete that one. | |
7817
d729f75fff04
(delete-blank-lines): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7762
diff
changeset
|
191 On nonblank line, delete any immediately following blank lines." |
475 | 192 (interactive "*") |
193 (let (thisblank singleblank) | |
194 (save-excursion | |
195 (beginning-of-line) | |
196 (setq thisblank (looking-at "[ \t]*$")) | |
715 | 197 ;; Set singleblank if there is just one blank line here. |
475 | 198 (setq singleblank |
199 (and thisblank | |
200 (not (looking-at "[ \t]*\n[ \t]*$")) | |
201 (or (bobp) | |
202 (progn (forward-line -1) | |
203 (not (looking-at "[ \t]*$"))))))) | |
715 | 204 ;; Delete preceding blank lines, and this one too if it's the only one. |
475 | 205 (if thisblank |
206 (progn | |
207 (beginning-of-line) | |
208 (if singleblank (forward-line 1)) | |
209 (delete-region (point) | |
210 (if (re-search-backward "[^ \t\n]" nil t) | |
211 (progn (forward-line 1) (point)) | |
212 (point-min))))) | |
715 | 213 ;; Delete following blank lines, unless the current line is blank |
214 ;; and there are no following blank lines. | |
475 | 215 (if (not (and thisblank singleblank)) |
216 (save-excursion | |
217 (end-of-line) | |
218 (forward-line 1) | |
219 (delete-region (point) | |
220 (if (re-search-forward "[^ \t\n]" nil t) | |
221 (progn (beginning-of-line) (point)) | |
715 | 222 (point-max))))) |
223 ;; Handle the special case where point is followed by newline and eob. | |
224 ;; Delete the line, leaving point at eob. | |
225 (if (looking-at "^[ \t]*\n\\'") | |
226 (delete-region (point) (point-max))))) | |
475 | 227 |
228 (defun newline-and-indent () | |
229 "Insert a newline, then indent according to major mode. | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
230 Indentation is done using the value of `indent-line-function'. |
475 | 231 In programming language modes, this is the same as TAB. |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
232 In some text modes, where TAB inserts a tab, this command indents to the |
10469
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
233 column specified by the function `current-left-margin'." |
475 | 234 (interactive "*") |
235 (delete-region (point) (progn (skip-chars-backward " \t") (point))) | |
617 | 236 (newline) |
475 | 237 (indent-according-to-mode)) |
238 | |
239 (defun reindent-then-newline-and-indent () | |
240 "Reindent current line, insert newline, then indent the new line. | |
241 Indentation of both lines is done according to the current major mode, | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
242 which means calling the current value of `indent-line-function'. |
475 | 243 In programming language modes, this is the same as TAB. |
244 In some text modes, where TAB inserts a tab, this indents to the | |
10469
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
245 column specified by the function `current-left-margin'." |
475 | 246 (interactive "*") |
247 (save-excursion | |
248 (delete-region (point) (progn (skip-chars-backward " \t") (point))) | |
249 (indent-according-to-mode)) | |
617 | 250 (newline) |
475 | 251 (indent-according-to-mode)) |
25292 | 252 |
253 (defun quoted-insert (arg) | |
254 "Read next input character and insert it. | |
255 This is useful for inserting control characters. | |
256 | |
257 If the first character you type after this command is an octal digit, | |
258 you should type a sequence of octal digits which specify a character code. | |
259 Any nondigit terminates the sequence. If the terminator is a RET, | |
260 it is discarded; any other terminator is used itself as input. | |
261 The variable `read-quoted-char-radix' specifies the radix for this feature; | |
262 set it to 10 or 16 to use decimal or hex instead of octal. | |
263 | |
264 In overwrite mode, this function inserts the character anyway, and | |
265 does not handle octal digits specially. This means that if you use | |
266 overwrite as your normal editing mode, you can use this function to | |
267 insert characters when necessary. | |
268 | |
269 In binary overwrite mode, this function does overwrite, and octal | |
270 digits are interpreted as a character code. This is intended to be | |
271 useful for editing binary files." | |
272 (interactive "*p") | |
273 (let ((char (if (or (not overwrite-mode) | |
274 (eq overwrite-mode 'overwrite-mode-binary)) | |
275 (read-quoted-char) | |
276 (read-char)))) | |
277 ;; Assume character codes 0240 - 0377 stand for characters in some | |
278 ;; single-byte character set, and convert them to Emacs | |
279 ;; characters. | |
280 (if (and enable-multibyte-characters | |
281 (>= char ?\240) | |
282 (<= char ?\377)) | |
283 (setq char (unibyte-char-to-multibyte char))) | |
284 (if (> arg 0) | |
285 (if (eq overwrite-mode 'overwrite-mode-binary) | |
286 (delete-char arg))) | |
287 (while (> arg 0) | |
288 (insert-and-inherit char) | |
289 (setq arg (1- arg))))) | |
290 | |
291 (defun forward-to-indentation (arg) | |
292 "Move forward ARG lines and position at first nonblank character." | |
293 (interactive "p") | |
294 (forward-line arg) | |
295 (skip-chars-forward " \t")) | |
296 | |
297 (defun backward-to-indentation (arg) | |
298 "Move backward ARG lines and position at first nonblank character." | |
299 (interactive "p") | |
300 (forward-line (- arg)) | |
301 (skip-chars-forward " \t")) | |
302 | |
303 (defun back-to-indentation () | |
304 "Move point to the first non-whitespace character on this line." | |
305 (interactive) | |
306 (beginning-of-line 1) | |
307 (skip-chars-forward " \t")) | |
308 | |
309 (defun fixup-whitespace () | |
310 "Fixup white space between objects around point. | |
311 Leave one space or none, according to the context." | |
312 (interactive "*") | |
313 (save-excursion | |
314 (delete-horizontal-space) | |
315 (if (or (looking-at "^\\|\\s)") | |
316 (save-excursion (forward-char -1) | |
317 (looking-at "$\\|\\s(\\|\\s'"))) | |
318 nil | |
319 (insert ?\ )))) | |
320 | |
321 (defun delete-horizontal-space () | |
322 "Delete all spaces and tabs around point." | |
323 (interactive "*") | |
324 (skip-chars-backward " \t") | |
325 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) | |
326 | |
327 (defun just-one-space () | |
328 "Delete all spaces and tabs around point, leaving one space." | |
329 (interactive "*") | |
330 (skip-chars-backward " \t") | |
331 (if (= (following-char) ? ) | |
332 (forward-char 1) | |
333 (insert ? )) | |
334 (delete-region (point) (progn (skip-chars-forward " \t") (point)))) | |
335 | |
336 | |
475 | 337 (defun beginning-of-buffer (&optional arg) |
338 "Move point to the beginning of the buffer; leave mark at previous position. | |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
339 With arg N, put point N/10 of the way from the beginning. |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
340 |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
341 If the buffer is narrowed, this command uses the beginning and size |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
342 of the accessible part of the buffer. |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
343 |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
344 Don't use this command in Lisp programs! |
475 | 345 \(goto-char (point-min)) is faster and avoids clobbering the mark." |
346 (interactive "P") | |
347 (push-mark) | |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
348 (let ((size (- (point-max) (point-min)))) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
349 (goto-char (if arg |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
350 (+ (point-min) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
351 (if (> size 10000) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
352 ;; Avoid overflow for large buffer sizes! |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
353 (* (prefix-numeric-value arg) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
354 (/ size 10)) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
355 (/ (+ 10 (* size (prefix-numeric-value arg))) 10))) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
356 (point-min)))) |
475 | 357 (if arg (forward-line 1))) |
358 | |
359 (defun end-of-buffer (&optional arg) | |
360 "Move point to the end of the buffer; leave mark at previous position. | |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
361 With arg N, put point N/10 of the way from the end. |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
362 |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
363 If the buffer is narrowed, this command uses the beginning and size |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
364 of the accessible part of the buffer. |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
365 |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
366 Don't use this command in Lisp programs! |
475 | 367 \(goto-char (point-max)) is faster and avoids clobbering the mark." |
368 (interactive "P") | |
369 (push-mark) | |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
370 (let ((size (- (point-max) (point-min)))) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
371 (goto-char (if arg |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
372 (- (point-max) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
373 (if (> size 10000) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
374 ;; Avoid overflow for large buffer sizes! |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
375 (* (prefix-numeric-value arg) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
376 (/ size 10)) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
377 (/ (* size (prefix-numeric-value arg)) 10))) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
378 (point-max)))) |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
762
diff
changeset
|
379 ;; If we went to a place in the middle of the buffer, |
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
762
diff
changeset
|
380 ;; adjust it to the beginning of a line. |
26265
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
381 (cond (arg (forward-line 1)) |
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
382 ((< (point) (window-end nil t)) |
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
383 ;; If the end of the buffer is not already on the screen, |
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
384 ;; then scroll specially to put it near, but not at, the bottom. |
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
385 (overlay-recenter (point)) |
bcd25953e4cf
(end-of-buffer): Use window-end to find the window end
Gerd Moellmann <gerd@gnu.org>
parents:
26201
diff
changeset
|
386 (recenter -3)))) |
475 | 387 |
388 (defun mark-whole-buffer () | |
715 | 389 "Put point at beginning and mark at end of buffer. |
390 You probably should not use this function in Lisp programs; | |
391 it is usually a mistake for a Lisp function to use any subroutine | |
392 that uses or sets the mark." | |
475 | 393 (interactive) |
394 (push-mark (point)) | |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
395 (push-mark (point-max) nil t) |
475 | 396 (goto-char (point-min))) |
28624
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
397 |
25292 | 398 |
399 ;; Counting lines, one way or another. | |
400 | |
401 (defun goto-line (arg) | |
402 "Goto line ARG, counting from line 1 at beginning of buffer." | |
403 (interactive "NGoto line: ") | |
404 (setq arg (prefix-numeric-value arg)) | |
405 (save-restriction | |
406 (widen) | |
407 (goto-char 1) | |
408 (if (eq selective-display t) | |
409 (re-search-forward "[\n\C-m]" nil 'end (1- arg)) | |
410 (forward-line (1- arg))))) | |
475 | 411 |
412 (defun count-lines-region (start end) | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3487
diff
changeset
|
413 "Print number of lines and characters in the region." |
475 | 414 (interactive "r") |
415 (message "Region has %d lines, %d characters" | |
416 (count-lines start end) (- end start))) | |
417 | |
418 (defun what-line () | |
12939
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
419 "Print the current buffer line number and narrowed line number of point." |
475 | 420 (interactive) |
12939
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
421 (let ((opoint (point)) start) |
475 | 422 (save-excursion |
12939
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
423 (save-restriction |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
424 (goto-char (point-min)) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
425 (widen) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
426 (beginning-of-line) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
427 (setq start (point)) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
428 (goto-char opoint) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
429 (beginning-of-line) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
430 (if (/= start 1) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
431 (message "line %d (narrowed line %d)" |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
432 (1+ (count-lines 1 (point))) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
433 (1+ (count-lines start (point)))) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
434 (message "Line %d" (1+ (count-lines 1 (point))))))))) |
1fc5a2981547
(what-line): Print narrowed linenum with full buffer num.
Richard M. Stallman <rms@gnu.org>
parents:
12893
diff
changeset
|
435 |
475 | 436 (defun count-lines (start end) |
437 "Return number of lines between START and END. | |
438 This is usually the number of newlines between them, | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
439 but can be one more if START is not equal to END |
475 | 440 and the greater of them is not at the start of a line." |
9554
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
441 (save-excursion |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
442 (save-restriction |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
443 (narrow-to-region start end) |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
444 (goto-char (point-min)) |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
445 (if (eq selective-display t) |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
446 (save-match-data |
2421
eb9815e0a71d
(count-lines): Use save-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
2416
diff
changeset
|
447 (let ((done 0)) |
eb9815e0a71d
(count-lines): Use save-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
2416
diff
changeset
|
448 (while (re-search-forward "[\n\C-m]" nil t 40) |
eb9815e0a71d
(count-lines): Use save-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
2416
diff
changeset
|
449 (setq done (+ 40 done))) |
eb9815e0a71d
(count-lines): Use save-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
2416
diff
changeset
|
450 (while (re-search-forward "[\n\C-m]" nil t 1) |
eb9815e0a71d
(count-lines): Use save-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
2416
diff
changeset
|
451 (setq done (+ 1 done))) |
5151
8b31cff02267
(count-lines): In selective-display case,
Richard M. Stallman <rms@gnu.org>
parents:
5135
diff
changeset
|
452 (goto-char (point-max)) |
8b31cff02267
(count-lines): In selective-display case,
Richard M. Stallman <rms@gnu.org>
parents:
5135
diff
changeset
|
453 (if (and (/= start end) |
8b31cff02267
(count-lines): In selective-display case,
Richard M. Stallman <rms@gnu.org>
parents:
5135
diff
changeset
|
454 (not (bolp))) |
8b31cff02267
(count-lines): In selective-display case,
Richard M. Stallman <rms@gnu.org>
parents:
5135
diff
changeset
|
455 (1+ done) |
9554
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
456 done))) |
d3f3f3db986d
(count-lines): Do save-match-data only when necessary.
Richard M. Stallman <rms@gnu.org>
parents:
9539
diff
changeset
|
457 (- (buffer-size) (forward-line (buffer-size))))))) |
25292 | 458 |
16999
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
459 (defun what-cursor-position (&optional detail) |
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
460 "Print info on cursor position (on screen and within buffer). |
23963
c242e2dc93a9
(what-cursor-position): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
23944
diff
changeset
|
461 Also describe the character after point, and give its character code |
24398
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
462 in octal, decimal and hex. |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
463 |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
464 For a non-ASCII multibyte character, also give its encoding in the |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
465 buffer's selected coding system if the coding system encodes the |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
466 character safely. If the character is encoded into one byte, that |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
467 code is shown in hex. If the character is encoded into more than one |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
468 byte, just \"...\" is shown. |
23963
c242e2dc93a9
(what-cursor-position): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
23944
diff
changeset
|
469 |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
470 In addition, with prefix argument, show details about that character |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
471 in *Help* buffer. See also the command `describe-char-after'." |
16999
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
472 (interactive "P") |
475 | 473 (let* ((char (following-char)) |
474 (beg (point-min)) | |
475 (end (point-max)) | |
476 (pos (point)) | |
477 (total (buffer-size)) | |
478 (percent (if (> total 50000) | |
479 ;; Avoid overflow from multiplying by 100! | |
480 (/ (+ (/ total 200) (1- pos)) (max (/ total 100) 1)) | |
481 (/ (+ (/ total 2) (* 100 (1- pos))) (max total 1)))) | |
482 (hscroll (if (= (window-hscroll) 0) | |
483 "" | |
484 (format " Hscroll=%d" (window-hscroll)))) | |
485 (col (current-column))) | |
486 (if (= pos end) | |
487 (if (or (/= beg 1) (/= end (1+ total))) | |
27477
8a7e3bcab064
(what-cursor-position): Change formatting of
Gerd Moellmann <gerd@gnu.org>
parents:
27302
diff
changeset
|
488 (message "point=%d of %d (%d%%) <%d - %d> column %d %s" |
475 | 489 pos total percent beg end col hscroll) |
27477
8a7e3bcab064
(what-cursor-position): Change formatting of
Gerd Moellmann <gerd@gnu.org>
parents:
27302
diff
changeset
|
490 (message "point=%d of %d (%d%%) column %d %s" |
475 | 491 pos total percent col hscroll)) |
24398
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
492 (let ((coding buffer-file-coding-system) |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
493 encoded encoding-msg) |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
494 (if (or (not coding) |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
495 (eq (coding-system-type coding) t)) |
0f92ac490b66
* simple.el (what-cursor-position): To show the character's
Kenichi Handa <handa@m17n.org>
parents:
24372
diff
changeset
|
496 (setq coding default-buffer-file-coding-system)) |
24508
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
497 (if (not (char-valid-p char)) |
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
498 (setq encoding-msg |
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
499 (format "(0%o, %d, 0x%x, invalid)" char char char)) |
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
500 (setq encoded (and (>= char 128) (encode-coding-char char coding))) |
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
501 (setq encoding-msg |
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
502 (if encoded |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
503 (format "(0%o, %d, 0x%x, file %s)" |
24508
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
504 char char char |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
505 (if (> (length encoded) 1) |
24508
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
506 "..." |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
507 (encoded-string-description encoded coding))) |
24508
f9e613360d62
(what-cursor-position): Don't cause error when point
Kenichi Handa <handa@m17n.org>
parents:
24419
diff
changeset
|
508 (format "(0%o, %d, 0x%x)" char char char)))) |
23944
b5617ede97a8
(what-cursor-position): Print character encoding also.
Richard M. Stallman <rms@gnu.org>
parents:
23864
diff
changeset
|
509 (if detail |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
510 ;; We show the detailed information about CHAR. |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
511 (describe-char-after (point))) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
512 (if (or (/= beg 1) (/= end (1+ total))) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
513 (message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s" |
26884
8063bfbd8b08
(what-cursor-position): Show "(composed)" if the
Kenichi Handa <handa@m17n.org>
parents:
26744
diff
changeset
|
514 (if (< char 256) |
8063bfbd8b08
(what-cursor-position): Show "(composed)" if the
Kenichi Handa <handa@m17n.org>
parents:
26744
diff
changeset
|
515 (single-key-description char) |
8063bfbd8b08
(what-cursor-position): Show "(composed)" if the
Kenichi Handa <handa@m17n.org>
parents:
26744
diff
changeset
|
516 (buffer-substring-no-properties (point) (1+ (point)))) |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
517 encoding-msg pos total percent beg end col hscroll) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
518 (message "Char: %s %s point=%d of %d (%d%%) column %d %s" |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
519 (if (< char 256) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
520 (single-key-description char) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
521 (buffer-substring-no-properties (point) (1+ (point)))) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
522 encoding-msg pos total percent col hscroll)))))) |
25292 | 523 |
31978
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
524 (defvar read-expression-map |
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
525 (let ((m (make-sparse-keymap))) |
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
526 (define-key m "\M-\t" 'lisp-complete-symbol) |
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
527 (set-keymap-parent m minibuffer-local-map) |
3a5e22f4cd99
(read-expression-map): Define more properly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31573
diff
changeset
|
528 m) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
529 "Minibuffer keymap used for reading Lisp expressions.") |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
530 |
4289
4d0c57f01eed
(read-expression-history): New defvar.
Roland McGrath <roland@gnu.org>
parents:
4287
diff
changeset
|
531 (defvar read-expression-history nil) |
4d0c57f01eed
(read-expression-history): New defvar.
Roland McGrath <roland@gnu.org>
parents:
4287
diff
changeset
|
532 |
25702
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
533 (defcustom eval-expression-print-level 4 |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
534 "*Value to use for `print-level' when printing value in `eval-expression'." |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
535 :group 'lisp |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
536 :type 'integer |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
537 :version "21.1") |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
538 |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
539 (defcustom eval-expression-print-length 12 |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
540 "*Value to use for `print-length' when printing value in `eval-expression'." |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
541 :group 'lisp |
30189
df730ad35266
(eval-expression-print-length): Change custom type to
Gerd Moellmann <gerd@gnu.org>
parents:
29808
diff
changeset
|
542 :type '(choice (const nil) integer) |
25702
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
543 :version "21.1") |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
544 |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
545 (defcustom eval-expression-debug-on-error t |
27302
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
546 "*Non-nil means set `debug-on-error' when evaluating in `eval-expression'. |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
547 If nil, don't change the value of `debug-on-error'." |
25702
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
548 :group 'lisp |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
549 :type 'boolean |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
550 :version "21.1") |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
551 |
4289
4d0c57f01eed
(read-expression-history): New defvar.
Roland McGrath <roland@gnu.org>
parents:
4287
diff
changeset
|
552 ;; We define this, rather than making `eval' interactive, |
475 | 553 ;; for the sake of completion of names like eval-region, eval-current-buffer. |
19514
9f6b375ce842
(eval-expression): Prefix arg means insert value in current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
19362
diff
changeset
|
554 (defun eval-expression (eval-expression-arg |
9f6b375ce842
(eval-expression): Prefix arg means insert value in current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
19362
diff
changeset
|
555 &optional eval-expression-insert-value) |
475 | 556 "Evaluate EXPRESSION and print value in minibuffer. |
954
9e51bb887797
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
921
diff
changeset
|
557 Value is also consed on to front of the variable `values'." |
4886
20e345c97e28
(eval-expression, edit-and-eval-command): Let
Brian Fox <bfox@gnu.org>
parents:
4869
diff
changeset
|
558 (interactive |
5068
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
559 (list (read-from-minibuffer "Eval: " |
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
560 nil read-expression-map t |
19514
9f6b375ce842
(eval-expression): Prefix arg means insert value in current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
19362
diff
changeset
|
561 'read-expression-history) |
9f6b375ce842
(eval-expression): Prefix arg means insert value in current buffer.
Richard M. Stallman <rms@gnu.org>
parents:
19362
diff
changeset
|
562 current-prefix-arg)) |
27302
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
563 |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
564 (if (null eval-expression-debug-on-error) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
565 (setq values (cons (eval eval-expression-arg) values)) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
566 (let ((old-value (make-symbol "t")) new-value) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
567 ;; Bind debug-on-error to something unique so that we can |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
568 ;; detect when evaled code changes it. |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
569 (let ((debug-on-error old-value)) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
570 (setq values (cons (eval eval-expression-arg) values)) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
571 (setq new-value debug-on-error)) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
572 ;; If evaled code has changed the value of debug-on-error, |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
573 ;; propagate that change to the global binding. |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
574 (unless (eq old-value new-value) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
575 (setq debug-on-error new-value)))) |
1cb6c18c3163
(eval-expression): Don't bind debug-on-error if
Gerd Moellmann <gerd@gnu.org>
parents:
27298
diff
changeset
|
576 |
25702
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
577 (let ((print-length eval-expression-print-length) |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
578 (print-level eval-expression-print-level)) |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
579 (prin1 (car values) |
2b96c6e05f23
(eval-expression-print-level): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
25490
diff
changeset
|
580 (if eval-expression-insert-value (current-buffer) t)))) |
475 | 581 |
582 (defun edit-and-eval-command (prompt command) | |
583 "Prompting with PROMPT, let user edit COMMAND and eval result. | |
584 COMMAND is a Lisp expression. Let user edit that expression in | |
585 the minibuffer, then read and evaluate the result." | |
5068
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
586 (let ((command (read-from-minibuffer prompt |
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
587 (prin1-to-string command) |
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
588 read-expression-map t |
9a42f23df119
(eval-expression): Don't bind minibuffer-history-sexp-flag.
Richard M. Stallman <rms@gnu.org>
parents:
4894
diff
changeset
|
589 '(command-history . 1)))) |
9629
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
590 ;; If command was added to command-history as a string, |
13960
5f1ba0200a33
(shell-command): Fix message spelling.
Karl Heuer <kwzh@gnu.org>
parents:
13810
diff
changeset
|
591 ;; get rid of that. We want only evaluable expressions there. |
9629
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
592 (if (stringp (car command-history)) |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
593 (setq command-history (cdr command-history))) |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
594 |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
595 ;; If command to be redone does not match front of history, |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
596 ;; add it to the history. |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
597 (or (equal command (car command-history)) |
53e092e189c6
(edit-and-eval-command): Elements of command-history are forms, not strings.
Karl Heuer <kwzh@gnu.org>
parents:
9554
diff
changeset
|
598 (setq command-history (cons command command-history))) |
475 | 599 (eval command))) |
600 | |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
601 (defun repeat-complex-command (arg) |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
602 "Edit and re-evaluate last complex command, or ARGth from last. |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
603 A complex command is one which used the minibuffer. |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
604 The command is placed in the minibuffer as a Lisp form for editing. |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
605 The result is executed, repeating the command as changed. |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
606 If the command has been changed or is not the most recent previous command |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
607 it is added to the front of the command history. |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
608 You can use the minibuffer history commands \\<minibuffer-local-map>\\[next-history-element] and \\[previous-history-element] |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
609 to get different commands to edit and resubmit." |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
610 (interactive "p") |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
611 (let ((elt (nth (1- arg) command-history)) |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
612 newcmd) |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
613 (if elt |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
614 (progn |
4821
2c16f99ef5dc
(edit-and-eval-command): Let `read-from-minibuffer' manipulate the
Brian Fox <bfox@gnu.org>
parents:
4765
diff
changeset
|
615 (setq newcmd |
16803
3d4a27ecfba9
(repeat-complex-command): Bind
Richard M. Stallman <rms@gnu.org>
parents:
16723
diff
changeset
|
616 (let ((print-level nil) |
3d4a27ecfba9
(repeat-complex-command): Bind
Richard M. Stallman <rms@gnu.org>
parents:
16723
diff
changeset
|
617 (minibuffer-history-position arg) |
20022
c9ed682ff86f
(previous-matching-history-element): No need to bind
Karl Heuer <kwzh@gnu.org>
parents:
19888
diff
changeset
|
618 (minibuffer-history-sexp-flag (1+ (minibuffer-depth)))) |
8734
bd55f44d82f1
(repeat-complex-command, next-history-element,
Richard M. Stallman <rms@gnu.org>
parents:
8695
diff
changeset
|
619 (read-from-minibuffer |
bd55f44d82f1
(repeat-complex-command, next-history-element,
Richard M. Stallman <rms@gnu.org>
parents:
8695
diff
changeset
|
620 "Redo: " (prin1-to-string elt) read-expression-map t |
bd55f44d82f1
(repeat-complex-command, next-history-element,
Richard M. Stallman <rms@gnu.org>
parents:
8695
diff
changeset
|
621 (cons 'command-history arg)))) |
4821
2c16f99ef5dc
(edit-and-eval-command): Let `read-from-minibuffer' manipulate the
Brian Fox <bfox@gnu.org>
parents:
4765
diff
changeset
|
622 |
5135
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
623 ;; If command was added to command-history as a string, |
13960
5f1ba0200a33
(shell-command): Fix message spelling.
Karl Heuer <kwzh@gnu.org>
parents:
13810
diff
changeset
|
624 ;; get rid of that. We want only evaluable expressions there. |
5135
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
625 (if (stringp (car command-history)) |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
626 (setq command-history (cdr command-history))) |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
627 |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
628 ;; If command to be redone does not match front of history, |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
629 ;; add it to the history. |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
630 (or (equal newcmd (car command-history)) |
b8731641d26a
(repeat-complex-command): Undo Oct 2 change.
Richard M. Stallman <rms@gnu.org>
parents:
5068
diff
changeset
|
631 (setq command-history (cons newcmd command-history))) |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
632 (eval newcmd)) |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
633 (ding)))) |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
634 |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
635 (defvar minibuffer-history nil |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
636 "Default minibuffer history list. |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
637 This is used for all minibuffer input |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
638 except when an alternate history list is specified.") |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
639 (defvar minibuffer-history-sexp-flag nil |
7373
451602bf12e4
(minibuffer-history-sexp-flag): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
7333
diff
changeset
|
640 "Non-nil when doing history operations on `command-history'. |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
641 More generally, indicates that the history list being acted on |
20022
c9ed682ff86f
(previous-matching-history-element): No need to bind
Karl Heuer <kwzh@gnu.org>
parents:
19888
diff
changeset
|
642 contains expressions rather than strings. |
c9ed682ff86f
(previous-matching-history-element): No need to bind
Karl Heuer <kwzh@gnu.org>
parents:
19888
diff
changeset
|
643 It is only valid if its value equals the current minibuffer depth, |
c9ed682ff86f
(previous-matching-history-element): No need to bind
Karl Heuer <kwzh@gnu.org>
parents:
19888
diff
changeset
|
644 to handle recursive uses of the minibuffer.") |
862
46630543d659
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
859
diff
changeset
|
645 (setq minibuffer-history-variable 'minibuffer-history) |
46630543d659
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
859
diff
changeset
|
646 (setq minibuffer-history-position nil) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
647 (defvar minibuffer-history-search-history nil) |
858
b11800dc877d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
648 |
921 | 649 (mapcar |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
650 (lambda (key-and-command) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
651 (mapcar |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
652 (lambda (keymap-and-completionp) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
653 ;; Arg is (KEYMAP-SYMBOL . COMPLETION-MAP-P). |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
654 ;; If the cdr of KEY-AND-COMMAND (the command) is a cons, |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
655 ;; its car is used if COMPLETION-MAP-P is nil, its cdr if it is t. |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
656 (define-key (symbol-value (car keymap-and-completionp)) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
657 (car key-and-command) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
658 (let ((command (cdr key-and-command))) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
659 (if (consp command) |
1826
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
660 ;; (and ... nil) => ... turns back on the completion-oriented |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
661 ;; history commands which rms turned off since they seem to |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
662 ;; do things he doesn't like. |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
663 (if (and (cdr keymap-and-completionp) nil) ;XXX turned off |
1838
34da3c151be4
Restore nuked information in minibuffer history bindings.
Roland McGrath <roland@gnu.org>
parents:
1837
diff
changeset
|
664 (progn (error "EMACS BUG!") (cdr command)) |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
665 (car command)) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
666 command)))) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
667 '((minibuffer-local-map . nil) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
668 (minibuffer-local-ns-map . nil) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
669 (minibuffer-local-completion-map . t) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
670 (minibuffer-local-must-match-map . t) |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
671 (read-expression-map . nil)))) |
1838
34da3c151be4
Restore nuked information in minibuffer history bindings.
Roland McGrath <roland@gnu.org>
parents:
1837
diff
changeset
|
672 '(("\en" . (next-history-element . next-complete-history-element)) |
34da3c151be4
Restore nuked information in minibuffer history bindings.
Roland McGrath <roland@gnu.org>
parents:
1837
diff
changeset
|
673 ([next] . (next-history-element . next-complete-history-element)) |
34da3c151be4
Restore nuked information in minibuffer history bindings.
Roland McGrath <roland@gnu.org>
parents:
1837
diff
changeset
|
674 ("\ep" . (previous-history-element . previous-complete-history-element)) |
34da3c151be4
Restore nuked information in minibuffer history bindings.
Roland McGrath <roland@gnu.org>
parents:
1837
diff
changeset
|
675 ([prior] . (previous-history-element . previous-complete-history-element)) |
921 | 676 ("\er" . previous-matching-history-element) |
677 ("\es" . next-matching-history-element))) | |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
678 |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
679 (defvar minibuffer-text-before-history nil |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
680 "Text that was in this minibuffer before any history commands. |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
681 This is nil if there have not yet been any history commands |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
682 in this use of the minibuffer.") |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
683 |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
684 (add-hook 'minibuffer-setup-hook 'minibuffer-history-initialize) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
685 |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
686 (defun minibuffer-history-initialize () |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
687 (setq minibuffer-text-before-history nil)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
688 |
22257
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
689 (defcustom minibuffer-history-case-insensitive-variables nil |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
690 "*Minibuffer history variables for which matching should ignore case. |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
691 If a history variable is a member of this list, then the |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
692 \\[previous-matching-history-element] and \\[next-matching-history-element]\ |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
693 commands ignore case when searching it, regardless of `case-fold-search'." |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
694 :type '(repeat variable) |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
695 :group 'minibuffer) |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
696 |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
697 (defun previous-matching-history-element (regexp n) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
698 "Find the previous history element that matches REGEXP. |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
699 \(Previous history elements refer to earlier actions.) |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
700 With prefix argument N, search for Nth previous match. |
20510
d175ee25287e
(previous-matching-history-element): Bind
Richard M. Stallman <rms@gnu.org>
parents:
20484
diff
changeset
|
701 If N is negative, find the next or Nth next match. |
22257
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
702 An uppercase letter in REGEXP makes the search case-sensitive. |
23e2e03f2bf6
(minibuffer-history-case-insensitive-variables): New var.
Richard M. Stallman <rms@gnu.org>
parents:
22157
diff
changeset
|
703 See also `minibuffer-history-case-insensitive-variables'." |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
704 (interactive |
2681
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
705 (let* ((enable-recursive-minibuffers t) |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
706 (regexp (read-from-minibuffer "Previous element matching (regexp): " |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
707 nil |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
708 minibuffer-local-map |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
709 nil |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
710 'minibuffer-history-search-history))) |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
711 ;; Use the last regexp specified, by default, if input is empty. |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
712 (list (if (string= regexp "") |
11961
b5efbe330c86
(previous-matching-history-element):
Karl Heuer <kwzh@gnu.org>
parents:
11572
diff
changeset
|
713 (if minibuffer-history-search-history |
b5efbe330c86
(previous-matching-history-element):
Karl Heuer <kwzh@gnu.org>
parents:
11572
diff
changeset
|
714 (car minibuffer-history-search-history) |
b5efbe330c86
(previous-matching-history-element):
Karl Heuer <kwzh@gnu.org>
parents:
11572
diff
changeset
|
715 (error "No previous history search regexp")) |
2681
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
716 regexp) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
717 (prefix-numeric-value current-prefix-arg)))) |
32897
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
718 (unless (zerop n) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
719 (if (and (zerop minibuffer-history-position) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
720 (null minibuffer-text-before-history)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
721 (setq minibuffer-text-before-history (field-string (point-max)))) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
722 (let ((history (symbol-value minibuffer-history-variable)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
723 (case-fold-search |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
724 (if (isearch-no-upper-case-p regexp t) ; assume isearch.el is dumped |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
725 ;; On some systems, ignore case for file names. |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
726 (if (memq minibuffer-history-variable |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
727 minibuffer-history-case-insensitive-variables) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
728 t |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
729 ;; Respect the user's setting for case-fold-search: |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
730 case-fold-search) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
731 nil)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
732 prevpos |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
733 match-string |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
734 match-offset |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
735 (pos minibuffer-history-position)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
736 (while (/= n 0) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
737 (setq prevpos pos) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
738 (setq pos (min (max 1 (+ pos (if (< n 0) -1 1))) (length history))) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
739 (when (= pos prevpos) |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
740 (error (if (= pos 1) |
892
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
741 "No later matching history item" |
3a9943a4a440
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
874
diff
changeset
|
742 "No earlier matching history item"))) |
32897
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
743 (setq match-string |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
744 (if (eq minibuffer-history-sexp-flag (minibuffer-depth)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
745 (let ((print-level nil)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
746 (prin1-to-string (nth (1- pos) history))) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
747 (nth (1- pos) history))) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
748 (setq match-offset |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
749 (if (< n 0) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
750 (and (string-match regexp match-string) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
751 (match-end 0)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
752 (and (string-match (concat ".*\\(" regexp "\\)") match-string) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
753 (match-beginning 1)))) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
754 (when match-offset |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
755 (setq n (+ n (if (< n 0) 1 -1))))) |
32897
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
756 (setq minibuffer-history-position pos) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
757 (goto-char (point-max)) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
758 (delete-field) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
759 (insert match-string) |
99da951a3b7f
(previous-matching-history-element):
Miles Bader <miles@gnu.org>
parents:
32507
diff
changeset
|
760 (goto-char (+ (field-beginning) match-offset)))) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
761 (if (or (eq (car (car command-history)) 'previous-matching-history-element) |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
762 (eq (car (car command-history)) 'next-matching-history-element)) |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
763 (setq command-history (cdr command-history)))) |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
764 |
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
765 (defun next-matching-history-element (regexp n) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
766 "Find the next history element that matches REGEXP. |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
767 \(The next history element refers to a more recent action.) |
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
768 With prefix argument N, search for Nth next match. |
20510
d175ee25287e
(previous-matching-history-element): Bind
Richard M. Stallman <rms@gnu.org>
parents:
20484
diff
changeset
|
769 If N is negative, find the previous or Nth previous match. |
d175ee25287e
(previous-matching-history-element): Bind
Richard M. Stallman <rms@gnu.org>
parents:
20484
diff
changeset
|
770 An uppercase letter in REGEXP makes the search case-sensitive." |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
771 (interactive |
2681
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
772 (let* ((enable-recursive-minibuffers t) |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
773 (regexp (read-from-minibuffer "Next element matching (regexp): " |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
774 nil |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
775 minibuffer-local-map |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
776 nil |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
777 'minibuffer-history-search-history))) |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
778 ;; Use the last regexp specified, by default, if input is empty. |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
779 (list (if (string= regexp "") |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
780 (setcar minibuffer-history-search-history |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
781 (nth 1 minibuffer-history-search-history)) |
9ebd08f578f0
(previous-matching-history-element): If minibuf is empty,
Richard M. Stallman <rms@gnu.org>
parents:
2669
diff
changeset
|
782 regexp) |
1135
e33f6475229a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
1063
diff
changeset
|
783 (prefix-numeric-value current-prefix-arg)))) |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
784 (previous-matching-history-element regexp (- n))) |
475 | 785 |
32105
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
786 (defvar minibuffer-temporary-goal-position nil) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
787 |
858
b11800dc877d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
788 (defun next-history-element (n) |
b11800dc877d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
789 "Insert the next element of the minibuffer history into the minibuffer." |
475 | 790 (interactive "p") |
10722
8ba6f9709cff
(next-history-element): Do nothing if n is 0.
Richard M. Stallman <rms@gnu.org>
parents:
10597
diff
changeset
|
791 (or (zerop n) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
792 (let ((narg (- minibuffer-history-position n)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
793 (minimum (if minibuffer-default -1 0)) |
24814 | 794 elt minibuffer-returned-to-present) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
795 (if (and (zerop minibuffer-history-position) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
796 (null minibuffer-text-before-history)) |
26054 | 797 (setq minibuffer-text-before-history (field-string (point-max)))) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
798 (if (< narg minimum) |
23472
d75fa19c5fc0
(next-history-element): Special error message if no default.
Richard M. Stallman <rms@gnu.org>
parents:
23471
diff
changeset
|
799 (if minibuffer-default |
d75fa19c5fc0
(next-history-element): Special error message if no default.
Richard M. Stallman <rms@gnu.org>
parents:
23471
diff
changeset
|
800 (error "End of history; no next item") |
d75fa19c5fc0
(next-history-element): Special error message if no default.
Richard M. Stallman <rms@gnu.org>
parents:
23471
diff
changeset
|
801 (error "End of history; no default available"))) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
802 (if (> narg (length (symbol-value minibuffer-history-variable))) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
803 (error "Beginning of history; no preceding item")) |
32105
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
804 (unless (or (eq last-command 'next-history-element) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
805 (eq last-command 'previous-history-element)) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
806 (let ((prompt-end (field-beginning (point-max)))) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
807 (set (make-local-variable 'minibuffer-temporary-goal-position) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
808 (cond ((<= (point) prompt-end) prompt-end) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
809 ((eobp) nil) |
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
810 (t (point)))))) |
26054 | 811 (goto-char (point-max)) |
26349
e3e54e862d5f
(previous-matching-history-element)
Gerd Moellmann <gerd@gnu.org>
parents:
26265
diff
changeset
|
812 (delete-field) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
813 (setq minibuffer-history-position narg) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
814 (cond ((= narg -1) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
815 (setq elt minibuffer-default)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
816 ((= narg 0) |
19888
45a077538366
(next-history-element):
Richard M. Stallman <rms@gnu.org>
parents:
19514
diff
changeset
|
817 (setq elt (or minibuffer-text-before-history "")) |
24814 | 818 (setq minibuffer-returned-to-present t) |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
819 (setq minibuffer-text-before-history nil)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
820 (t (setq elt (nth (1- minibuffer-history-position) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
821 (symbol-value minibuffer-history-variable))))) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
822 (insert |
24814 | 823 (if (and (eq minibuffer-history-sexp-flag (minibuffer-depth)) |
824 (not minibuffer-returned-to-present)) | |
17662
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
825 (let ((print-level nil)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
826 (prin1-to-string elt)) |
9b1b6974b36f
(minibuffer-text-before-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17613
diff
changeset
|
827 elt)) |
32105
f80262435e6c
(minibuffer-temporary-goal-position):
Miles Bader <miles@gnu.org>
parents:
31978
diff
changeset
|
828 (goto-char (or minibuffer-temporary-goal-position (point-max)))))) |
475 | 829 |
858
b11800dc877d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
846
diff
changeset
|
830 (defun previous-history-element (n) |
1145 | 831 "Inserts the previous element of the minibuffer history into the minibuffer." |
475 | 832 (interactive "p") |
859
5f325fbc093d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
858
diff
changeset
|
833 (next-history-element (- n))) |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
834 |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
835 (defun next-complete-history-element (n) |
26054 | 836 "Get next history element which completes the minibuffer before the point. |
837 The contents of the minibuffer after the point are deleted, and replaced | |
838 by the new completion." | |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
839 (interactive "p") |
1826
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
840 (let ((point-at-start (point))) |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
841 (next-matching-history-element |
26054 | 842 (concat |
843 "^" (regexp-quote (buffer-substring (field-beginning) (point)))) | |
844 n) | |
1826
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
845 ;; next-matching-history-element always puts us at (point-min). |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
846 ;; Move to the position we were at before changing the buffer contents. |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
847 ;; This is still sensical, because the text before point has not changed. |
6ca05c5f8979
(next-complete-history-element): Restore point after replacing the
Roland McGrath <roland@gnu.org>
parents:
1824
diff
changeset
|
848 (goto-char point-at-start))) |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
849 |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
850 (defun previous-complete-history-element (n) |
5324
f091cdec77e2
(next-complete-history-element): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5151
diff
changeset
|
851 "\ |
26054 | 852 Get previous history element which completes the minibuffer before the point. |
853 The contents of the minibuffer after the point are deleted, and replaced | |
854 by the new completion." | |
1811
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
855 (interactive "p") |
3e4f8b1da4e9
({next,previous}-complete-history-element): New functions.
Roland McGrath <roland@gnu.org>
parents:
1771
diff
changeset
|
856 (next-complete-history-element (- n))) |
26054 | 857 |
858 ;; These two functions are for compatibility with the old subrs of the | |
859 ;; same name. | |
860 | |
861 (defun minibuffer-prompt-width () | |
862 "Return the display width of the minibuffer prompt. | |
863 Return 0 if current buffer is not a mini-buffer." | |
864 ;; Return the width of everything before the field at the end of | |
865 ;; the buffer; this should be 0 for normal buffers. | |
866 (1- (field-beginning (point-max)))) | |
867 | |
868 (defun minibuffer-prompt-end () | |
869 "Return the buffer position of the end of the minibuffer prompt. | |
870 Return 0 if current buffer is not a mini-buffer." | |
26063
aa272f550e17
(minibuffer-prompt-end): Return the position
Gerd Moellmann <gerd@gnu.org>
parents:
26054
diff
changeset
|
871 (field-beginning (point-max))) |
aa272f550e17
(minibuffer-prompt-end): Return the position
Gerd Moellmann <gerd@gnu.org>
parents:
26054
diff
changeset
|
872 |
874
b945f592b94d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
870
diff
changeset
|
873 |
475 | 874 ;Put this on C-x u, so we can force that rather than C-_ into startup msg |
16436
d2acc84badf4
Use defalias not define-function.
Richard M. Stallman <rms@gnu.org>
parents:
16417
diff
changeset
|
875 (defalias 'advertised-undo 'undo) |
475 | 876 |
877 (defun undo (&optional arg) | |
878 "Undo some previous changes. | |
879 Repeat this command to undo more changes. | |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
880 A numeric argument serves as a repeat count. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
881 |
32899
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
882 In Transient Mark mode when the mark is active, only undo changes within |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
883 the current region. Similarly, when not in Transient Mark mode, just C-u |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
884 as an argument limits undo to changes within the current region." |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
885 (interactive "*P") |
5935
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
886 ;; If we don't get all the way thru, make last-command indicate that |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
887 ;; for the following command. |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
888 (setq this-command t) |
3408
8ffb00332c5f
(undo): Pass proper arg to delete-auto-save-file-if-necessary.
Richard M. Stallman <rms@gnu.org>
parents:
3034
diff
changeset
|
889 (let ((modified (buffer-modified-p)) |
8ffb00332c5f
(undo): Pass proper arg to delete-auto-save-file-if-necessary.
Richard M. Stallman <rms@gnu.org>
parents:
3034
diff
changeset
|
890 (recent-save (recent-auto-save-p))) |
582 | 891 (or (eq (selected-window) (minibuffer-window)) |
892 (message "Undo!")) | |
32899
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
893 (unless (eq last-command 'undo) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
894 (if (if transient-mark-mode mark-active (and arg (not (numberp arg)))) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
895 (undo-start (region-beginning) (region-end)) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
896 (undo-start)) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
897 ;; get rid of initial undo boundary |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
898 (undo-more 1)) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
899 (undo-more |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
900 (if (or transient-mark-mode (numberp arg)) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
901 (prefix-numeric-value arg) |
5e2b0129cfde
(undo): Correctly distinguish between numeric and non-numeric prefix
Miles Bader <miles@gnu.org>
parents:
32897
diff
changeset
|
902 1)) |
6386
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
903 ;; Don't specify a position in the undo record for the undo command. |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
904 ;; Instead, undoing this should move point to where the change is. |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
905 (let ((tail buffer-undo-list) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
906 done) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
907 (while (and tail (not done) (not (null (car tail)))) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
908 (if (integerp (car tail)) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
909 (progn |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
910 (setq done t) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
911 (setq buffer-undo-list (delq (car tail) buffer-undo-list)))) |
1eabdff45c61
(undo): Don't let the undo entries for the undo
Richard M. Stallman <rms@gnu.org>
parents:
6237
diff
changeset
|
912 (setq tail (cdr tail)))) |
475 | 913 (and modified (not (buffer-modified-p)) |
5935
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
914 (delete-auto-save-file-if-necessary recent-save))) |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
915 ;; If we do get all the way thru, make this-command indicate that. |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
916 (setq this-command 'undo)) |
475 | 917 |
2947
518509536741
(pending-undo-list): Var declared.
Richard M. Stallman <rms@gnu.org>
parents:
2935
diff
changeset
|
918 (defvar pending-undo-list nil |
518509536741
(pending-undo-list): Var declared.
Richard M. Stallman <rms@gnu.org>
parents:
2935
diff
changeset
|
919 "Within a run of consecutive undo commands, list remaining to be undone.") |
518509536741
(pending-undo-list): Var declared.
Richard M. Stallman <rms@gnu.org>
parents:
2935
diff
changeset
|
920 |
22725
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
921 (defvar undo-in-progress nil |
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
922 "Non-nil while performing an undo. |
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
923 Some change-hooks test this variable to do something different.") |
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
924 |
475 | 925 (defun undo-more (count) |
926 "Undo back N undo-boundaries beyond what was already undone recently. | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
927 Call `undo-start' to get ready to undo recent changes, |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
928 then call `undo-more' one or more times to undo them." |
475 | 929 (or pending-undo-list |
930 (error "No further undo information")) | |
22725
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
931 (let ((undo-in-progress t)) |
6d0f7798f157
(undo-in-progress): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22375
diff
changeset
|
932 (setq pending-undo-list (primitive-undo count pending-undo-list)))) |
475 | 933 |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
934 ;; Deep copy of a list |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
935 (defun undo-copy-list (list) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
936 "Make a copy of undo list LIST." |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
937 (mapcar 'undo-copy-list-1 list)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
938 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
939 (defun undo-copy-list-1 (elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
940 (if (consp elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
941 (cons (car elt) (undo-copy-list-1 (cdr elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
942 elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
943 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
944 (defun undo-start (&optional beg end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
945 "Set `pending-undo-list' to the front of the undo list. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
946 The next call to `undo-more' will undo the most recently made change. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
947 If BEG and END are specified, then only undo elements |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
948 that apply to text between BEG and END are used; other undo elements |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
949 are ignored. If BEG and END are nil, all undo elements are used." |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
950 (if (eq buffer-undo-list t) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
951 (error "No undo information in this buffer")) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
952 (setq pending-undo-list |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
953 (if (and beg end (not (= beg end))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
954 (undo-make-selective-list (min beg end) (max beg end)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
955 buffer-undo-list))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
956 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
957 (defvar undo-adjusted-markers) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
958 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
959 (defun undo-make-selective-list (start end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
960 "Return a list of undo elements for the region START to END. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
961 The elements come from `buffer-undo-list', but we keep only |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
962 the elements inside this region, and discard those outside this region. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
963 If we find an element that crosses an edge of this region, |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
964 we stop and ignore all further elements." |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
965 (let ((undo-list-copy (undo-copy-list buffer-undo-list)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
966 (undo-list (list nil)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
967 undo-adjusted-markers |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
968 some-rejected |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
969 undo-elt undo-elt temp-undo-list delta) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
970 (while undo-list-copy |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
971 (setq undo-elt (car undo-list-copy)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
972 (let ((keep-this |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
973 (cond ((and (consp undo-elt) (eq (car undo-elt) t)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
974 ;; This is a "was unmodified" element. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
975 ;; Keep it if we have kept everything thus far. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
976 (not some-rejected)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
977 (t |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
978 (undo-elt-in-region undo-elt start end))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
979 (if keep-this |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
980 (progn |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
981 (setq end (+ end (cdr (undo-delta undo-elt)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
982 ;; Don't put two nils together in the list |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
983 (if (not (and (eq (car undo-list) nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
984 (eq undo-elt nil))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
985 (setq undo-list (cons undo-elt undo-list)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
986 (if (undo-elt-crosses-region undo-elt start end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
987 (setq undo-list-copy nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
988 (setq some-rejected t) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
989 (setq temp-undo-list (cdr undo-list-copy)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
990 (setq delta (undo-delta undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
991 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
992 (when (/= (cdr delta) 0) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
993 (let ((position (car delta)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
994 (offset (cdr delta))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
995 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
996 ;; Loop down the earlier events adjusting their buffer positions |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
997 ;; to reflect the fact that a change to the buffer isn't being |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
998 ;; undone. We only need to process those element types which |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
999 ;; undo-elt-in-region will return as being in the region since |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1000 ;; only those types can ever get into the output |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1001 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1002 (while temp-undo-list |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1003 (setq undo-elt (car temp-undo-list)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1004 (cond ((integerp undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1005 (if (>= undo-elt position) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1006 (setcar temp-undo-list (- undo-elt offset)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1007 ((atom undo-elt) nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1008 ((stringp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1009 ;; (TEXT . POSITION) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1010 (let ((text-pos (abs (cdr undo-elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1011 (point-at-end (< (cdr undo-elt) 0 ))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1012 (if (>= text-pos position) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1013 (setcdr undo-elt (* (if point-at-end -1 1) |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1014 (- text-pos offset)))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1015 ((integerp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1016 ;; (BEGIN . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1017 (when (>= (car undo-elt) position) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1018 (setcar undo-elt (- (car undo-elt) offset)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1019 (setcdr undo-elt (- (cdr undo-elt) offset)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1020 ((null (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1021 ;; (nil PROPERTY VALUE BEG . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1022 (let ((tail (nthcdr 3 undo-elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1023 (when (>= (car tail) position) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1024 (setcar tail (- (car tail) offset)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1025 (setcdr tail (- (cdr tail) offset)))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1026 (setq temp-undo-list (cdr temp-undo-list)))))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1027 (setq undo-list-copy (cdr undo-list-copy))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1028 (nreverse undo-list))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1029 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1030 (defun undo-elt-in-region (undo-elt start end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1031 "Determine whether UNDO-ELT falls inside the region START ... END. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1032 If it crosses the edge, we return nil." |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1033 (cond ((integerp undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1034 (and (>= undo-elt start) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1035 (< undo-elt end))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1036 ((eq undo-elt nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1037 t) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1038 ((atom undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1039 nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1040 ((stringp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1041 ;; (TEXT . POSITION) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1042 (and (>= (abs (cdr undo-elt)) start) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1043 (< (abs (cdr undo-elt)) end))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1044 ((and (consp undo-elt) (markerp (car undo-elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1045 ;; This is a marker-adjustment element (MARKER . ADJUSTMENT). |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1046 ;; See if MARKER is inside the region. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1047 (let ((alist-elt (assq (car undo-elt) undo-adjusted-markers))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1048 (unless alist-elt |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1049 (setq alist-elt (cons (car undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1050 (marker-position (car undo-elt)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1051 (setq undo-adjusted-markers |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1052 (cons alist-elt undo-adjusted-markers))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1053 (and (cdr alist-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1054 (>= (cdr alist-elt) start) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1055 (< (cdr alist-elt) end)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1056 ((null (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1057 ;; (nil PROPERTY VALUE BEG . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1058 (let ((tail (nthcdr 3 undo-elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1059 (and (>= (car tail) start) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1060 (< (cdr tail) end)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1061 ((integerp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1062 ;; (BEGIN . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1063 (and (>= (car undo-elt) start) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1064 (< (cdr undo-elt) end))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1065 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1066 (defun undo-elt-crosses-region (undo-elt start end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1067 "Test whether UNDO-ELT crosses one edge of that region START ... END. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1068 This assumes we have already decided that UNDO-ELT |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1069 is not *inside* the region START...END." |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1070 (cond ((atom undo-elt) nil) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1071 ((null (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1072 ;; (nil PROPERTY VALUE BEG . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1073 (let ((tail (nthcdr 3 undo-elt))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1074 (not (or (< (car tail) end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1075 (> (cdr tail) start))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1076 ((integerp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1077 ;; (BEGIN . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1078 (not (or (< (car undo-elt) end) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1079 (> (cdr undo-elt) start)))))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1080 |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1081 ;; Return the first affected buffer position and the delta for an undo element |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1082 ;; delta is defined as the change in subsequent buffer positions if we *did* |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1083 ;; the undo. |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1084 (defun undo-delta (undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1085 (if (consp undo-elt) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1086 (cond ((stringp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1087 ;; (TEXT . POSITION) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1088 (cons (abs (cdr undo-elt)) (length (car undo-elt)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1089 ((integerp (car undo-elt)) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1090 ;; (BEGIN . END) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1091 (cons (car undo-elt) (- (car undo-elt) (cdr undo-elt)))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1092 (t |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1093 '(0 . 0))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1094 '(0 . 0))) |
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1095 |
4374
1a64d641cea4
(shell-command-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4289
diff
changeset
|
1096 (defvar shell-command-history nil |
1a64d641cea4
(shell-command-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4289
diff
changeset
|
1097 "History list for some commands that read shell commands.") |
1a64d641cea4
(shell-command-history): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4289
diff
changeset
|
1098 |
9779
1286985b5a26
(shell-command-switch): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9771
diff
changeset
|
1099 (defvar shell-command-switch "-c" |
1286985b5a26
(shell-command-switch): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9771
diff
changeset
|
1100 "Switch used to have the shell execute its command line argument.") |
1286985b5a26
(shell-command-switch): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9771
diff
changeset
|
1101 |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1102 (defvar shell-command-default-error-buffer nil |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1103 "*Buffer name for `shell-command' and `shell-command-on-region' error output. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1104 This buffer is used when `shell-command' or 'shell-command-on-region' |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1105 is run interactively. A value of nil means that output to stderr and |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1106 stdout will be intermixed in the output stream.") |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1107 |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1108 (defun shell-command (command &optional output-buffer error-buffer) |
475 | 1109 "Execute string COMMAND in inferior shell; display output, if any. |
11072
c5fbb6f272f2
(shell-command): Use *Async Shell Command* for
Richard M. Stallman <rms@gnu.org>
parents:
11036
diff
changeset
|
1110 |
475 | 1111 If COMMAND ends in ampersand, execute it asynchronously. |
11072
c5fbb6f272f2
(shell-command): Use *Async Shell Command* for
Richard M. Stallman <rms@gnu.org>
parents:
11036
diff
changeset
|
1112 The output appears in the buffer `*Async Shell Command*'. |
12565
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
1113 That buffer is in shell mode. |
11072
c5fbb6f272f2
(shell-command): Use *Async Shell Command* for
Richard M. Stallman <rms@gnu.org>
parents:
11036
diff
changeset
|
1114 |
33312
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1115 Otherwise, COMMAND is executed synchronously. The output appears in |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1116 the buffer `*Shell Command Output*'. If the output is short enough to |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1117 display in the echo area (which is determined by the variables |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1118 `resize-mini-windows' and `max-mini-window-height'), it is shown |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1119 there, but it is nonetheless available in buffer `*Shell Command |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1120 Output*' even though that buffer is not automatically displayed. If |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1121 there is no output, or if output is inserted in the current buffer, |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1122 then `*Shell Command Output*' is deleted. |
9539
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1123 |
19109
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1124 To specify a coding system for converting non-ASCII characters |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1125 in the shell command output, use \\[universal-coding-system-argument] |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1126 before this command. |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1127 |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1128 Noninteractive callers can specify coding systems by binding |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1129 `coding-system-for-read' and `coding-system-for-write'. |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1130 |
9539
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1131 The optional second argument OUTPUT-BUFFER, if non-nil, |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1132 says to put the output in some other buffer. |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1133 If OUTPUT-BUFFER is a buffer or buffer name, put the output there. |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1134 If OUTPUT-BUFFER is not a buffer and not nil, |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1135 insert output in current buffer. (This cannot be done asynchronously.) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1136 In either case, the output is inserted after point (leaving mark after it). |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1137 |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1138 If the optional third argument ERROR-BUFFER is non-nil, it is a buffer |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1139 or buffer name to which to direct the command's standard error output. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1140 If it is nil, error output is mingled with regular output. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1141 In an interactive call, the variable `shell-command-default-error-buffer' |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1142 specifies the value of ERROR-BUFFER." |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1143 |
4488
b0a70d8d9af4
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
4477
diff
changeset
|
1144 (interactive (list (read-from-minibuffer "Shell command: " |
b0a70d8d9af4
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
4477
diff
changeset
|
1145 nil nil nil 'shell-command-history) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1146 current-prefix-arg |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1147 shell-command-default-error-buffer)) |
14627
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1148 ;; Look for a handler in case default-directory is a remote file name. |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1149 (let ((handler |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1150 (find-file-name-handler (directory-file-name default-directory) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1151 'shell-command))) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1152 (if handler |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1153 (funcall handler 'shell-command command output-buffer error-buffer) |
14627
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1154 (if (and output-buffer |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1155 (not (or (bufferp output-buffer) (stringp output-buffer)))) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1156 (let ((error-file |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1157 (if error-buffer |
26003
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
1158 (make-temp-file |
25483
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1159 (expand-file-name "scor" |
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1160 (or small-temporary-file-directory |
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1161 temporary-file-directory))) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1162 nil))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1163 (barf-if-buffer-read-only) |
24825
f88179cfae99
(shell-command): Avoid printing "mark set" message.
Karl Heuer <kwzh@gnu.org>
parents:
24814
diff
changeset
|
1164 (push-mark nil t) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1165 ;; We do not use -f for csh; we will not support broken use of |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1166 ;; .cshrcs. Even the BSD csh manual says to use |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1167 ;; "if ($?prompt) exit" before things which are not useful |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1168 ;; non-interactively. Besides, if someone wants their other |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1169 ;; aliases for shell commands then they can still have them. |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1170 (call-process shell-file-name nil |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1171 (if error-file |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1172 (list t error-file) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1173 t) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1174 nil shell-command-switch command) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1175 (when (and error-file (file-exists-p error-file)) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1176 (if (< 0 (nth 7 (file-attributes error-file))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1177 (with-current-buffer (get-buffer-create error-buffer) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1178 (let ((pos-from-end (- (point-max) (point)))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1179 (or (bobp) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1180 (insert "\f\n")) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1181 ;; Do no formatting while reading error file, |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1182 ;; because that can run a shell command, and we |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1183 ;; don't want that to cause an infinite recursion. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1184 (format-insert-file error-file nil) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1185 ;; Put point after the inserted errors. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1186 (goto-char (- (point-max) pos-from-end))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1187 (display-buffer (current-buffer)))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1188 (delete-file error-file)) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1189 ;; This is like exchange-point-and-mark, but doesn't |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1190 ;; activate the mark. It is cleaner to avoid activation, |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1191 ;; even though the command loop would deactivate the mark |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1192 ;; because we inserted text. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1193 (goto-char (prog1 (mark t) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1194 (set-marker (mark-marker) (point) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1195 (current-buffer))))) |
14627
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1196 ;; Preserve the match data in case called from a program. |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1197 (save-match-data |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1198 (if (string-match "[ \t]*&[ \t]*$" command) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1199 ;; Command ending with ampersand means asynchronous. |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1200 (let ((buffer (get-buffer-create |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1201 (or output-buffer "*Async Shell Command*"))) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1202 (directory default-directory) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1203 proc) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1204 ;; Remove the ampersand. |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1205 (setq command (substring command 0 (match-beginning 0))) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1206 ;; If will kill a process, query first. |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1207 (setq proc (get-buffer-process buffer)) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1208 (if proc |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1209 (if (yes-or-no-p "A command is running. Kill it? ") |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1210 (kill-process proc) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1211 (error "Shell command in progress"))) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1212 (save-excursion |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1213 (set-buffer buffer) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1214 (setq buffer-read-only nil) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1215 (erase-buffer) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1216 (display-buffer buffer) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1217 (setq default-directory directory) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1218 (setq proc (start-process "Shell" buffer shell-file-name |
14627
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1219 shell-command-switch command)) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1220 (setq mode-line-process '(":%s")) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1221 (require 'shell) (shell-mode) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1222 (set-process-sentinel proc 'shell-command-sentinel) |
670173a3653b
(shell-command): Call file name handler.
Karl Heuer <kwzh@gnu.org>
parents:
14507
diff
changeset
|
1223 )) |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1224 (shell-command-on-region (point) (point) command |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1225 output-buffer nil error-buffer))))))) |
21175
e260c4389363
Implement selective undo (by Paul Flinders).
Richard M. Stallman <rms@gnu.org>
parents:
21122
diff
changeset
|
1226 |
32203
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1227 (defun display-message-or-buffer (message |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1228 &optional buffer-name not-this-window frame) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1229 "Display MESSAGE in the echo area if possible, otherwise in a pop-up buffer. |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1230 MESSAGE may be either a string or a buffer. |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1231 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1232 A buffer is displayed using `display-buffer' if MESSAGE is too long for |
33312
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1233 the maximum height of the echo area, as defined by `max-mini-window-height' |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1234 if `resize-mini-windows' is non-nil. |
32203
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1235 |
32260 | 1236 Returns either the string shown in the echo area, or when a pop-up |
1237 buffer is used, the window used to display it. | |
1238 | |
32203
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1239 If MESSAGE is a string, then the optional argument BUFFER-NAME is the |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1240 name of the buffer used to display it in the case where a pop-up buffer |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1241 is used, defaulting to `*Message*'. In the case where MESSAGE is a |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1242 string and it is displayed in the echo area, it is not specified whether |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1243 the contents are inserted into the buffer anyway. |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1244 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1245 Optional arguments NOT-THIS-WINDOW and FRAME are as for `display-buffer', |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1246 and only used if a buffer is displayed." |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1247 (cond ((and (stringp message) (not (string-match "\n" message))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1248 ;; Trivial case where we can use the echo area |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1249 (message "%s" message)) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1250 ((and (stringp message) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1251 (= (string-match "\n" message) (1- (length message)))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1252 ;; Trivial case where we can just remove single trailing newline |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1253 (message "%s" (substring message 0 (1- (length message))))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1254 (t |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1255 ;; General case |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1256 (with-current-buffer |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1257 (if (bufferp message) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1258 message |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1259 (get-buffer-create (or buffer-name "*Message*"))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1260 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1261 (unless (bufferp message) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1262 (erase-buffer) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1263 (insert message)) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1264 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1265 (let ((lines |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1266 (if (= (buffer-size) 0) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1267 0 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1268 (count-lines (point-min) (point-max))))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1269 (cond ((or (<= lines 1) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1270 (<= lines |
33312
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1271 (if resize-mini-windows |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1272 (cond ((floatp max-mini-window-height) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1273 (* (frame-height) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1274 max-mini-window-height)) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1275 ((integerp max-mini-window-height) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1276 max-mini-window-height) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1277 (t |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1278 1)) |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1279 1))) |
32203
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1280 ;; Echo area |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1281 (goto-char (point-max)) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1282 (when (bolp) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1283 (backward-char 1)) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1284 (message "%s" (buffer-substring (point-min) (point)))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1285 (t |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1286 ;; Buffer |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1287 (goto-char (point-min)) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1288 (display-buffer message not-this-window frame)))))))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1289 |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1290 |
475 | 1291 ;; We have a sentinel to prevent insertion of a termination message |
1292 ;; in the buffer itself. | |
1293 (defun shell-command-sentinel (process signal) | |
12565
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
1294 (if (memq (process-status process) '(exit signal)) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1295 (message "%s: %s." |
12565
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
1296 (car (cdr (cdr (process-command process)))) |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
1297 (substring signal 0 -1)))) |
475 | 1298 |
9539
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1299 (defun shell-command-on-region (start end command |
19362
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1300 &optional output-buffer replace |
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1301 error-buffer) |
475 | 1302 "Execute string COMMAND in inferior shell with region as input. |
1303 Normally display output (if any) in temp buffer `*Shell Command Output*'; | |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1304 Prefix arg means replace the region with it. Return the exit code of |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1305 COMMAND. |
10852
55552df3bd18
(shell-command-on-region): Rename arg; doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10813
diff
changeset
|
1306 |
19109
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1307 To specify a coding system for converting non-ASCII characters |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1308 in the input and output to the shell command, use \\[universal-coding-system-argument] |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1309 before this command. By default, the input (from the current buffer) |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1310 is encoded in the same coding system that will be used to save the file, |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1311 `buffer-file-coding-system'. If the output is going to replace the region, |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1312 then it is decoded from that same coding system. |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
1313 |
23471
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1314 The noninteractive arguments are START, END, COMMAND, OUTPUT-BUFFER, |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1315 REPLACE, ERROR-BUFFER. Noninteractive callers can specify coding |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1316 systems by binding `coding-system-for-read' and |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1317 `coding-system-for-write'. |
475 | 1318 |
32201
2d44e29be6fa
(shell-command-on-region): If the output is short enough to display in
Miles Bader <miles@gnu.org>
parents:
32105
diff
changeset
|
1319 If the output is short enough to display in the echo area (which is |
33312
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1320 determined by the variable `max-mini-window-height' if |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1321 `resize-mini-windows' is non-nil), it is shown there, but it is |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1322 nonetheless available in buffer `*Shell Command Output*' even though |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1323 that buffer is not automatically displayed. If there is no output, or |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1324 if output is inserted in the current buffer, then `*Shell Command |
1e1d6d077288
(shell-command, display-message-or-buffer)
Gerd Moellmann <gerd@gnu.org>
parents:
32899
diff
changeset
|
1325 Output*' is deleted. |
9539
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1326 |
10852
55552df3bd18
(shell-command-on-region): Rename arg; doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10813
diff
changeset
|
1327 If the optional fourth argument OUTPUT-BUFFER is non-nil, |
55552df3bd18
(shell-command-on-region): Rename arg; doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10813
diff
changeset
|
1328 that says to put the output in some other buffer. |
9539
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1329 If OUTPUT-BUFFER is a buffer or buffer name, put the output there. |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1330 If OUTPUT-BUFFER is not a buffer and not nil, |
164a7cb8d0ea
(shell-command, shell-command-on-region):
Richard M. Stallman <rms@gnu.org>
parents:
9434
diff
changeset
|
1331 insert output in the current buffer. |
19362
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1332 In either case, the output is inserted after point (leaving mark after it). |
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1333 |
23471
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1334 If REPLACE, the optional fifth argument, is non-nil, that means insert |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1335 the output in place of text from START to END, putting point and mark |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1336 around it. |
b6dbbd2cc3ac
(shell-command-on-region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23450
diff
changeset
|
1337 |
23588
cec6b3f8f355
(shell-command-on-region): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
23520
diff
changeset
|
1338 If optional sixth argument ERROR-BUFFER is non-nil, it is a buffer |
19362
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1339 or buffer name to which to direct the command's standard error output. |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1340 If it is nil, error output is mingled with regular output. |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1341 In an interactive call, the variable `shell-command-default-error-buffer' |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1342 specifies the value of ERROR-BUFFER." |
10805
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1343 (interactive (let ((string |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1344 ;; Do this before calling region-beginning |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1345 ;; and region-end, in case subprocess output |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1346 ;; relocates them while we are in the minibuffer. |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1347 (read-from-minibuffer "Shell command on region: " |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1348 nil nil nil |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1349 'shell-command-history))) |
13482
e49cd471ced7
(do-auto-fill): Use fill-context-prefix.
Richard M. Stallman <rms@gnu.org>
parents:
13328
diff
changeset
|
1350 ;; call-interactively recognizes region-beginning and |
e49cd471ced7
(do-auto-fill): Use fill-context-prefix.
Richard M. Stallman <rms@gnu.org>
parents:
13328
diff
changeset
|
1351 ;; region-end specially, leaving them in the history. |
e49cd471ced7
(do-auto-fill): Use fill-context-prefix.
Richard M. Stallman <rms@gnu.org>
parents:
13328
diff
changeset
|
1352 (list (region-beginning) (region-end) |
10805
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1353 string |
7b7874738e7c
(shell-command-on-region): When computing interactive args,
Richard M. Stallman <rms@gnu.org>
parents:
10779
diff
changeset
|
1354 current-prefix-arg |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1355 current-prefix-arg |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1356 shell-command-default-error-buffer))) |
19362
fddeff2c6697
(shell-command-on-region): New argument ERROR-BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
19343
diff
changeset
|
1357 (let ((error-file |
25483
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1358 (if error-buffer |
26003
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
1359 (make-temp-file |
25483
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1360 (expand-file-name "scor" |
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1361 (or small-temporary-file-directory |
cd1649a27c08
(shell-command, shell-command-on-region): Use
Eli Zaretskii <eliz@gnu.org>
parents:
25400
diff
changeset
|
1362 temporary-file-directory))) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1363 nil)) |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1364 exit-status) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1365 (if (or replace |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1366 (and output-buffer |
24400
a4a1ad877482
(shell-command-on-region): Don't go into the REPLACE = t
Richard M. Stallman <rms@gnu.org>
parents:
24398
diff
changeset
|
1367 (not (or (bufferp output-buffer) (stringp output-buffer))))) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1368 ;; Replace specified region with output from command. |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1369 (let ((swap (and replace (< start end)))) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1370 ;; Don't muck with mark unless REPLACE says we should. |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1371 (goto-char start) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1372 (and replace (push-mark)) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1373 (setq exit-status |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1374 (call-process-region start end shell-file-name t |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1375 (if error-file |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1376 (list t error-file) |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1377 t) |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1378 nil shell-command-switch command)) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1379 (let ((shell-buffer (get-buffer "*Shell Command Output*"))) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1380 (and shell-buffer (not (eq shell-buffer (current-buffer))) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1381 (kill-buffer shell-buffer))) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1382 ;; Don't muck with mark unless REPLACE says we should. |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1383 (and replace swap (exchange-point-and-mark))) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1384 ;; No prefix argument: put the output in a temp buffer, |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1385 ;; replacing its entire contents. |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1386 (let ((buffer (get-buffer-create |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1387 (or output-buffer "*Shell Command Output*"))) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1388 (success nil)) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1389 (unwind-protect |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1390 (if (eq buffer (current-buffer)) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1391 ;; If the input is the same buffer as the output, |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1392 ;; delete everything but the specified region, |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1393 ;; then replace that region with the output. |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1394 (progn (setq buffer-read-only nil) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1395 (delete-region (max start end) (point-max)) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1396 (delete-region (point-min) (min start end)) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1397 (setq exit-status |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1398 (call-process-region (point-min) (point-max) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1399 shell-file-name t |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1400 (if error-file |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1401 (list t error-file) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1402 t) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1403 nil shell-command-switch |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1404 command))) |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1405 ;; Clear the output buffer, then run the command with |
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1406 ;; output there. |
28703
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1407 (let ((directory default-directory)) |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1408 (save-excursion |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1409 (set-buffer buffer) |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1410 (setq buffer-read-only nil) |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1411 (if (not output-buffer) |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1412 (setq default-directory directory)) |
8cc58b0b674d
(shell-command): Set default directory for "*Shell
Gerd Moellmann <gerd@gnu.org>
parents:
28661
diff
changeset
|
1413 (erase-buffer))) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1414 (setq exit-status |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1415 (call-process-region start end shell-file-name nil |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1416 (if error-file |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1417 (list buffer error-file) |
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1418 buffer) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1419 nil shell-command-switch command))) |
25147
820b95325cb5
(shell-command-on-region): EXIT-STATUS can be a string.
Richard M. Stallman <rms@gnu.org>
parents:
25046
diff
changeset
|
1420 (setq success (and exit-status (equal 0 exit-status))) |
24106
ea58bb66d0e3
(shell-command-on-region-default-error-buffer): New var.
Richard M. Stallman <rms@gnu.org>
parents:
24078
diff
changeset
|
1421 ;; Report the amount of output. |
32203
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1422 (if (with-current-buffer buffer (> (point-max) (point-min))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1423 ;; There's some output, display it |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1424 (display-message-or-buffer buffer) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1425 ;; No output; error? |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1426 (message (if (and error-file |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1427 (< 0 (nth 7 (file-attributes error-file)))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1428 "(Shell command %sed with some error output)" |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1429 "(Shell command %sed with no output)") |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1430 (if (equal 0 exit-status) "succeed" "fail")) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1431 (kill-buffer buffer))))) |
f10445ddce32
(display-message-or-buffer): New function.
Miles Bader <miles@gnu.org>
parents:
32201
diff
changeset
|
1432 |
24419
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1433 (when (and error-file (file-exists-p error-file)) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1434 (if (< 0 (nth 7 (file-attributes error-file))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1435 (with-current-buffer (get-buffer-create error-buffer) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1436 (let ((pos-from-end (- (point-max) (point)))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1437 (or (bobp) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1438 (insert "\f\n")) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1439 ;; Do no formatting while reading error file, |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1440 ;; because that can run a shell command, and we |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1441 ;; don't want that to cause an infinite recursion. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1442 (format-insert-file error-file nil) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1443 ;; Put point after the inserted errors. |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1444 (goto-char (- (point-max) pos-from-end))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1445 (display-buffer (current-buffer)))) |
30e478cd167e
(shell-command-default-error-buffer): Renamed from
Karl Heuer <kwzh@gnu.org>
parents:
24400
diff
changeset
|
1446 (delete-file error-file)) |
24155
62548105541c
(shell-command-on-region): Return command's exit
Dave Love <fx@gnu.org>
parents:
24106
diff
changeset
|
1447 exit-status)) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1448 |
16312
20690a1ec100
(shell-command-to-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16018
diff
changeset
|
1449 (defun shell-command-to-string (command) |
20690a1ec100
(shell-command-to-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16018
diff
changeset
|
1450 "Execute shell command COMMAND and return its output as a string." |
20690a1ec100
(shell-command-to-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16018
diff
changeset
|
1451 (with-output-to-string |
16316
50be5f6cb5e6
(shell-command-to-string): Make the buffer current
Richard M. Stallman <rms@gnu.org>
parents:
16312
diff
changeset
|
1452 (with-current-buffer |
50be5f6cb5e6
(shell-command-to-string): Make the buffer current
Richard M. Stallman <rms@gnu.org>
parents:
16312
diff
changeset
|
1453 standard-output |
50be5f6cb5e6
(shell-command-to-string): Make the buffer current
Richard M. Stallman <rms@gnu.org>
parents:
16312
diff
changeset
|
1454 (call-process shell-file-name nil t nil shell-command-switch command)))) |
475 | 1455 |
16685
26919ad3a4ad
Change most defconsts to defvars.
Richard M. Stallman <rms@gnu.org>
parents:
16632
diff
changeset
|
1456 (defvar universal-argument-map |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1457 (let ((map (make-sparse-keymap))) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1458 (define-key map [t] 'universal-argument-other-key) |
12313
eca218b0a8ca
(negative-argument, digit-argument):
Richard M. Stallman <rms@gnu.org>
parents:
12266
diff
changeset
|
1459 (define-key map (vector meta-prefix-char t) 'universal-argument-other-key) |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1460 (define-key map [switch-frame] nil) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1461 (define-key map [?\C-u] 'universal-argument-more) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1462 (define-key map [?-] 'universal-argument-minus) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1463 (define-key map [?0] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1464 (define-key map [?1] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1465 (define-key map [?2] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1466 (define-key map [?3] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1467 (define-key map [?4] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1468 (define-key map [?5] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1469 (define-key map [?6] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1470 (define-key map [?7] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1471 (define-key map [?8] 'digit-argument) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1472 (define-key map [?9] 'digit-argument) |
30347
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1473 (define-key map [kp-0] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1474 (define-key map [kp-1] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1475 (define-key map [kp-2] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1476 (define-key map [kp-3] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1477 (define-key map [kp-4] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1478 (define-key map [kp-5] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1479 (define-key map [kp-6] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1480 (define-key map [kp-7] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1481 (define-key map [kp-8] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1482 (define-key map [kp-9] 'digit-argument) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1483 (define-key map [kp-subtract] 'universal-argument-minus) |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1484 map) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1485 "Keymap used while processing \\[universal-argument].") |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1486 |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1487 (defvar universal-argument-num-events nil |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1488 "Number of argument-specifying events read by `universal-argument'. |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1489 `universal-argument-other-key' uses this to discard those events |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1490 from (this-command-keys), and reread only the final command.") |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1491 |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1492 (defun universal-argument () |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1493 "Begin a numeric argument for the following command. |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1494 Digits or minus sign following \\[universal-argument] make up the numeric argument. |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1495 \\[universal-argument] following the digits or minus sign ends the argument. |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1496 \\[universal-argument] without digits or minus sign provides 4 as argument. |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1497 Repeating \\[universal-argument] without digits or minus sign |
16408
87f15c601f5a
(line-move): Ignore invisibility in `move-to-column'.
Richard M. Stallman <rms@gnu.org>
parents:
16316
diff
changeset
|
1498 multiplies the argument by 4 each time. |
87f15c601f5a
(line-move): Ignore invisibility in `move-to-column'.
Richard M. Stallman <rms@gnu.org>
parents:
16316
diff
changeset
|
1499 For some commands, just \\[universal-argument] by itself serves as a flag |
16445
c5ec4ef6203c
(universal-argument): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16436
diff
changeset
|
1500 which is different in effect from any particular numeric argument. |
c5ec4ef6203c
(universal-argument): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16436
diff
changeset
|
1501 These commands include \\[set-mark-command] and \\[start-kbd-macro]." |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1502 (interactive) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1503 (setq prefix-arg (list 4)) |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1504 (setq universal-argument-num-events (length (this-command-keys))) |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1505 (setq overriding-terminal-local-map universal-argument-map)) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1506 |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1507 ;; A subsequent C-u means to multiply the factor by 4 if we've typed |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1508 ;; nothing but C-u's; otherwise it means to terminate the prefix arg. |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1509 (defun universal-argument-more (arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1510 (interactive "P") |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1511 (if (consp arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1512 (setq prefix-arg (list (* 4 (car arg)))) |
17214
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
1513 (if (eq arg '-) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
1514 (setq prefix-arg (list -4)) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
1515 (setq prefix-arg arg) |
15e868121a15
(newline): Be more conservative about when to use the optimization.
Richard M. Stallman <rms@gnu.org>
parents:
17133
diff
changeset
|
1516 (setq overriding-terminal-local-map nil))) |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1517 (setq universal-argument-num-events (length (this-command-keys)))) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1518 |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1519 (defun negative-argument (arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1520 "Begin a negative numeric argument for the next command. |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1521 \\[universal-argument] following digits or minus sign ends the argument." |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1522 (interactive "P") |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1523 (cond ((integerp arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1524 (setq prefix-arg (- arg))) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1525 ((eq arg '-) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1526 (setq prefix-arg nil)) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1527 (t |
12313
eca218b0a8ca
(negative-argument, digit-argument):
Richard M. Stallman <rms@gnu.org>
parents:
12266
diff
changeset
|
1528 (setq prefix-arg '-))) |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1529 (setq universal-argument-num-events (length (this-command-keys))) |
12313
eca218b0a8ca
(negative-argument, digit-argument):
Richard M. Stallman <rms@gnu.org>
parents:
12266
diff
changeset
|
1530 (setq overriding-terminal-local-map universal-argument-map)) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1531 |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1532 (defun digit-argument (arg) |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1533 "Part of the numeric argument for the next command. |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1534 \\[universal-argument] following digits or minus sign ends the argument." |
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1535 (interactive "P") |
30347
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1536 (let* ((char (if (integerp last-command-char) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1537 last-command-char |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1538 (get last-command-char 'ascii-character))) |
a8a6780670ad
(universal-argument-map): Bind numeric keypad keys
Gerd Moellmann <gerd@gnu.org>
parents:
30189
diff
changeset
|
1539 (digit (- (logand char ?\177) ?0))) |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1540 (cond ((integerp arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1541 (setq prefix-arg (+ (* arg 10) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1542 (if (< arg 0) (- digit) digit)))) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1543 ((eq arg '-) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1544 ;; Treat -0 as just -, so that -01 will work. |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1545 (setq prefix-arg (if (zerop digit) '- (- digit)))) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1546 (t |
12313
eca218b0a8ca
(negative-argument, digit-argument):
Richard M. Stallman <rms@gnu.org>
parents:
12266
diff
changeset
|
1547 (setq prefix-arg digit)))) |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1548 (setq universal-argument-num-events (length (this-command-keys))) |
12313
eca218b0a8ca
(negative-argument, digit-argument):
Richard M. Stallman <rms@gnu.org>
parents:
12266
diff
changeset
|
1549 (setq overriding-terminal-local-map universal-argument-map)) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1550 |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1551 ;; For backward compatibility, minus with no modifiers is an ordinary |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1552 ;; command if digits have already been entered. |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1553 (defun universal-argument-minus (arg) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1554 (interactive "P") |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1555 (if (integerp arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1556 (universal-argument-other-key arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1557 (negative-argument arg))) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1558 |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1559 ;; Anything else terminates the argument and is left in the queue to be |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1560 ;; executed as a command. |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1561 (defun universal-argument-other-key (arg) |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1562 (interactive "P") |
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1563 (setq prefix-arg arg) |
12334
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1564 (let* ((key (this-command-keys)) |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1565 (keylist (listify-key-sequence key))) |
326cccb5f51a
(universal-argument-num-events): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12320
diff
changeset
|
1566 (setq unread-command-events |
13525
de50b50309d1
(universal-argument-other-key): Add to existing unread-command-events value.
Richard M. Stallman <rms@gnu.org>
parents:
13482
diff
changeset
|
1567 (append (nthcdr universal-argument-num-events keylist) |
de50b50309d1
(universal-argument-other-key): Add to existing unread-command-events value.
Richard M. Stallman <rms@gnu.org>
parents:
13482
diff
changeset
|
1568 unread-command-events))) |
12320
979836b1a1a9
(universal-argument-other-key): Call reset-this-command-lengths.
Richard M. Stallman <rms@gnu.org>
parents:
12313
diff
changeset
|
1569 (reset-this-command-lengths) |
12266
bdc0826013e0
(universal-argument-map): New var.
Karl Heuer <kwzh@gnu.org>
parents:
12230
diff
changeset
|
1570 (setq overriding-terminal-local-map nil)) |
12230
7275b8e0d272
(universal-argument, describe-arg): Restore Lisp code,
Karl Heuer <kwzh@gnu.org>
parents:
11975
diff
changeset
|
1571 |
715 | 1572 ;;;; Window system cut and paste hooks. |
1573 | |
1574 (defvar interprogram-cut-function nil | |
1575 "Function to call to make a killed region available to other programs. | |
1576 | |
1577 Most window systems provide some sort of facility for cutting and | |
3034
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1578 pasting text between the windows of different programs. |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1579 This variable holds a function that Emacs calls whenever text |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1580 is put in the kill ring, to make the new kill available to other |
715 | 1581 programs. |
1582 | |
3034
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1583 The function takes one or two arguments. |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1584 The first argument, TEXT, is a string containing |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1585 the text which should be made available. |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1586 The second, PUSH, if non-nil means this is a \"new\" kill; |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1587 nil means appending to an \"old\" kill.") |
715 | 1588 |
1589 (defvar interprogram-paste-function nil | |
1590 "Function to call to get text cut from other programs. | |
1591 | |
1592 Most window systems provide some sort of facility for cutting and | |
3034
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1593 pasting text between the windows of different programs. |
dd65780e6246
(kill-new): Pass t as 2nd arg to interprogram-cut-function.
Richard M. Stallman <rms@gnu.org>
parents:
3029
diff
changeset
|
1594 This variable holds a function that Emacs calls to obtain |
715 | 1595 text that other programs have provided for pasting. |
1596 | |
1597 The function should be called with no arguments. If the function | |
1598 returns nil, then no other program has provided such text, and the top | |
1599 of the Emacs kill ring should be used. If the function returns a | |
727 | 1600 string, that string should be put in the kill ring as the latest kill. |
1601 | |
1602 Note that the function should return a string only if a program other | |
1603 than Emacs has provided a string for pasting; if Emacs provided the | |
1604 most recent string, the function should return nil. If it is | |
1605 difficult to tell whether Emacs or some other program provided the | |
1606 current string, it is probably good enough to return nil if the string | |
1607 is equal (according to `string=') to the last text Emacs provided.") | |
715 | 1608 |
1609 | |
1610 | |
1611 ;;;; The kill ring data structure. | |
475 | 1612 |
1613 (defvar kill-ring nil | |
715 | 1614 "List of killed text sequences. |
1615 Since the kill ring is supposed to interact nicely with cut-and-paste | |
1616 facilities offered by window systems, use of this variable should | |
1617 interact nicely with `interprogram-cut-function' and | |
1618 `interprogram-paste-function'. The functions `kill-new', | |
1619 `kill-append', and `current-kill' are supposed to implement this | |
1620 interaction; you may want to use them instead of manipulating the kill | |
1621 ring directly.") | |
475 | 1622 |
23495
d5f08ad9a40b
(kill-ring-max): Increased to 60.
Richard M. Stallman <rms@gnu.org>
parents:
23491
diff
changeset
|
1623 (defcustom kill-ring-max 60 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1624 "*Maximum length of kill ring before oldest elements are thrown away." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1625 :type 'integer |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1626 :group 'killing) |
475 | 1627 |
1628 (defvar kill-ring-yank-pointer nil | |
1629 "The tail of the kill ring whose car is the last thing yanked.") | |
1630 | |
8763
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1631 (defun kill-new (string &optional replace) |
715 | 1632 "Make STRING the latest kill in the kill ring. |
1633 Set the kill-ring-yank pointer to point to it. | |
8763
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1634 If `interprogram-cut-function' is non-nil, apply it to STRING. |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1635 Optional second argument REPLACE non-nil means that STRING will replace |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1636 the front of the kill ring, rather than being added to the list." |
8768
e2073805b688
(kill-new): Call menu-bar-update-yank-menu only if that function is defined.
Karl Heuer <kwzh@gnu.org>
parents:
8763
diff
changeset
|
1637 (and (fboundp 'menu-bar-update-yank-menu) |
e2073805b688
(kill-new): Call menu-bar-update-yank-menu only if that function is defined.
Karl Heuer <kwzh@gnu.org>
parents:
8763
diff
changeset
|
1638 (menu-bar-update-yank-menu string (and replace (car kill-ring)))) |
8763
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1639 (if replace |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1640 (setcar kill-ring string) |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1641 (setq kill-ring (cons string kill-ring)) |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1642 (if (> (length kill-ring) kill-ring-max) |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1643 (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) |
715 | 1644 (setq kill-ring-yank-pointer kill-ring) |
1645 (if interprogram-cut-function | |
12975
9bad6a54e268
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
12939
diff
changeset
|
1646 (funcall interprogram-cut-function string (not replace)))) |
715 | 1647 |
475 | 1648 (defun kill-append (string before-p) |
715 | 1649 "Append STRING to the end of the latest kill in the kill ring. |
1650 If BEFORE-P is non-nil, prepend STRING to the kill. | |
1760 | 1651 If `interprogram-cut-function' is set, pass the resulting kill to |
715 | 1652 it." |
8763
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1653 (kill-new (if before-p |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1654 (concat string (car kill-ring)) |
2b54e6deed2f
(kill-new): New optional argument means replace most recent kill.
Karl Heuer <kwzh@gnu.org>
parents:
8734
diff
changeset
|
1655 (concat (car kill-ring) string)) t)) |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
1656 |
715 | 1657 (defun current-kill (n &optional do-not-move) |
1658 "Rotate the yanking point by N places, and then return that kill. | |
1659 If N is zero, `interprogram-paste-function' is set, and calling it | |
1660 returns a string, then that string is added to the front of the | |
1661 kill ring and returned as the latest kill. | |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1662 If optional arg DO-NOT-MOVE is non-nil, then don't actually move the |
715 | 1663 yanking point; just return the Nth kill forward." |
1664 (let ((interprogram-paste (and (= n 0) | |
1665 interprogram-paste-function | |
1666 (funcall interprogram-paste-function)))) | |
1667 (if interprogram-paste | |
1668 (progn | |
1669 ;; Disable the interprogram cut function when we add the new | |
1670 ;; text to the kill ring, so Emacs doesn't try to own the | |
1671 ;; selection, with identical text. | |
1672 (let ((interprogram-cut-function nil)) | |
1673 (kill-new interprogram-paste)) | |
1674 interprogram-paste) | |
1675 (or kill-ring (error "Kill ring is empty")) | |
4511
db555f6edd6b
(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),
Paul Eggert <eggert@twinsun.com>
parents:
4488
diff
changeset
|
1676 (let ((ARGth-kill-element |
db555f6edd6b
(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),
Paul Eggert <eggert@twinsun.com>
parents:
4488
diff
changeset
|
1677 (nthcdr (mod (- n (length kill-ring-yank-pointer)) |
db555f6edd6b
(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),
Paul Eggert <eggert@twinsun.com>
parents:
4488
diff
changeset
|
1678 (length kill-ring)) |
db555f6edd6b
(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),
Paul Eggert <eggert@twinsun.com>
parents:
4488
diff
changeset
|
1679 kill-ring))) |
715 | 1680 (or do-not-move |
1681 (setq kill-ring-yank-pointer ARGth-kill-element)) | |
1682 (car ARGth-kill-element))))) | |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
1683 |
715 | 1684 |
1685 | |
1686 ;;;; Commands for manipulating the kill ring. | |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
1687 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1688 (defcustom kill-read-only-ok nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1689 "*Non-nil means don't signal an error for killing read-only text." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1690 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
1691 :group 'killing) |
7063
9a0d189fd877
(kill-line, kill-word): Don't use save-excursion.
Richard M. Stallman <rms@gnu.org>
parents:
6951
diff
changeset
|
1692 |
14507
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1693 (put 'text-read-only 'error-conditions |
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1694 '(text-read-only buffer-read-only error)) |
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1695 (put 'text-read-only 'error-message "Text is read-only") |
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1696 |
475 | 1697 (defun kill-region (beg end) |
1698 "Kill between point and mark. | |
1699 The text is deleted but saved in the kill ring. | |
1700 The command \\[yank] can retrieve it from there. | |
1701 \(If you want to kill and then yank immediately, use \\[copy-region-as-kill].) | |
1834
9a1f696c1734
* simple.el (kill-region): If the buffer is read-only, do beep,
Jim Blandy <jimb@redhat.com>
parents:
1826
diff
changeset
|
1702 If the buffer is read-only, Emacs will beep and refrain from deleting |
9a1f696c1734
* simple.el (kill-region): If the buffer is read-only, do beep,
Jim Blandy <jimb@redhat.com>
parents:
1826
diff
changeset
|
1703 the text, but put the text in the kill ring anyway. This means that |
9a1f696c1734
* simple.el (kill-region): If the buffer is read-only, do beep,
Jim Blandy <jimb@redhat.com>
parents:
1826
diff
changeset
|
1704 you can use the killing commands to copy text from a read-only buffer. |
475 | 1705 |
1706 This is the primitive for programs to kill text (as opposed to deleting it). | |
1707 Supply two arguments, character numbers indicating the stretch of text | |
1708 to be killed. | |
1709 Any command that calls this function is a \"kill command\". | |
1710 If the previous command was also a kill command, | |
1711 the text killed this time appends to the text killed last time | |
1712 to make one entry in the kill ring." | |
27836
132294fa754e
(zap-to-char, kill-line, kill-region, kill-word)
Dave Love <fx@gnu.org>
parents:
27477
diff
changeset
|
1713 (interactive "r") |
20279
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1714 (condition-case nil |
26744
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1715 (let ((string (delete-and-extract-region beg end))) |
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1716 (when string ;STRING is nil if BEG = END |
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1717 ;; Add that string to the kill ring, one way or another. |
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1718 (if (eq last-command 'kill-region) |
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1719 (kill-append string (< end beg)) |
f14026cd9767
(kill-region): Use the new `delete-and-extract-region'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26723
diff
changeset
|
1720 (kill-new string))) |
20279
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1721 (setq this-command 'kill-region)) |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1722 ((buffer-read-only text-read-only) |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1723 ;; The code above failed because the buffer, or some of the characters |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1724 ;; in the region, are read-only. |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1725 ;; We should beep, in case the user just isn't aware of this. |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1726 ;; However, there's no harm in putting |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1727 ;; the region's text in the kill ring, anyway. |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1728 (copy-region-as-kill beg end) |
22144
632fc074e4d7
(kill-region): Set this-command unconditionally in a read-only buffer.
Richard M. Stallman <rms@gnu.org>
parents:
21906
diff
changeset
|
1729 ;; Set this-command now, so it will be set even if we get an error. |
632fc074e4d7
(kill-region): Set this-command unconditionally in a read-only buffer.
Richard M. Stallman <rms@gnu.org>
parents:
21906
diff
changeset
|
1730 (setq this-command 'kill-region) |
632fc074e4d7
(kill-region): Set this-command unconditionally in a read-only buffer.
Richard M. Stallman <rms@gnu.org>
parents:
21906
diff
changeset
|
1731 ;; This should barf, if appropriate, and give us the correct error. |
20279
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1732 (if kill-read-only-ok |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1733 (message "Read only text copied to kill ring") |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1734 ;; Signal an error if the buffer is read-only. |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1735 (barf-if-buffer-read-only) |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1736 ;; If the buffer isn't read-only, the text is. |
69a6030e443a
(kill-region): Detect read-only text
Karl Heuer <kwzh@gnu.org>
parents:
20265
diff
changeset
|
1737 (signal 'text-read-only (list (current-buffer))))))) |
475 | 1738 |
9876
75ecf866cfb8
Comment reason for preceding change.
Karl Heuer <kwzh@gnu.org>
parents:
9870
diff
changeset
|
1739 ;; copy-region-as-kill no longer sets this-command, because it's confusing |
75ecf866cfb8
Comment reason for preceding change.
Karl Heuer <kwzh@gnu.org>
parents:
9870
diff
changeset
|
1740 ;; to get two copies of the text when the user accidentally types M-w and |
75ecf866cfb8
Comment reason for preceding change.
Karl Heuer <kwzh@gnu.org>
parents:
9870
diff
changeset
|
1741 ;; then corrects it with the intended C-w. |
475 | 1742 (defun copy-region-as-kill (beg end) |
1743 "Save the region as if killed, but don't kill it. | |
20484
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1744 In Transient Mark mode, deactivate the mark. |
617 | 1745 If `interprogram-cut-function' is non-nil, also save the text for a window |
1746 system cut and paste." | |
475 | 1747 (interactive "r") |
1748 (if (eq last-command 'kill-region) | |
1749 (kill-append (buffer-substring beg end) (< end beg)) | |
715 | 1750 (kill-new (buffer-substring beg end))) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1751 (if transient-mark-mode |
21193
20bba919ec72
(copy-region-as-kill): Set deactivate-mark
Richard M. Stallman <rms@gnu.org>
parents:
21175
diff
changeset
|
1752 (setq deactivate-mark t)) |
475 | 1753 nil) |
1754 | |
1755 (defun kill-ring-save (beg end) | |
2111
d38d32084c15
* simple.el (kill-ring-save): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
2075
diff
changeset
|
1756 "Save the region as if killed, but don't kill it. |
20484
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1757 In Transient Mark mode, deactivate the mark. |
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1758 If `interprogram-cut-function' is non-nil, also save the text for a window |
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1759 system cut and paste. |
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1760 |
3467
002945794814
(kill-ring-save): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
3408
diff
changeset
|
1761 This command is similar to `copy-region-as-kill', except that it gives |
20484
089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
20482
diff
changeset
|
1762 visual feedback indicating the extent of the region being copied." |
475 | 1763 (interactive "r") |
1764 (copy-region-as-kill beg end) | |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
762
diff
changeset
|
1765 (if (interactive-p) |
2850
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1766 (let ((other-end (if (= (point) beg) end beg)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1767 (opoint (point)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1768 ;; Inhibit quitting so we can make a quit here |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1769 ;; look like a C-g typed as a command. |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1770 (inhibit-quit t)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1771 (if (pos-visible-in-window-p other-end (selected-window)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1772 (progn |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1773 ;; Swap point and mark. |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1774 (set-marker (mark-marker) (point) (current-buffer)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1775 (goto-char other-end) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1776 (sit-for 1) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1777 ;; Swap back. |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1778 (set-marker (mark-marker) other-end (current-buffer)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1779 (goto-char opoint) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1780 ;; If user quit, deactivate the mark |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1781 ;; as C-g would as a command. |
4044
ad0643aa3ebf
(kill-ring-save): Call deactivate-mark regardless of transient-mark-mode.
Roland McGrath <roland@gnu.org>
parents:
4042
diff
changeset
|
1782 (and quit-flag mark-active |
4287
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
1783 (deactivate-mark))) |
2850
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1784 (let* ((killed-text (current-kill 0)) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1785 (message-len (min (length killed-text) 40))) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1786 (if (= (point) beg) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1787 ;; Don't say "killed"; that is misleading. |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1788 (message "Saved text until \"%s\"" |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1789 (substring killed-text (- message-len))) |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1790 (message "Saved text from \"%s\"" |
f5f7e7295ec2
(keyboard-quit): Run deactivate-mark-hook.
Richard M. Stallman <rms@gnu.org>
parents:
2844
diff
changeset
|
1791 (substring killed-text 0 message-len)))))))) |
475 | 1792 |
24798
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1793 (defun append-next-kill (&optional interactive) |
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1794 "Cause following command, if it kills, to append to previous kill. |
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1795 The argument is used for internal purposes; do not supply one." |
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1796 (interactive "p") |
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1797 ;; We don't use (interactive-p), since that breaks kbd macros. |
6fe40d35360e
(append-next-kill): Use an arg to distinguish
Karl Heuer <kwzh@gnu.org>
parents:
24789
diff
changeset
|
1798 (if interactive |
475 | 1799 (progn |
1800 (setq this-command 'kill-region) | |
1801 (message "If the next command is a kill, it will append")) | |
1802 (setq last-command 'kill-region))) | |
25292 | 1803 |
1804 ;; Yanking. | |
475 | 1805 |
1806 (defun yank-pop (arg) | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1807 "Replace just-yanked stretch of killed text with a different stretch. |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1808 This command is allowed only immediately after a `yank' or a `yank-pop'. |
475 | 1809 At such a time, the region contains a stretch of reinserted |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1810 previously-killed text. `yank-pop' deletes that text and inserts in its |
475 | 1811 place a different stretch of killed text. |
1812 | |
1813 With no argument, the previous kill is inserted. | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1814 With argument N, insert the Nth previous kill. |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1815 If N is negative, this is a more recent kill. |
475 | 1816 |
1817 The sequence of kills wraps around, so that after the oldest one | |
1818 comes the newest one." | |
1819 (interactive "*p") | |
1820 (if (not (eq last-command 'yank)) | |
1821 (error "Previous command was not a yank")) | |
1822 (setq this-command 'yank) | |
14507
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1823 (let ((inhibit-read-only t) |
ec4424facc98
(text-read-only): New error symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1824 (before (< (point) (mark t)))) |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
1825 (delete-region (point) (mark t)) |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1826 (set-marker (mark-marker) (point) (current-buffer)) |
18902
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1827 (let ((opoint (point))) |
18820
ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
Richard M. Stallman <rms@gnu.org>
parents:
18731
diff
changeset
|
1828 (insert (current-kill arg)) |
18902
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1829 (let ((inhibit-read-only t)) |
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1830 (remove-text-properties opoint (point) '(read-only nil)))) |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1831 (if before |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1832 ;; This is like exchange-point-and-mark, but doesn't activate the mark. |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1833 ;; It is cleaner to avoid activation, even though the command |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1834 ;; loop would deactivate the mark because we inserted text. |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1835 (goto-char (prog1 (mark t) |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1836 (set-marker (mark-marker) (point) (current-buffer)))))) |
2111
d38d32084c15
* simple.el (kill-ring-save): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
2075
diff
changeset
|
1837 nil) |
475 | 1838 |
1839 (defun yank (&optional arg) | |
1840 "Reinsert the last stretch of killed text. | |
1841 More precisely, reinsert the stretch of killed text most recently | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1842 killed OR yanked. Put point at end, and set mark at beginning. |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1843 With just C-u as argument, same but put point at beginning (and mark at end). |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
1844 With argument N, reinsert the Nth most recently killed stretch of killed |
475 | 1845 text. |
1846 See also the command \\[yank-pop]." | |
1847 (interactive "*P") | |
5935
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
1848 ;; If we don't get all the way thru, make last-command indicate that |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
1849 ;; for the following command. |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
1850 (setq this-command t) |
475 | 1851 (push-mark (point)) |
18902
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1852 (let ((opoint (point))) |
18820
ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
Richard M. Stallman <rms@gnu.org>
parents:
18731
diff
changeset
|
1853 (insert (current-kill (cond |
ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
Richard M. Stallman <rms@gnu.org>
parents:
18731
diff
changeset
|
1854 ((listp arg) 0) |
ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
Richard M. Stallman <rms@gnu.org>
parents:
18731
diff
changeset
|
1855 ((eq arg '-) -1) |
ac2b130c513a
(yank, yank-pop): Clear out read-only prop.
Richard M. Stallman <rms@gnu.org>
parents:
18731
diff
changeset
|
1856 (t (1- arg))))) |
18902
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1857 (let ((inhibit-read-only t)) |
7ce2d04d5561
(yank, yank-pop): Bind inhibit-read-only
Richard M. Stallman <rms@gnu.org>
parents:
18825
diff
changeset
|
1858 (remove-text-properties opoint (point) '(read-only nil)))) |
475 | 1859 (if (consp arg) |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1860 ;; This is like exchange-point-and-mark, but doesn't activate the mark. |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1861 ;; It is cleaner to avoid activation, even though the command |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1862 ;; loop would deactivate the mark because we inserted text. |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1863 (goto-char (prog1 (mark t) |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
1864 (set-marker (mark-marker) (point) (current-buffer))))) |
5935
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
1865 ;; If we do get all the way thru, make this-command indicate that. |
a2b7fc4645d9
(undo, yank): Set this-command to t at start,
Richard M. Stallman <rms@gnu.org>
parents:
5893
diff
changeset
|
1866 (setq this-command 'yank) |
2111
d38d32084c15
* simple.el (kill-ring-save): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
2075
diff
changeset
|
1867 nil) |
715 | 1868 |
1869 (defun rotate-yank-pointer (arg) | |
1870 "Rotate the yanking point in the kill ring. | |
1871 With argument, rotate that many kills forward (or backward, if negative)." | |
1872 (interactive "p") | |
1873 (current-kill arg)) | |
25292 | 1874 |
1875 ;; Some kill commands. | |
1876 | |
1877 ;; Internal subroutine of delete-char | |
1878 (defun kill-forward-chars (arg) | |
1879 (if (listp arg) (setq arg (car arg))) | |
1880 (if (eq arg '-) (setq arg -1)) | |
1881 (kill-region (point) (forward-point arg))) | |
1882 | |
1883 ;; Internal subroutine of backward-delete-char | |
1884 (defun kill-backward-chars (arg) | |
1885 (if (listp arg) (setq arg (car arg))) | |
1886 (if (eq arg '-) (setq arg -1)) | |
1887 (kill-region (point) (forward-point (- arg)))) | |
1888 | |
1889 (defcustom backward-delete-char-untabify-method 'untabify | |
1890 "*The method for untabifying when deleting backward. | |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1891 Can be `untabify' -- turn a tab to many spaces, then delete one space; |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1892 `hungry' -- delete all whitespace, both tabs and spaces; |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1893 `all' -- delete all whitespace, including tabs, spaces and newlines; |
25292 | 1894 nil -- just delete one character." |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1895 :type '(choice (const untabify) (const hungry) (const all) (const nil)) |
25292 | 1896 :group 'killing) |
1897 | |
1898 (defun backward-delete-char-untabify (arg &optional killp) | |
1899 "Delete characters backward, changing tabs into spaces. | |
1900 The exact behavior depends on `backward-delete-char-untabify-method'. | |
1901 Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil. | |
1902 Interactively, ARG is the prefix arg (default 1) | |
1903 and KILLP is t if a prefix arg was specified." | |
1904 (interactive "*p\nP") | |
1905 (when (eq backward-delete-char-untabify-method 'untabify) | |
1906 (let ((count arg)) | |
1907 (save-excursion | |
1908 (while (and (> count 0) (not (bobp))) | |
1909 (if (= (preceding-char) ?\t) | |
1910 (let ((col (current-column))) | |
1911 (forward-char -1) | |
1912 (setq col (- col (current-column))) | |
1913 (insert-char ?\ col) | |
1914 (delete-char 1))) | |
1915 (forward-char -1) | |
1916 (setq count (1- count)))))) | |
1917 (delete-backward-char | |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1918 (let ((skip (cond ((eq backward-delete-char-untabify-method 'hungry) " \t") |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1919 ((eq backward-delete-char-untabify-method 'all) |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1920 " \t\n\r")))) |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1921 (if skip |
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1922 (let ((wh (- (point) (save-excursion (skip-chars-backward skip) |
25292 | 1923 (point))))) |
1924 (+ arg (if (zerop wh) 0 (1- wh)))) | |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
1925 arg)) |
25292 | 1926 killp)) |
1927 | |
1928 (defun zap-to-char (arg char) | |
1929 "Kill up to and including ARG'th occurrence of CHAR. | |
1930 Case is ignored if `case-fold-search' is non-nil in the current buffer. | |
1931 Goes backward if ARG is negative; error if CHAR not found." | |
27836
132294fa754e
(zap-to-char, kill-line, kill-region, kill-word)
Dave Love <fx@gnu.org>
parents:
27477
diff
changeset
|
1932 (interactive "p\ncZap to char: ") |
25292 | 1933 (kill-region (point) (progn |
1934 (search-forward (char-to-string char) nil nil arg) | |
1935 ; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) | |
1936 (point)))) | |
1937 | |
1938 ;; kill-line and its subroutines. | |
1939 | |
1940 (defcustom kill-whole-line nil | |
1941 "*If non-nil, `kill-line' with no arg at beg of line kills the whole line." | |
1942 :type 'boolean | |
1943 :group 'killing) | |
1944 | |
1945 (defun kill-line (&optional arg) | |
1946 "Kill the rest of the current line; if no nonblanks there, kill thru newline. | |
1947 With prefix argument, kill that many lines from point. | |
1948 Negative arguments kill lines backward. | |
32267 | 1949 With zero argument, kills the text before point on the current line. |
25292 | 1950 |
1951 When calling from a program, nil means \"no arg\", | |
1952 a number counts as a prefix arg. | |
1953 | |
1954 To kill a whole line, when point is not at the beginning, type \ | |
1955 \\[beginning-of-line] \\[kill-line] \\[kill-line]. | |
1956 | |
1957 If `kill-whole-line' is non-nil, then this command kills the whole line | |
1958 including its terminating newline, when used at the beginning of a line | |
1959 with no argument. As a consequence, you can always kill a whole line | |
1960 by typing \\[beginning-of-line] \\[kill-line]." | |
27836
132294fa754e
(zap-to-char, kill-line, kill-region, kill-word)
Dave Love <fx@gnu.org>
parents:
27477
diff
changeset
|
1961 (interactive "P") |
25292 | 1962 (kill-region (point) |
1963 ;; It is better to move point to the other end of the kill | |
1964 ;; before killing. That way, in a read-only buffer, point | |
1965 ;; moves across the text that is copied to the kill ring. | |
1966 ;; The choice has no effect on undo now that undo records | |
1967 ;; the value of point from before the command was run. | |
1968 (progn | |
1969 (if arg | |
1970 (forward-visible-line (prefix-numeric-value arg)) | |
1971 (if (eobp) | |
1972 (signal 'end-of-buffer nil)) | |
1973 (if (or (looking-at "[ \t]*$") (and kill-whole-line (bolp))) | |
1974 (forward-visible-line 1) | |
1975 (end-of-visible-line))) | |
1976 (point)))) | |
1977 | |
1978 (defun forward-visible-line (arg) | |
1979 "Move forward by ARG lines, ignoring currently invisible newlines only. | |
1980 If ARG is negative, move backward -ARG lines. | |
1981 If ARG is zero, move to the beginning of the current line." | |
1982 (condition-case nil | |
1983 (if (> arg 0) | |
1984 (while (> arg 0) | |
1985 (or (zerop (forward-line 1)) | |
1986 (signal 'end-of-buffer nil)) | |
1987 ;; If the following character is currently invisible, | |
1988 ;; skip all characters with that same `invisible' property value, | |
1989 ;; then find the next newline. | |
1990 (while (and (not (eobp)) | |
1991 (let ((prop | |
1992 (get-char-property (point) 'invisible))) | |
1993 (if (eq buffer-invisibility-spec t) | |
1994 prop | |
1995 (or (memq prop buffer-invisibility-spec) | |
1996 (assq prop buffer-invisibility-spec))))) | |
1997 (goto-char | |
1998 (if (get-text-property (point) 'invisible) | |
1999 (or (next-single-property-change (point) 'invisible) | |
2000 (point-max)) | |
2001 (next-overlay-change (point)))) | |
2002 (or (zerop (forward-line 1)) | |
2003 (signal 'end-of-buffer nil))) | |
2004 (setq arg (1- arg))) | |
2005 (let ((first t)) | |
2006 (while (or first (< arg 0)) | |
2007 (if (zerop arg) | |
2008 (beginning-of-line) | |
2009 (or (zerop (forward-line -1)) | |
2010 (signal 'beginning-of-buffer nil))) | |
2011 (while (and (not (bobp)) | |
2012 (let ((prop | |
2013 (get-char-property (1- (point)) 'invisible))) | |
2014 (if (eq buffer-invisibility-spec t) | |
2015 prop | |
2016 (or (memq prop buffer-invisibility-spec) | |
2017 (assq prop buffer-invisibility-spec))))) | |
2018 (goto-char | |
2019 (if (get-text-property (1- (point)) 'invisible) | |
2020 (or (previous-single-property-change (point) 'invisible) | |
2021 (point-min)) | |
2022 (previous-overlay-change (point)))) | |
2023 (or (zerop (forward-line -1)) | |
2024 (signal 'beginning-of-buffer nil))) | |
2025 (setq first nil) | |
2026 (setq arg (1+ arg))))) | |
2027 ((beginning-of-buffer end-of-buffer) | |
2028 nil))) | |
2029 | |
2030 (defun end-of-visible-line () | |
2031 "Move to end of current visible line." | |
2032 (end-of-line) | |
2033 ;; If the following character is currently invisible, | |
2034 ;; skip all characters with that same `invisible' property value, | |
2035 ;; then find the next newline. | |
2036 (while (and (not (eobp)) | |
2037 (let ((prop | |
2038 (get-char-property (point) 'invisible))) | |
2039 (if (eq buffer-invisibility-spec t) | |
2040 prop | |
2041 (or (memq prop buffer-invisibility-spec) | |
2042 (assq prop buffer-invisibility-spec))))) | |
2043 (if (get-text-property (point) 'invisible) | |
2044 (goto-char (next-single-property-change (point) 'invisible)) | |
2045 (goto-char (next-overlay-change (point)))) | |
2046 (end-of-line))) | |
475 | 2047 |
2048 (defun insert-buffer (buffer) | |
2049 "Insert after point the contents of BUFFER. | |
2050 Puts mark after the inserted text. | |
26723 | 2051 BUFFER may be a buffer or a buffer name. |
2052 | |
2053 This function is meant for the user to run interactively. | |
2054 Don't call it from programs!" | |
14835
eb78ddcff331
(insert-buffer): Fix typo in previous change.
Erik Naggum <erik@naggum.no>
parents:
14834
diff
changeset
|
2055 (interactive |
14834
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2056 (list |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2057 (progn |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2058 (barf-if-buffer-read-only) |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2059 (read-buffer "Insert buffer: " |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2060 (if (eq (selected-window) (next-window (selected-window))) |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2061 (other-buffer (current-buffer)) |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2062 (window-buffer (next-window (selected-window)))) |
5ae5d97727ce
* simple.el (insert-buffer): Interactive default changed to a more
Francesco Potortì <pot@gnu.org>
parents:
14721
diff
changeset
|
2063 t)))) |
475 | 2064 (or (bufferp buffer) |
2065 (setq buffer (get-buffer buffer))) | |
2066 (let (start end newmark) | |
2067 (save-excursion | |
2068 (save-excursion | |
2069 (set-buffer buffer) | |
2070 (setq start (point-min) end (point-max))) | |
2071 (insert-buffer-substring buffer start end) | |
2072 (setq newmark (point))) | |
1982
d65c1fefc636
* simple.el (kill-region): If the buffer is read-only, call
Jim Blandy <jimb@redhat.com>
parents:
1838
diff
changeset
|
2073 (push-mark newmark)) |
d65c1fefc636
* simple.el (kill-region): If the buffer is read-only, call
Jim Blandy <jimb@redhat.com>
parents:
1838
diff
changeset
|
2074 nil) |
475 | 2075 |
2076 (defun append-to-buffer (buffer start end) | |
2077 "Append to specified buffer the text of the region. | |
2078 It is inserted into that buffer before its point. | |
2079 | |
2080 When calling from a program, give three arguments: | |
2081 BUFFER (or buffer name), START and END. | |
2082 START and END specify the portion of the current buffer to be copied." | |
715 | 2083 (interactive |
10048
db01a04d2afb
(append-to-buffer): Don't use current buffer as default.
Richard M. Stallman <rms@gnu.org>
parents:
10034
diff
changeset
|
2084 (list (read-buffer "Append to buffer: " (other-buffer (current-buffer) t)) |
3629
58add805382e
(append-to-buffer): Interactively, supply all 3 args.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
2085 (region-beginning) (region-end))) |
475 | 2086 (let ((oldbuf (current-buffer))) |
2087 (save-excursion | |
28187
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2088 (let* ((append-to (get-buffer-create buffer)) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2089 (windows (get-buffer-window-list append-to t t)) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2090 point) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2091 (set-buffer append-to) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2092 (setq point (point)) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2093 (barf-if-buffer-read-only) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2094 (insert-buffer-substring oldbuf start end) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2095 (dolist (window windows) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2096 (when (= (window-point window) point) |
507041681c73
(append-to-buffer): Update point of windows after
Gerd Moellmann <gerd@gnu.org>
parents:
28113
diff
changeset
|
2097 (set-window-point window (point)))))))) |
475 | 2098 |
2099 (defun prepend-to-buffer (buffer start end) | |
2100 "Prepend to specified buffer the text of the region. | |
2101 It is inserted into that buffer after its point. | |
2102 | |
2103 When calling from a program, give three arguments: | |
2104 BUFFER (or buffer name), START and END. | |
2105 START and END specify the portion of the current buffer to be copied." | |
2106 (interactive "BPrepend to buffer: \nr") | |
2107 (let ((oldbuf (current-buffer))) | |
2108 (save-excursion | |
2109 (set-buffer (get-buffer-create buffer)) | |
24973
57d2a2f294cb
(append-to-buffer, prepend-to-buffer, copy-to-buffer): Check for
Dave Love <fx@gnu.org>
parents:
24831
diff
changeset
|
2110 (barf-if-buffer-read-only) |
475 | 2111 (save-excursion |
2112 (insert-buffer-substring oldbuf start end))))) | |
2113 | |
2114 (defun copy-to-buffer (buffer start end) | |
2115 "Copy to specified buffer the text of the region. | |
2116 It is inserted into that buffer, replacing existing text there. | |
2117 | |
2118 When calling from a program, give three arguments: | |
2119 BUFFER (or buffer name), START and END. | |
2120 START and END specify the portion of the current buffer to be copied." | |
2121 (interactive "BCopy to buffer: \nr") | |
2122 (let ((oldbuf (current-buffer))) | |
2123 (save-excursion | |
2124 (set-buffer (get-buffer-create buffer)) | |
24973
57d2a2f294cb
(append-to-buffer, prepend-to-buffer, copy-to-buffer): Check for
Dave Love <fx@gnu.org>
parents:
24831
diff
changeset
|
2125 (barf-if-buffer-read-only) |
475 | 2126 (erase-buffer) |
2127 (save-excursion | |
2128 (insert-buffer-substring oldbuf start end))))) | |
2129 | |
4040
d06d7295d3eb
Put error-conditions and error-message properties on 'mark-inactive.
Roland McGrath <roland@gnu.org>
parents:
3967
diff
changeset
|
2130 (put 'mark-inactive 'error-conditions '(mark-inactive error)) |
d06d7295d3eb
Put error-conditions and error-message properties on 'mark-inactive.
Roland McGrath <roland@gnu.org>
parents:
3967
diff
changeset
|
2131 (put 'mark-inactive 'error-message "The mark is not active now") |
d06d7295d3eb
Put error-conditions and error-message properties on 'mark-inactive.
Roland McGrath <roland@gnu.org>
parents:
3967
diff
changeset
|
2132 |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2133 (defun mark (&optional force) |
3487 | 2134 "Return this buffer's mark value as integer; error if mark inactive. |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2135 If optional argument FORCE is non-nil, access the mark value |
3487 | 2136 even if the mark is not currently active, and return nil |
2137 if there is no mark at all. | |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2138 |
475 | 2139 If you are using this in an editing command, you are most likely making |
2140 a mistake; see the documentation of `set-mark'." | |
10525
8c7043925702
(mark): If transient-mark-mode is nil, mark is active.
Karl Heuer <kwzh@gnu.org>
parents:
10471
diff
changeset
|
2141 (if (or force (not transient-mark-mode) mark-active mark-even-if-inactive) |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2142 (marker-position (mark-marker)) |
4040
d06d7295d3eb
Put error-conditions and error-message properties on 'mark-inactive.
Roland McGrath <roland@gnu.org>
parents:
3967
diff
changeset
|
2143 (signal 'mark-inactive nil))) |
475 | 2144 |
4042
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2145 ;; Many places set mark-active directly, and several of them failed to also |
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2146 ;; run deactivate-mark-hook. This shorthand should simplify. |
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2147 (defsubst deactivate-mark () |
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2148 "Deactivate the mark by setting `mark-active' to nil. |
4287
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2149 \(That makes a difference only in Transient Mark mode.) |
4042
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2150 Also runs the hook `deactivate-mark-hook'." |
7726
0998ca7d922c
(deactivate-mark): Do nothing unless transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7698
diff
changeset
|
2151 (if transient-mark-mode |
0998ca7d922c
(deactivate-mark): Do nothing unless transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7698
diff
changeset
|
2152 (progn |
0998ca7d922c
(deactivate-mark): Do nothing unless transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7698
diff
changeset
|
2153 (setq mark-active nil) |
0998ca7d922c
(deactivate-mark): Do nothing unless transient-mark-mode.
Richard M. Stallman <rms@gnu.org>
parents:
7698
diff
changeset
|
2154 (run-hooks 'deactivate-mark-hook)))) |
4042
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2155 |
475 | 2156 (defun set-mark (pos) |
2157 "Set this buffer's mark to POS. Don't use this function! | |
2158 That is to say, don't use this function unless you want | |
2159 the user to see that the mark has moved, and you want the previous | |
2160 mark position to be lost. | |
2161 | |
2162 Normally, when a new mark is set, the old one should go on the stack. | |
2163 This is why most applications should use push-mark, not set-mark. | |
2164 | |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2165 Novice Emacs Lisp programmers often try to use the mark for the wrong |
475 | 2166 purposes. The mark saves a location for the user's convenience. |
2167 Most editing commands should not alter the mark. | |
2168 To remember a location for internal use in the Lisp program, | |
2169 store it in a Lisp variable. Example: | |
2170 | |
2171 (let ((beg (point))) (forward-line 1) (delete-region beg (point)))." | |
2172 | |
4287
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2173 (if pos |
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2174 (progn |
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2175 (setq mark-active t) |
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2176 (run-hooks 'activate-mark-hook) |
20486b99584f
(kill-ring-save): Delete spurious `message' call.
Richard M. Stallman <rms@gnu.org>
parents:
4217
diff
changeset
|
2177 (set-marker (mark-marker) pos (current-buffer))) |
8660
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2178 ;; Normally we never clear mark-active except in Transient Mark mode. |
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2179 ;; But when we actually clear out the mark value too, |
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2180 ;; we must clear mark-active in any mode. |
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2181 (setq mark-active nil) |
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2182 (run-hooks 'deactivate-mark-hook) |
bb7bd2b068bf
(set-mark): When POS is nil, always clear mark-active.
Richard M. Stallman <rms@gnu.org>
parents:
8604
diff
changeset
|
2183 (set-marker (mark-marker) nil))) |
475 | 2184 |
2185 (defvar mark-ring nil | |
8695
0f702e9ab06d
(mark-ring): Add permanent-local prop. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8660
diff
changeset
|
2186 "The list of former marks of the current buffer, most recent first.") |
475 | 2187 (make-variable-buffer-local 'mark-ring) |
8695
0f702e9ab06d
(mark-ring): Add permanent-local prop. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
8660
diff
changeset
|
2188 (put 'mark-ring 'permanent-local t) |
475 | 2189 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2190 (defcustom mark-ring-max 16 |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2191 "*Maximum size of mark ring. Start discarding off end if gets this big." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2192 :type 'integer |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2193 :group 'editing-basics) |
475 | 2194 |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2195 (defvar global-mark-ring nil |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2196 "The list of saved global marks, most recent first.") |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2197 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2198 (defcustom global-mark-ring-max 16 |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2199 "*Maximum size of global mark ring. \ |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2200 Start discarding off end if gets this big." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2201 :type 'integer |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2202 :group 'editing-basics) |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2203 |
475 | 2204 (defun set-mark-command (arg) |
2205 "Set mark at where point is, or jump to mark. | |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2206 With no prefix argument, set mark, push old mark position on local mark |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2207 ring, and push mark on global mark ring. |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2208 With argument, jump to mark, and pop a new position for mark off the ring |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2209 \(does not affect global mark ring\). |
475 | 2210 |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2211 Novice Emacs Lisp programmers often try to use the mark for the wrong |
475 | 2212 purposes. See the documentation of `set-mark' for more information." |
2213 (interactive "P") | |
2214 (if (null arg) | |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2215 (progn |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
2216 (push-mark nil nil t)) |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2217 (if (null (mark t)) |
475 | 2218 (error "No mark set in this buffer") |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2219 (goto-char (mark t)) |
475 | 2220 (pop-mark)))) |
2221 | |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
2222 (defun push-mark (&optional location nomsg activate) |
475 | 2223 "Set mark at LOCATION (point, by default) and push old mark on mark ring. |
5812
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2224 If the last global mark pushed was not in the current buffer, |
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2225 also push LOCATION on the global mark ring. |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
2226 Display `Mark set' unless the optional second arg NOMSG is non-nil. |
2844
086fda6b2041
(push-mark): Always activate the mark if not in Transient Mark mode.
Richard M. Stallman <rms@gnu.org>
parents:
2824
diff
changeset
|
2227 In Transient Mark mode, activate mark if optional third arg ACTIVATE non-nil. |
475 | 2228 |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2229 Novice Emacs Lisp programmers often try to use the mark for the wrong |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2230 purposes. See the documentation of `set-mark' for more information. |
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2231 |
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2232 In Transient Mark mode, this does not activate the mark." |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2233 (if (null (mark t)) |
475 | 2234 nil |
2235 (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring)) | |
2236 (if (> (length mark-ring) mark-ring-max) | |
2237 (progn | |
2238 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil) | |
2239 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil)))) | |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2240 (set-marker (mark-marker) (or location (point)) (current-buffer)) |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2241 ;; Now push the mark on the global mark ring. |
5812
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2242 (if (and global-mark-ring |
5826
2de9426a38bf
Fix Roland's misplaced paren around call to marker-buffer.
Michael I. Bushnell <mib@gnu.org>
parents:
5812
diff
changeset
|
2243 (eq (marker-buffer (car global-mark-ring)) (current-buffer))) |
5812
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2244 ;; The last global mark pushed was in this same buffer. |
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2245 ;; Don't push another one. |
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2246 nil |
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2247 (setq global-mark-ring (cons (copy-marker (mark-marker)) global-mark-ring)) |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2248 (if (> (length global-mark-ring) global-mark-ring-max) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2249 (progn |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2250 (move-marker (car (nthcdr global-mark-ring-max global-mark-ring)) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2251 nil) |
5812
1959e5c4a563
(push-mark): Don't push on global-mark-ring if its car is a marker in the
Roland McGrath <roland@gnu.org>
parents:
5811
diff
changeset
|
2252 (setcdr (nthcdr (1- global-mark-ring-max) global-mark-ring) nil)))) |
15302
c23c9712ef5c
Use executing-kbd-macro, not executing-macro.
Karl Heuer <kwzh@gnu.org>
parents:
15263
diff
changeset
|
2253 (or nomsg executing-kbd-macro (> (minibuffer-depth) 0) |
475 | 2254 (message "Mark set")) |
2844
086fda6b2041
(push-mark): Always activate the mark if not in Transient Mark mode.
Richard M. Stallman <rms@gnu.org>
parents:
2824
diff
changeset
|
2255 (if (or activate (not transient-mark-mode)) |
086fda6b2041
(push-mark): Always activate the mark if not in Transient Mark mode.
Richard M. Stallman <rms@gnu.org>
parents:
2824
diff
changeset
|
2256 (set-mark (mark t))) |
475 | 2257 nil) |
2258 | |
2259 (defun pop-mark () | |
2260 "Pop off mark ring into the buffer's actual mark. | |
2261 Does not set point. Does nothing if mark ring is empty." | |
2262 (if mark-ring | |
2263 (progn | |
2264 (setq mark-ring (nconc mark-ring (list (copy-marker (mark-marker))))) | |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2265 (set-marker (mark-marker) (+ 0 (car mark-ring)) (current-buffer)) |
4042
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
2266 (deactivate-mark) |
475 | 2267 (move-marker (car mark-ring) nil) |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
2268 (if (null (mark t)) (ding)) |
475 | 2269 (setq mark-ring (cdr mark-ring))))) |
2270 | |
16436
d2acc84badf4
Use defalias not define-function.
Richard M. Stallman <rms@gnu.org>
parents:
16417
diff
changeset
|
2271 (defalias 'exchange-dot-and-mark 'exchange-point-and-mark) |
475 | 2272 (defun exchange-point-and-mark () |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2273 "Put the mark where point is now, and point where the mark is now. |
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2274 This command works even when the mark is not active, |
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2275 and it reactivates the mark." |
475 | 2276 (interactive nil) |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
2277 (let ((omark (mark t))) |
475 | 2278 (if (null omark) |
2279 (error "No mark set in this buffer")) | |
2280 (set-mark (point)) | |
2281 (goto-char omark) | |
2282 nil)) | |
2796
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2283 |
17514 | 2284 (defun transient-mark-mode (arg) |
2796
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2285 "Toggle Transient Mark mode. |
2935
653e14f61220
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2850
diff
changeset
|
2286 With arg, turn Transient Mark mode on if arg is positive, off otherwise. |
2796
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2287 |
5372
ac927443eae9
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5343
diff
changeset
|
2288 In Transient Mark mode, when the mark is active, the region is highlighted. |
ac927443eae9
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5343
diff
changeset
|
2289 Changing the buffer \"deactivates\" the mark. |
ac927443eae9
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5343
diff
changeset
|
2290 So do certain other operations that set the mark |
ac927443eae9
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5343
diff
changeset
|
2291 but whose main purpose is something else--for example, |
ac927443eae9
(transient-mark-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5343
diff
changeset
|
2292 incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]." |
17514 | 2293 (interactive "P") |
2796
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2294 (setq transient-mark-mode |
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2295 (if (null arg) |
e0a9c4815584
(transient-mark-mode): New command.
Richard M. Stallman <rms@gnu.org>
parents:
2681
diff
changeset
|
2296 (not transient-mark-mode) |
17513
ea3acb6b992a
(transient-mark-mode): Print message if used interactively.
Richard M. Stallman <rms@gnu.org>
parents:
17471
diff
changeset
|
2297 (> (prefix-numeric-value arg) 0))) |
17514 | 2298 (if (interactive-p) |
2299 (if transient-mark-mode | |
2300 (message "Transient Mark mode enabled") | |
2301 (message "Transient Mark mode disabled")))) | |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2302 |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2303 (defun pop-global-mark () |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2304 "Pop off global mark ring and jump to the top location." |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2305 (interactive) |
7881
4ab8723cd491
(pop-global-mark): Discard entries for nonexistent buffers.
Richard M. Stallman <rms@gnu.org>
parents:
7877
diff
changeset
|
2306 ;; Pop entries which refer to non-existent buffers. |
4ab8723cd491
(pop-global-mark): Discard entries for nonexistent buffers.
Richard M. Stallman <rms@gnu.org>
parents:
7877
diff
changeset
|
2307 (while (and global-mark-ring (not (marker-buffer (car global-mark-ring)))) |
4ab8723cd491
(pop-global-mark): Discard entries for nonexistent buffers.
Richard M. Stallman <rms@gnu.org>
parents:
7877
diff
changeset
|
2308 (setq global-mark-ring (cdr global-mark-ring))) |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2309 (or global-mark-ring |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2310 (error "No global mark set")) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2311 (let* ((marker (car global-mark-ring)) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2312 (buffer (marker-buffer marker)) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2313 (position (marker-position marker))) |
10351
e34cbd5276bd
(pop-global-mark): Make pop-global-mark treat
Richard M. Stallman <rms@gnu.org>
parents:
10284
diff
changeset
|
2314 (setq global-mark-ring (nconc (cdr global-mark-ring) |
e34cbd5276bd
(pop-global-mark): Make pop-global-mark treat
Richard M. Stallman <rms@gnu.org>
parents:
10284
diff
changeset
|
2315 (list (car global-mark-ring)))) |
5811
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2316 (set-buffer buffer) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2317 (or (and (>= position (point-min)) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2318 (<= position (point-max))) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2319 (widen)) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2320 (goto-char position) |
7cc27fc3c661
(global-mark-ring, global-mark-ring-max): New variables.
Roland McGrath <roland@gnu.org>
parents:
5805
diff
changeset
|
2321 (switch-to-buffer buffer))) |
475 | 2322 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2323 (defcustom next-line-add-newlines t |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2324 "*If non-nil, `next-line' inserts newline to avoid `end of buffer' error." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2325 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2326 :group 'editing-basics) |
2568
15014ba142a7
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2446
diff
changeset
|
2327 |
475 | 2328 (defun next-line (arg) |
2329 "Move cursor vertically down ARG lines. | |
2330 If there is no character in the target line exactly under the current column, | |
2331 the cursor is positioned after the character in that line which spans this | |
2332 column, or at the end of the line if it is not long enough. | |
2568
15014ba142a7
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2446
diff
changeset
|
2333 If there is no line in the buffer after this one, behavior depends on the |
10226
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2334 value of `next-line-add-newlines'. If non-nil, it inserts a newline character |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2335 to create a line, and moves the cursor to that line. Otherwise it moves the |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2336 cursor to the end of the buffer. |
475 | 2337 |
2338 The command \\[set-goal-column] can be used to create | |
18593
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2339 a semipermanent goal column for this command. |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2340 Then instead of trying to move exactly vertically (or as close as possible), |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2341 this command moves to the specified goal column (or as close as possible). |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2342 The goal column is stored in the variable `goal-column', which is nil |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2343 when there is no goal column. |
475 | 2344 |
2345 If you are thinking of using this in a Lisp program, consider | |
2346 using `forward-line' instead. It is usually easier to use | |
2347 and more reliable (no dependence on goal column, etc.)." | |
2348 (interactive "p") | |
5675
3191bf405867
(next-line): Move error signaling and special end of
Richard M. Stallman <rms@gnu.org>
parents:
5635
diff
changeset
|
2349 (if (and next-line-add-newlines (= arg 1)) |
3191bf405867
(next-line): Move error signaling and special end of
Richard M. Stallman <rms@gnu.org>
parents:
5635
diff
changeset
|
2350 (let ((opoint (point))) |
8309
a4dbf8e6c78f
(line-move, next-line): Check last line moved over
Richard M. Stallman <rms@gnu.org>
parents:
8203
diff
changeset
|
2351 (end-of-line) |
a4dbf8e6c78f
(line-move, next-line): Check last line moved over
Richard M. Stallman <rms@gnu.org>
parents:
8203
diff
changeset
|
2352 (if (eobp) |
10422
3c447e2caef3
(open-line, split-line, next-line): Use `newline'
Richard M. Stallman <rms@gnu.org>
parents:
10352
diff
changeset
|
2353 (newline 1) |
5675
3191bf405867
(next-line): Move error signaling and special end of
Richard M. Stallman <rms@gnu.org>
parents:
5635
diff
changeset
|
2354 (goto-char opoint) |
3191bf405867
(next-line): Move error signaling and special end of
Richard M. Stallman <rms@gnu.org>
parents:
5635
diff
changeset
|
2355 (line-move arg))) |
10226
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2356 (if (interactive-p) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2357 (condition-case nil |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2358 (line-move arg) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2359 ((beginning-of-buffer end-of-buffer) (ding))) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2360 (line-move arg))) |
475 | 2361 nil) |
2362 | |
2363 (defun previous-line (arg) | |
2364 "Move cursor vertically up ARG lines. | |
2365 If there is no character in the target line exactly over the current column, | |
2366 the cursor is positioned after the character in that line which spans this | |
2367 column, or at the end of the line if it is not long enough. | |
2368 | |
2369 The command \\[set-goal-column] can be used to create | |
18593
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2370 a semipermanent goal column for this command. |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2371 Then instead of trying to move exactly vertically (or as close as possible), |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2372 this command moves to the specified goal column (or as close as possible). |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2373 The goal column is stored in the variable `goal-column', which is nil |
3c958a136c4a
(next-line, previous-line): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
18498
diff
changeset
|
2374 when there is no goal column. |
475 | 2375 |
2376 If you are thinking of using this in a Lisp program, consider using | |
1556
fce86d06a758
* simple.el (previous-line): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1481
diff
changeset
|
2377 `forward-line' with a negative argument instead. It is usually easier |
475 | 2378 to use and more reliable (no dependence on goal column, etc.)." |
2379 (interactive "p") | |
10226
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2380 (if (interactive-p) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2381 (condition-case nil |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2382 (line-move (- arg)) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2383 ((beginning-of-buffer end-of-buffer) (ding))) |
1817c5332316
(next-line, previous-line): If interactive and not in
Richard M. Stallman <rms@gnu.org>
parents:
10165
diff
changeset
|
2384 (line-move (- arg))) |
475 | 2385 nil) |
25292 | 2386 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2387 (defcustom track-eol nil |
475 | 2388 "*Non-nil means vertical motion starting at end of line keeps to ends of lines. |
2389 This means moving to the end of each line moved onto. | |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2390 The beginning of a blank line does not count as the end of a line." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2391 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2392 :group 'editing-basics) |
475 | 2393 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2394 (defcustom goal-column nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2395 "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2396 :type '(choice integer |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2397 (const :tag "None" nil)) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2398 :group 'editing-basics) |
1466
04b4499061fd
(goal-column): Don't put the defvar inside the make-variable-buffer-local.
Richard M. Stallman <rms@gnu.org>
parents:
1459
diff
changeset
|
2399 (make-variable-buffer-local 'goal-column) |
475 | 2400 |
2401 (defvar temporary-goal-column 0 | |
2402 "Current goal column for vertical motion. | |
2403 It is the column where point was | |
2404 at the start of current run of vertical motion commands. | |
513 | 2405 When the `track-eol' feature is doing its job, the value is 9999.") |
475 | 2406 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2407 (defcustom line-move-ignore-invisible nil |
10949
99c9f475a355
(line-move-ignore-invisible): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10943
diff
changeset
|
2408 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines. |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2409 Outline mode sets this." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2410 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2411 :group 'editing-basics) |
10949
99c9f475a355
(line-move-ignore-invisible): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10943
diff
changeset
|
2412 |
11326
0d5ebc078c51
(line-move): Turn off intangibility for intermediate stops.
Richard M. Stallman <rms@gnu.org>
parents:
11324
diff
changeset
|
2413 ;; This is the guts of next-line and previous-line. |
0d5ebc078c51
(line-move): Turn off intangibility for intermediate stops.
Richard M. Stallman <rms@gnu.org>
parents:
11324
diff
changeset
|
2414 ;; Arg says how many lines to move. |
475 | 2415 (defun line-move (arg) |
11479
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2416 ;; Don't run any point-motion hooks, and disregard intangibility, |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2417 ;; for intermediate positions. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2418 (let ((inhibit-point-motion-hooks t) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2419 (opoint (point)) |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2420 new line-end line-beg) |
11479
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2421 (unwind-protect |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2422 (progn |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2423 (if (not (or (eq last-command 'next-line) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2424 (eq last-command 'previous-line))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2425 (setq temporary-goal-column |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2426 (if (and track-eol (eolp) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2427 ;; Don't count beg of empty line as end of line |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2428 ;; unless we just did explicit end-of-line. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2429 (or (not (bolp)) (eq last-command 'end-of-line))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2430 9999 |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2431 (current-column)))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2432 (if (and (not (integerp selective-display)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2433 (not line-move-ignore-invisible)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2434 ;; Use just newline characters. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2435 (or (if (> arg 0) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2436 (progn (if (> arg 1) (forward-line (1- arg))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2437 ;; This way of moving forward ARG lines |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2438 ;; verifies that we have a newline after the last one. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2439 ;; It doesn't get confused by intangible text. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2440 (end-of-line) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2441 (zerop (forward-line 1))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2442 (and (zerop (forward-line arg)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2443 (bolp))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2444 (signal (if (< arg 0) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2445 'beginning-of-buffer |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2446 'end-of-buffer) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2447 nil)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2448 ;; Move by arg lines, but ignore invisible ones. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2449 (while (> arg 0) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2450 (end-of-line) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2451 (and (zerop (vertical-motion 1)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2452 (signal 'end-of-buffer nil)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2453 ;; If the following character is currently invisible, |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2454 ;; skip all characters with that same `invisible' property value. |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2455 (while (and (not (eobp)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2456 (let ((prop |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2457 (get-char-property (point) 'invisible))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2458 (if (eq buffer-invisibility-spec t) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2459 prop |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2460 (or (memq prop buffer-invisibility-spec) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2461 (assq prop buffer-invisibility-spec))))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2462 (if (get-text-property (point) 'invisible) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2463 (goto-char (next-single-property-change (point) 'invisible)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2464 (goto-char (next-overlay-change (point))))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2465 (setq arg (1- arg))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2466 (while (< arg 0) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2467 (beginning-of-line) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2468 (and (zerop (vertical-motion -1)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2469 (signal 'beginning-of-buffer nil)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2470 (while (and (not (bobp)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2471 (let ((prop |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2472 (get-char-property (1- (point)) 'invisible))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2473 (if (eq buffer-invisibility-spec t) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2474 prop |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2475 (or (memq prop buffer-invisibility-spec) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2476 (assq prop buffer-invisibility-spec))))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2477 (if (get-text-property (1- (point)) 'invisible) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2478 (goto-char (previous-single-property-change (point) 'invisible)) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2479 (goto-char (previous-overlay-change (point))))) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2480 (setq arg (1+ arg)))) |
16408
87f15c601f5a
(line-move): Ignore invisibility in `move-to-column'.
Richard M. Stallman <rms@gnu.org>
parents:
16316
diff
changeset
|
2481 (let ((buffer-invisibility-spec nil)) |
87f15c601f5a
(line-move): Ignore invisibility in `move-to-column'.
Richard M. Stallman <rms@gnu.org>
parents:
16316
diff
changeset
|
2482 (move-to-column (or goal-column temporary-goal-column)))) |
18034
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2483 (setq new (point)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2484 ;; If we are moving into some intangible text, |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2485 ;; look for following text on the same line which isn't intangible |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2486 ;; and move there. |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2487 (setq line-end (save-excursion (end-of-line) (point))) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2488 (setq line-beg (save-excursion (beginning-of-line) (point))) |
18034
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2489 (let ((after (and (< new (point-max)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2490 (get-char-property new 'intangible))) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2491 (before (and (> new (point-min)) |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2492 (get-char-property (1- new) 'intangible)))) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2493 (when (and before (eq before after) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2494 (not (bolp))) |
18034
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2495 (goto-char (point-min)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2496 (let ((inhibit-point-motion-hooks nil)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2497 (goto-char new)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2498 (if (<= new line-end) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2499 (setq new (point))))) |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2500 ;; NEW is where we want to move to. |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2501 ;; LINE-BEG and LINE-END are the beginning and end of the line. |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2502 ;; Move there in just one step, from our starting position, |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2503 ;; with intangibility and point-motion hooks enabled this time. |
11479
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2504 (goto-char opoint) |
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2505 (setq inhibit-point-motion-hooks nil) |
30441 | 2506 (goto-char (constrain-to-field new opoint nil t |
2507 'inhibit-line-move-field-capture)) | |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2508 ;; If intangibility processing moved us to a different line, |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2509 ;; readjust the horizontal position within the line we ended up at. |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2510 (when (or (< (point) line-beg) (> (point) line-end)) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2511 (setq new (point)) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2512 (setq inhibit-point-motion-hooks t) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2513 (setq line-end (save-excursion (end-of-line) (point))) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2514 (beginning-of-line) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2515 (setq line-beg (point)) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2516 (let ((buffer-invisibility-spec nil)) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2517 (move-to-column (or goal-column temporary-goal-column))) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2518 (if (<= (point) line-end) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2519 (setq new (point))) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2520 (goto-char (point-min)) |
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2521 (setq inhibit-point-motion-hooks nil) |
30441 | 2522 (goto-char (constrain-to-field new opoint nil t |
2523 'inhibit-line-move-field-capture)) | |
19003
9d24caacda44
(line-move): If intangibility moves us to a different line,
Richard M. Stallman <rms@gnu.org>
parents:
18902
diff
changeset
|
2524 ))) |
11479
266653a85b65
(line-move): Fix previous change: if we get an error,
Richard M. Stallman <rms@gnu.org>
parents:
11362
diff
changeset
|
2525 nil) |
475 | 2526 |
1771
3f0f18d4eb8c
* simple.el (set-goal-column): Make this command disabled by default.
Jim Blandy <jimb@redhat.com>
parents:
1760
diff
changeset
|
2527 ;;; Many people have said they rarely use this feature, and often type |
3f0f18d4eb8c
* simple.el (set-goal-column): Make this command disabled by default.
Jim Blandy <jimb@redhat.com>
parents:
1760
diff
changeset
|
2528 ;;; it by accident. Maybe it shouldn't even be on a key. |
3f0f18d4eb8c
* simple.el (set-goal-column): Make this command disabled by default.
Jim Blandy <jimb@redhat.com>
parents:
1760
diff
changeset
|
2529 (put 'set-goal-column 'disabled t) |
475 | 2530 |
2531 (defun set-goal-column (arg) | |
2532 "Set the current horizontal position as a goal for \\[next-line] and \\[previous-line]. | |
2533 Those commands will move to this position in the line moved to | |
2534 rather than trying to keep the same horizontal position. | |
2535 With a non-nil argument, clears out the goal column | |
1466
04b4499061fd
(goal-column): Don't put the defvar inside the make-variable-buffer-local.
Richard M. Stallman <rms@gnu.org>
parents:
1459
diff
changeset
|
2536 so that \\[next-line] and \\[previous-line] resume vertical motion. |
04b4499061fd
(goal-column): Don't put the defvar inside the make-variable-buffer-local.
Richard M. Stallman <rms@gnu.org>
parents:
1459
diff
changeset
|
2537 The goal column is stored in the variable `goal-column'." |
475 | 2538 (interactive "P") |
2539 (if arg | |
2540 (progn | |
2541 (setq goal-column nil) | |
2542 (message "No goal column")) | |
2543 (setq goal-column (current-column)) | |
2544 (message (substitute-command-keys | |
2545 "Goal column %d (use \\[set-goal-column] with an arg to unset it)") | |
2546 goal-column)) | |
2547 nil) | |
2548 | |
8006
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2549 |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2550 (defun scroll-other-window-down (lines) |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2551 "Scroll the \"other window\" down. |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2552 For more details, see the documentation for `scroll-other-window'." |
8006
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2553 (interactive "P") |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2554 (scroll-other-window |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2555 ;; Just invert the argument's meaning. |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2556 ;; We can do that without knowing which window it will be. |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2557 (if (eq lines '-) nil |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2558 (if (null lines) '- |
6e58b282df42
(scroll-other-window-down): New command.
Richard M. Stallman <rms@gnu.org>
parents:
7881
diff
changeset
|
2559 (- (prefix-numeric-value lines)))))) |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2560 (define-key esc-map [?\C-\S-v] 'scroll-other-window-down) |
8057
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2561 |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2562 (defun beginning-of-buffer-other-window (arg) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2563 "Move point to the beginning of the buffer in the other window. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2564 Leave mark at previous position. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2565 With arg N, put point N/10 of the way from the true beginning." |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2566 (interactive "P") |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2567 (let ((orig-window (selected-window)) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2568 (window (other-window-for-scrolling))) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2569 ;; We use unwind-protect rather than save-window-excursion |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2570 ;; because the latter would preserve the things we want to change. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2571 (unwind-protect |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2572 (progn |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2573 (select-window window) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2574 ;; Set point and mark in that window's buffer. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2575 (beginning-of-buffer arg) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2576 ;; Set point accordingly. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2577 (recenter '(t))) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2578 (select-window orig-window)))) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2579 |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2580 (defun end-of-buffer-other-window (arg) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2581 "Move point to the end of the buffer in the other window. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2582 Leave mark at previous position. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2583 With arg N, put point N/10 of the way from the true end." |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2584 (interactive "P") |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2585 ;; See beginning-of-buffer-other-window for comments. |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2586 (let ((orig-window (selected-window)) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2587 (window (other-window-for-scrolling))) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2588 (unwind-protect |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2589 (progn |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2590 (select-window window) |
8442
05efaa4966e0
(end-of-buffer-other-window): Go to the end, not to the beginning.
Richard M. Stallman <rms@gnu.org>
parents:
8380
diff
changeset
|
2591 (end-of-buffer arg) |
8057
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2592 (recenter '(t))) |
11a0c2f22d7e
(beginning-of-buffer-other-window)
Richard M. Stallman <rms@gnu.org>
parents:
8006
diff
changeset
|
2593 (select-window orig-window)))) |
2568
15014ba142a7
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2446
diff
changeset
|
2594 |
475 | 2595 (defun transpose-chars (arg) |
2596 "Interchange characters around point, moving forward one character. | |
2597 With prefix arg ARG, effect is to take character before point | |
2598 and drag it forward past ARG other characters (backward if ARG negative). | |
2599 If no argument and at end of line, the previous two chars are exchanged." | |
2600 (interactive "*P") | |
2601 (and (null arg) (eolp) (forward-char -1)) | |
2602 (transpose-subr 'forward-char (prefix-numeric-value arg))) | |
2603 | |
2604 (defun transpose-words (arg) | |
2605 "Interchange words around point, leaving point at end of them. | |
2606 With prefix arg ARG, effect is to take word before or around point | |
2607 and drag it forward past ARG other words (backward if ARG negative). | |
2608 If ARG is zero, the words around or after point and around or after mark | |
2609 are interchanged." | |
2610 (interactive "*p") | |
2611 (transpose-subr 'forward-word arg)) | |
2612 | |
2613 (defun transpose-sexps (arg) | |
2614 "Like \\[transpose-words] but applies to sexps. | |
2615 Does not work on a sexp that point is in the middle of | |
2616 if it is a list or string." | |
2617 (interactive "*p") | |
2618 (transpose-subr 'forward-sexp arg)) | |
2619 | |
2620 (defun transpose-lines (arg) | |
2621 "Exchange current line and previous line, leaving point after both. | |
2622 With argument ARG, takes previous line and moves it past ARG lines. | |
2623 With argument 0, interchanges line point is in with line mark is in." | |
2624 (interactive "*p") | |
2625 (transpose-subr (function | |
2626 (lambda (arg) | |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2627 (if (> arg 0) |
475 | 2628 (progn |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2629 ;; Move forward over ARG lines, |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2630 ;; but create newlines if necessary. |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2631 (setq arg (forward-line arg)) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2632 (if (/= (preceding-char) ?\n) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2633 (setq arg (1+ arg))) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2634 (if (> arg 0) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2635 (newline arg))) |
475 | 2636 (forward-line arg)))) |
2637 arg)) | |
2638 | |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2639 (defvar transpose-subr-start1) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2640 (defvar transpose-subr-start2) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2641 (defvar transpose-subr-end1) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2642 (defvar transpose-subr-end2) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2643 |
475 | 2644 (defun transpose-subr (mover arg) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2645 (let (transpose-subr-start1 |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2646 transpose-subr-end1 |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2647 transpose-subr-start2 |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2648 transpose-subr-end2) |
475 | 2649 (if (= arg 0) |
2650 (progn | |
2651 (save-excursion | |
2652 (funcall mover 1) | |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2653 (setq transpose-subr-end2 (point)) |
475 | 2654 (funcall mover -1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2655 (setq transpose-subr-start2 (point)) |
475 | 2656 (goto-char (mark)) |
2657 (funcall mover 1) | |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2658 (setq transpose-subr-end1 (point)) |
475 | 2659 (funcall mover -1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2660 (setq transpose-subr-start1 (point)) |
475 | 2661 (transpose-subr-1)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2662 (exchange-point-and-mark)) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2663 (if (> arg 0) |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2664 (progn |
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2665 (funcall mover -1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2666 (setq transpose-subr-start1 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2667 (funcall mover 1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2668 (setq transpose-subr-end1 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2669 (funcall mover arg) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2670 (setq transpose-subr-end2 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2671 (funcall mover (- arg)) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2672 (setq transpose-subr-start2 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2673 (transpose-subr-1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2674 (goto-char transpose-subr-end2)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2675 (funcall mover -1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2676 (setq transpose-subr-start2 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2677 (funcall mover 1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2678 (setq transpose-subr-end2 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2679 (funcall mover (1- arg)) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2680 (setq transpose-subr-start1 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2681 (funcall mover (- arg)) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2682 (setq transpose-subr-end1 (point)) |
20465
de641c2459a6
(transpose-subr): Rewrite to make faster with big move
Andreas Schwab <schwab@suse.de>
parents:
20384
diff
changeset
|
2683 (transpose-subr-1))))) |
475 | 2684 |
2685 (defun transpose-subr-1 () | |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2686 (if (> (min transpose-subr-end1 transpose-subr-end2) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2687 (max transpose-subr-start1 transpose-subr-start2)) |
475 | 2688 (error "Don't have two things to transpose")) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2689 (let* ((word1 (buffer-substring transpose-subr-start1 transpose-subr-end1)) |
16999
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
2690 (len1 (length word1)) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2691 (word2 (buffer-substring transpose-subr-start2 transpose-subr-end2)) |
16999
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
2692 (len2 (length word2))) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2693 (delete-region transpose-subr-start2 transpose-subr-end2) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2694 (goto-char transpose-subr-start2) |
475 | 2695 (insert word1) |
23775
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2696 (goto-char (if (< transpose-subr-start1 transpose-subr-start2) |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2697 transpose-subr-start1 |
e2b39708c646
(transpose-subr, transpose-subr-1): Rename variables
Richard M. Stallman <rms@gnu.org>
parents:
23660
diff
changeset
|
2698 (+ transpose-subr-start1 (- len1 len2)))) |
16999
b22c4cee0207
(kill-forward-chars, kill-backward-chars): Pay
Karl Heuer <kwzh@gnu.org>
parents:
16957
diff
changeset
|
2699 (delete-region (point) (+ (point) len1)) |
475 | 2700 (insert word2))) |
2701 | |
2702 (defun backward-word (arg) | |
2703 "Move backward until encountering the end of a word. | |
32222 | 2704 With argument, do this that many times." |
5764
5726c18895e3
Rms (in his change to comment-region on Feb 1) decided to make
Michael I. Bushnell <mib@gnu.org>
parents:
5730
diff
changeset
|
2705 (interactive "p") |
475 | 2706 (forward-word (- arg))) |
2707 | |
2708 (defun mark-word (arg) | |
2709 "Set mark arg words away from point." | |
2710 (interactive "p") | |
2711 (push-mark | |
2712 (save-excursion | |
2713 (forward-word arg) | |
2824
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
2714 (point)) |
c684bce3e977
(yank, yank-pop): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2805
diff
changeset
|
2715 nil t)) |
475 | 2716 |
2717 (defun kill-word (arg) | |
2718 "Kill characters forward until encountering the end of a word. | |
2719 With argument, do this that many times." | |
27836
132294fa754e
(zap-to-char, kill-line, kill-region, kill-word)
Dave Love <fx@gnu.org>
parents:
27477
diff
changeset
|
2720 (interactive "p") |
25400
c75839c09c84
(kill-word): Undo previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
25342
diff
changeset
|
2721 (kill-region (point) (progn (forward-word arg) (point)))) |
475 | 2722 |
2723 (defun backward-kill-word (arg) | |
2724 "Kill characters backward until encountering the end of a word. | |
2725 With argument, do this that many times." | |
27836
132294fa754e
(zap-to-char, kill-line, kill-region, kill-word)
Dave Love <fx@gnu.org>
parents:
27477
diff
changeset
|
2726 (interactive "p") |
475 | 2727 (kill-word (- arg))) |
2416
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2728 |
6174
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2729 (defun current-word (&optional strict) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2730 "Return the word point is on (or a nearby word) as a string. |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2731 If optional arg STRICT is non-nil, return nil unless point is within |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2732 or adjacent to a word." |
2416
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2733 (save-excursion |
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2734 (let ((oldpoint (point)) (start (point)) (end (point))) |
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2735 (skip-syntax-backward "w_") (setq start (point)) |
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2736 (goto-char oldpoint) |
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2737 (skip-syntax-forward "w_") (setq end (point)) |
cd01176e9dc5
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
2738 (if (and (eq start oldpoint) (eq end oldpoint)) |
6174
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2739 ;; Point is neither within nor adjacent to a word. |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2740 (and (not strict) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2741 (progn |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2742 ;; Look for preceding word in same line. |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2743 (skip-syntax-backward "^w_" |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2744 (save-excursion (beginning-of-line) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2745 (point))) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2746 (if (bolp) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2747 ;; No preceding word in same line. |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2748 ;; Look for following word in same line. |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2749 (progn |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2750 (skip-syntax-forward "^w_" |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2751 (save-excursion (end-of-line) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2752 (point))) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2753 (setq start (point)) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2754 (skip-syntax-forward "w_") |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2755 (setq end (point))) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2756 (setq end (point)) |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2757 (skip-syntax-backward "w_") |
3902f1241d1c
(current-word): Check properly for bolp. New optional arg STRICT. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6160
diff
changeset
|
2758 (setq start (point))) |
18379
1dd6f63f0ea3
(paren-blinking group): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18334
diff
changeset
|
2759 (buffer-substring-no-properties start end))) |
1dd6f63f0ea3
(paren-blinking group): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18334
diff
changeset
|
2760 (buffer-substring-no-properties start end))))) |
475 | 2761 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2762 (defcustom fill-prefix nil |
475 | 2763 "*String for filling to insert at front of new line, or nil for none. |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2764 Setting this variable automatically makes it local to the current buffer." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2765 :type '(choice (const :tag "None" nil) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2766 string) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2767 :group 'fill) |
475 | 2768 (make-variable-buffer-local 'fill-prefix) |
2769 | |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2770 (defcustom auto-fill-inhibit-regexp nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2771 "*Regexp to match lines which should not be auto-filled." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2772 :type '(choice (const :tag "None" nil) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2773 regexp) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
2774 :group 'fill) |
475 | 2775 |
19160
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2776 (defvar comment-line-break-function 'indent-new-comment-line |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2777 "*Mode-specific function which line breaks and continues a comment. |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2778 |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2779 This function is only called during auto-filling of a comment section. |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2780 The function should take a single optional argument, which is a flag |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2781 indicating whether it should use soft newlines. |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2782 |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2783 Setting this variable automatically makes it local to the current buffer.") |
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2784 |
21122
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2785 ;; This function is used as the auto-fill-function of a buffer |
15263
0d7899c372ed
(do-auto-fill): Return t if real work was done.
Karl Heuer <kwzh@gnu.org>
parents:
15115
diff
changeset
|
2786 ;; when Auto-Fill mode is enabled. |
0d7899c372ed
(do-auto-fill): Return t if real work was done.
Karl Heuer <kwzh@gnu.org>
parents:
15115
diff
changeset
|
2787 ;; It returns t if it really did any work. |
21122
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2788 ;; (Actually some major modes use a different auto-fill function, |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2789 ;; but this one is the default one.) |
475 | 2790 (defun do-auto-fill () |
12708
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2791 (let (fc justify bol give-up |
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2792 (fill-prefix fill-prefix)) |
10471
3eb77f03f53e
(do-auto-fill): justification renamed to current-justification.
Richard M. Stallman <rms@gnu.org>
parents:
10469
diff
changeset
|
2793 (if (or (not (setq justify (current-justification))) |
12428
e4c0623f4a2e
(do-auto-fill): No-op if (current-fill-column) is nil.
Richard M. Stallman <rms@gnu.org>
parents:
12400
diff
changeset
|
2794 (null (setq fc (current-fill-column))) |
e4c0623f4a2e
(do-auto-fill): No-op if (current-fill-column) is nil.
Richard M. Stallman <rms@gnu.org>
parents:
12400
diff
changeset
|
2795 (and (eq justify 'left) |
e4c0623f4a2e
(do-auto-fill): No-op if (current-fill-column) is nil.
Richard M. Stallman <rms@gnu.org>
parents:
12400
diff
changeset
|
2796 (<= (current-column) fc)) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
2797 (save-excursion (beginning-of-line) |
10469
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
2798 (setq bol (point)) |
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
2799 (and auto-fill-inhibit-regexp |
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
2800 (looking-at auto-fill-inhibit-regexp)))) |
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
2801 nil ;; Auto-filling not required |
10813
bccf0295c66e
(open-line): indent when inserting fil-prefix.
Boris Goldowsky <boris@gnu.org>
parents:
10805
diff
changeset
|
2802 (if (memq justify '(full center right)) |
bccf0295c66e
(open-line): indent when inserting fil-prefix.
Boris Goldowsky <boris@gnu.org>
parents:
10805
diff
changeset
|
2803 (save-excursion (unjustify-current-line))) |
12708
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2804 |
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2805 ;; Choose a fill-prefix automatically. |
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2806 (if (and adaptive-fill-mode |
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2807 (or (null fill-prefix) (string= fill-prefix ""))) |
13587
a0c1c62e2c4a
(do-auto-fill): Look at 2nd line for fill prefix
Richard M. Stallman <rms@gnu.org>
parents:
13525
diff
changeset
|
2808 (let ((prefix |
a0c1c62e2c4a
(do-auto-fill): Look at 2nd line for fill prefix
Richard M. Stallman <rms@gnu.org>
parents:
13525
diff
changeset
|
2809 (fill-context-prefix |
a0c1c62e2c4a
(do-auto-fill): Look at 2nd line for fill prefix
Richard M. Stallman <rms@gnu.org>
parents:
13525
diff
changeset
|
2810 (save-excursion (backward-paragraph 1) (point)) |
18034
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
2811 (save-excursion (forward-paragraph 1) (point))))) |
13587
a0c1c62e2c4a
(do-auto-fill): Look at 2nd line for fill prefix
Richard M. Stallman <rms@gnu.org>
parents:
13525
diff
changeset
|
2812 (and prefix (not (equal prefix "")) |
a0c1c62e2c4a
(do-auto-fill): Look at 2nd line for fill prefix
Richard M. Stallman <rms@gnu.org>
parents:
13525
diff
changeset
|
2813 (setq fill-prefix prefix)))) |
12708
1a81e79198c6
(do-auto-fill): Handle adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12624
diff
changeset
|
2814 |
10469
2546bad34200
(do-auto-fill): Fill, don't fill, or fill-and-justify
Richard M. Stallman <rms@gnu.org>
parents:
10422
diff
changeset
|
2815 (while (and (not give-up) (> (current-column) fc)) |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2816 ;; Determine where to split the line. |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2817 (let* (after-prefix |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2818 (fill-point |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2819 (let ((opoint (point)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2820 bounce |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2821 (first t)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2822 (save-excursion |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2823 (beginning-of-line) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2824 (setq after-prefix (point)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2825 (and fill-prefix |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2826 (looking-at (regexp-quote fill-prefix)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2827 (setq after-prefix (match-end 0))) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2828 (move-to-column (1+ fc)) |
21122
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2829 ;; Move back to the point where we can break the line. |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2830 ;; We break the line between word or |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2831 ;; after/before the character which has character |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2832 ;; category `|'. We search space, \c| followed by |
21122
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2833 ;; a character, or \c| following a character. If |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2834 ;; not found, place the point at beginning of line. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2835 (while (or first |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2836 ;; If this is after period and a single space, |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2837 ;; move back once more--we don't want to break |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2838 ;; the line there and make it look like a |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2839 ;; sentence end. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2840 (and (not (bobp)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2841 (not bounce) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2842 sentence-end-double-space |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2843 (save-excursion (forward-char -1) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2844 (and (looking-at "\\. ") |
21122
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2845 (not (looking-at "\\. "))))) |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2846 (and (not (bobp)) |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2847 (not bounce) |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2848 fill-nobreak-predicate |
912cc3491589
(do-auto-fill): Obey fill-nobreak-predicate.
Richard M. Stallman <rms@gnu.org>
parents:
21074
diff
changeset
|
2849 (funcall fill-nobreak-predicate))) |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2850 (setq first nil) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2851 (re-search-backward "[ \t]\\|\\c|.\\|.\\c|\\|^") |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2852 ;; If we find nowhere on the line to break it, |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2853 ;; break after one word. Set bounce to t |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2854 ;; so we will not keep going in this while loop. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2855 (if (<= (point) after-prefix) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2856 (progn |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2857 (goto-char after-prefix) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2858 (re-search-forward "[ \t]" opoint t) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2859 (setq bounce t)) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2860 (if (looking-at "[ \t]") |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2861 ;; Break the line at word boundary. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2862 (skip-chars-backward " \t") |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2863 ;; Break the line after/before \c|. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2864 (forward-char 1)))) |
23491
608e86fcce73
(do-auto-fill): Don't check kinsoku-enable here.
Kenichi Handa <handa@m17n.org>
parents:
23472
diff
changeset
|
2865 (if enable-multibyte-characters |
23520
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2866 ;; If we are going to break the line after or |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2867 ;; before a non-ascii character, we may have |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2868 ;; to run a special function for the charset |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2869 ;; of the character to find the correct break |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2870 ;; point. |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2871 (if (not (and (eq (charset-after (1- (point))) 'ascii) |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2872 (eq (charset-after (point)) 'ascii))) |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2873 (fill-find-break-point after-prefix))) |
b697f796a473
(do-auto-fill): Adjust argument for fill-find-break-point.
Kenichi Handa <handa@m17n.org>
parents:
23495
diff
changeset
|
2874 |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2875 ;; Let fill-point be set to the place where we end up. |
22754
5102cb480cae
(do-auto-fill): Always break before any whitespace
Richard M. Stallman <rms@gnu.org>
parents:
22725
diff
changeset
|
2876 ;; But move back before any whitespace here. |
5102cb480cae
(do-auto-fill): Always break before any whitespace
Richard M. Stallman <rms@gnu.org>
parents:
22725
diff
changeset
|
2877 (skip-chars-backward " \t") |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2878 (point))))) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2879 |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2880 ;; See whether the place we found is any good. |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2881 (if (save-excursion |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2882 (goto-char fill-point) |
19109
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2883 (and (not (bolp)) |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2884 ;; There is no use breaking at end of line. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2885 (not (save-excursion (skip-chars-forward " ") (eolp))) |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2886 ;; It is futile to split at the end of the prefix |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2887 ;; since we would just insert the prefix again. |
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2888 (not (and after-prefix (<= (point) after-prefix))) |
19109
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2889 ;; Don't split right after a comment starter |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2890 ;; since we would just make another comment starter. |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2891 (not (and comment-start-skip |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2892 (let ((limit (point))) |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2893 (beginning-of-line) |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2894 (and (re-search-forward comment-start-skip |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2895 limit t) |
98515e50136d
(shell-command-on-region, shell-command): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
19003
diff
changeset
|
2896 (eq (point) limit))))))) |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2897 ;; Ok, we have a useful place to break the line. Do it. |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2898 (let ((prev-column (current-column))) |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2899 ;; If point is at the fill-point, do not `save-excursion'. |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2900 ;; Otherwise, if a comment prefix or fill-prefix is inserted, |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2901 ;; point will end up before it rather than after it. |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2902 (if (save-excursion |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2903 (skip-chars-backward " \t") |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2904 (= (point) fill-point)) |
19160
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2905 (funcall comment-line-break-function t) |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2906 (save-excursion |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2907 (goto-char fill-point) |
19160
6fc804ec9434
(comment-line-break-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
19109
diff
changeset
|
2908 (funcall comment-line-break-function t))) |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2909 ;; Now do justification, if required |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2910 (if (not (eq justify 'left)) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
2911 (save-excursion |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2912 (end-of-line 0) |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2913 (justify-current-line justify nil t))) |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2914 ;; If making the new line didn't reduce the hpos of |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2915 ;; the end of the line, then give up now; |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2916 ;; trying again will not help. |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2917 (if (>= (current-column) prev-column) |
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2918 (setq give-up t))) |
19343
9427b0fcd9c1
(do-auto-fill): Better handling of a very long word
Richard M. Stallman <rms@gnu.org>
parents:
19326
diff
changeset
|
2919 ;; No good place to break => stop trying. |
12718
0a8b4f086ffc
(do-auto-fill): Handle adaptive-fill-function and adaptive-fill-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
12708
diff
changeset
|
2920 (setq give-up t)))) |
15836
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2921 ;; Justify last line. |
15263
0d7899c372ed
(do-auto-fill): Return t if real work was done.
Karl Heuer <kwzh@gnu.org>
parents:
15115
diff
changeset
|
2922 (justify-current-line justify t t) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
2923 t))) |
475 | 2924 |
15836
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2925 (defvar normal-auto-fill-function 'do-auto-fill |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2926 "The function to use for `auto-fill-function' if Auto Fill mode is turned on. |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2927 Some major modes set this.") |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2928 |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2929 (defun auto-fill-mode (&optional arg) |
15836
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2930 "Toggle Auto Fill mode. |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2931 With arg, turn Auto Fill mode on if and only if arg is positive. |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2932 In Auto Fill mode, inserting a space at a column beyond `current-fill-column' |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2933 automatically breaks the line at a previous space. |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2934 |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2935 The value of `normal-auto-fill-function' specifies the function to use |
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2936 for `auto-fill-function' when turning Auto Fill mode on." |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2937 (interactive "P") |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2938 (prog1 (setq auto-fill-function |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2939 (if (if (null arg) |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2940 (not auto-fill-function) |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2941 (> (prefix-numeric-value arg) 0)) |
15836
aa83fbda6971
(normal-auto-fill-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
15605
diff
changeset
|
2942 normal-auto-fill-function |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2943 nil)) |
11572
09d49f6e0af9
(auto-fill-mode): Use force-mode-line-update.
Karl Heuer <kwzh@gnu.org>
parents:
11479
diff
changeset
|
2944 (force-mode-line-update))) |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2945 |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2946 ;; This holds a document string used to document auto-fill-mode. |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2947 (defun auto-fill-function () |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2948 "Automatically break line at a previous space, in insertion of text." |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2949 nil) |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2950 |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2951 (defun turn-on-auto-fill () |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2952 "Unconditionally turn on Auto Fill mode." |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2953 (auto-fill-mode 1)) |
29808
fa2c8534a53a
(turn-off-auto-fill): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29345
diff
changeset
|
2954 |
fa2c8534a53a
(turn-off-auto-fill): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29345
diff
changeset
|
2955 (defun turn-off-auto-fill () |
fa2c8534a53a
(turn-off-auto-fill): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29345
diff
changeset
|
2956 "Unconditionally turn off Auto Fill mode." |
fa2c8534a53a
(turn-off-auto-fill): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29345
diff
changeset
|
2957 (auto-fill-mode -1)) |
fa2c8534a53a
(turn-off-auto-fill): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29345
diff
changeset
|
2958 |
24343
d00b069a7d17
(turn-on-auto-fill): Mark it as an option for `text-mode-hook'.
Richard M. Stallman <rms@gnu.org>
parents:
24301
diff
changeset
|
2959 (custom-add-option 'text-mode-hook 'turn-on-auto-fill) |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2960 |
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2961 (defun set-fill-column (arg) |
15431
68cca71d69bd
(set-fill-column): Error if no argument.
Richard M. Stallman <rms@gnu.org>
parents:
15305
diff
changeset
|
2962 "Set `fill-column' to specified argument. |
23447
7ccd43d053fd
(set-fill-column): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23251
diff
changeset
|
2963 Use \\[universal-argument] followed by a number to specify a column. |
15431
68cca71d69bd
(set-fill-column): Error if no argument.
Richard M. Stallman <rms@gnu.org>
parents:
15305
diff
changeset
|
2964 Just \\[universal-argument] as argument means to use the current column." |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2965 (interactive "P") |
17874
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2966 (if (consp arg) |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2967 (setq arg (current-column))) |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2968 (if (not (integerp arg)) |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2969 ;; Disallow missing argument; it's probably a typo for C-x C-f. |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2970 (error "set-fill-column requires an explicit argument") |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2971 (message "Fill column set to %d (was %d)" arg fill-column) |
86e95716af6d
(set-fill-column): Make the C-u case work.
Richard M. Stallman <rms@gnu.org>
parents:
17855
diff
changeset
|
2972 (setq fill-column arg))) |
6907
35e524a24c7f
(auto-fill-function): New function (doc placeholder).
Richard M. Stallman <rms@gnu.org>
parents:
6837
diff
changeset
|
2973 |
475 | 2974 (defun set-selective-display (arg) |
1027
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2975 "Set `selective-display' to ARG; clear it if no arg. |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2976 When the value of `selective-display' is a number > 0, |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2977 lines whose indentation is >= that value are not displayed. |
f0000f6f7942
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
954
diff
changeset
|
2978 The variable `selective-display' has a separate value for each buffer." |
475 | 2979 (interactive "P") |
2980 (if (eq selective-display t) | |
2981 (error "selective-display already in use for marked lines")) | |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2982 (let ((current-vpos |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2983 (save-restriction |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2984 (narrow-to-region (point-min) (point)) |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2985 (goto-char (window-start)) |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2986 (vertical-motion (window-height))))) |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2987 (setq selective-display |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2988 (and arg (prefix-numeric-value arg))) |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
2989 (recenter current-vpos)) |
475 | 2990 (set-window-start (selected-window) (window-start (selected-window))) |
2991 (princ "selective-display set to " t) | |
2992 (prin1 selective-display t) | |
2993 (princ "." t)) | |
2994 | |
17471
f383bfae3202
(overwrite-mode-binary, overwrite-mode-textual): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
17355
diff
changeset
|
2995 (defvar overwrite-mode-textual " Ovwrt" |
2215
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
2996 "The string displayed in the mode line when in overwrite mode.") |
17471
f383bfae3202
(overwrite-mode-binary, overwrite-mode-textual): Use defvar.
Richard M. Stallman <rms@gnu.org>
parents:
17355
diff
changeset
|
2997 (defvar overwrite-mode-binary " Bin Ovwrt" |
2215
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
2998 "The string displayed in the mode line when in binary overwrite mode.") |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
2999 |
475 | 3000 (defun overwrite-mode (arg) |
3001 "Toggle overwrite mode. | |
3002 With arg, turn overwrite mode on iff arg is positive. | |
3003 In overwrite mode, printing characters typed in replace existing text | |
2215
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3004 on a one-for-one basis, rather than pushing it to the right. At the |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3005 end of a line, such characters extend the line. Before a tab, |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3006 such characters insert until the tab is filled in. |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3007 \\[quoted-insert] still inserts characters in overwrite mode; this |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3008 is supposed to make it easier to insert characters when necessary." |
475 | 3009 (interactive "P") |
3010 (setq overwrite-mode | |
2215
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3011 (if (if (null arg) (not overwrite-mode) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3012 (> (prefix-numeric-value arg) 0)) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3013 'overwrite-mode-textual)) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3014 (force-mode-line-update)) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3015 |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3016 (defun binary-overwrite-mode (arg) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3017 "Toggle binary overwrite mode. |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3018 With arg, turn binary overwrite mode on iff arg is positive. |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3019 In binary overwrite mode, printing characters typed in replace |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3020 existing text. Newlines are not treated specially, so typing at the |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3021 end of a line joins the line to the next, with the typed character |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3022 between them. Typing before a tab character simply replaces the tab |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3023 with the character typed. |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3024 \\[quoted-insert] replaces the text at the cursor, just as ordinary |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3025 typing characters do. |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3026 |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3027 Note that binary overwrite mode is not its own minor mode; it is a |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3028 specialization of overwrite-mode, entered by setting the |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3029 `overwrite-mode' variable to `overwrite-mode-binary'." |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3030 (interactive "P") |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3031 (setq overwrite-mode |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3032 (if (if (null arg) |
2301
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3033 (not (eq overwrite-mode 'overwrite-mode-binary)) |
2215
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3034 (> (prefix-numeric-value arg) 0)) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3035 'overwrite-mode-binary)) |
a7d915ce7676
src/ * simple.el (quoted-insert): In overwrite mode, don't read digits
Jim Blandy <jimb@redhat.com>
parents:
2111
diff
changeset
|
3036 (force-mode-line-update)) |
475 | 3037 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3038 (defcustom line-number-mode t |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3039 "*Non-nil means display line number in mode line." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3040 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3041 :group 'editing-basics) |
2301
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3042 |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3043 (defun line-number-mode (arg) |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3044 "Toggle Line Number mode. |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3045 With arg, turn Line Number mode on iff arg is positive. |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3046 When Line Number mode is enabled, the line number appears |
23660 | 3047 in the mode line. |
3048 | |
3049 Line numbers do not appear for very large buffers, see variable | |
3050 `line-number-display-limit'." | |
2301
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3051 (interactive "P") |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3052 (setq line-number-mode |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3053 (if (null arg) (not line-number-mode) |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3054 (> (prefix-numeric-value arg) 0))) |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3055 (force-mode-line-update)) |
1380ea427dee
(line-number-mode): New function and variable.
Richard M. Stallman <rms@gnu.org>
parents:
2299
diff
changeset
|
3056 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3057 (defcustom column-number-mode nil |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3058 "*Non-nil means display column number in mode line." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3059 :type 'boolean |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3060 :group 'editing-basics) |
12565
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3061 |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3062 (defun column-number-mode (arg) |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3063 "Toggle Column Number mode. |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3064 With arg, turn Column Number mode on iff arg is positive. |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3065 When Column Number mode is enabled, the column number appears |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3066 in the mode line." |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3067 (interactive "P") |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3068 (setq column-number-mode |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3069 (if (null arg) (not column-number-mode) |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3070 (> (prefix-numeric-value arg) 0))) |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3071 (force-mode-line-update)) |
c0a5d0d00c18
(shell-command): Use save-match-data.
Karl Heuer <kwzh@gnu.org>
parents:
12483
diff
changeset
|
3072 |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3073 (defgroup paren-blinking nil |
18379
1dd6f63f0ea3
(paren-blinking group): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18334
diff
changeset
|
3074 "Blinking matching of parens and expressions." |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3075 :prefix "blink-matching-" |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3076 :group 'paren-matching) |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3077 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3078 (defcustom blink-matching-paren t |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3079 "*Non-nil means show matching open-paren when close-paren is inserted." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3080 :type 'boolean |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3081 :group 'paren-blinking) |
475 | 3082 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3083 (defcustom blink-matching-paren-on-screen t |
13810
64679d67fde9
(blink-matching-paren-on-screen): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
13587
diff
changeset
|
3084 "*Non-nil means show matching open-paren when it is on screen. |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3085 If nil, means don't show it (but the open-paren can still be shown |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3086 when it is off screen)." |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3087 :type 'boolean |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3088 :group 'paren-blinking) |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3089 |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3090 (defcustom blink-matching-paren-distance (* 25 1024) |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3091 "*If non-nil, is maximum distance to search for matching open-paren." |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3092 :type 'integer |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3093 :group 'paren-blinking) |
475 | 3094 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3095 (defcustom blink-matching-delay 1 |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3096 "*Time in seconds to delay after showing a matching paren." |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3097 :type 'number |
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3098 :group 'paren-blinking) |
9771
3a51735d4a55
(blink-matching-delay): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9750
diff
changeset
|
3099 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3100 (defcustom blink-matching-paren-dont-ignore-comments nil |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3101 "*Non-nil means `blink-matching-paren' will not ignore comments." |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3102 :type 'boolean |
18334
d03c1b315e76
Create paren-blinking custom group and put all blink-matching-paren variables in it.
Simon Marshall <simon@gnu.org>
parents:
18189
diff
changeset
|
3103 :group 'paren-blinking) |
12893
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3104 |
475 | 3105 (defun blink-matching-open () |
3106 "Move cursor momentarily to the beginning of the sexp before point." | |
3107 (interactive) | |
3108 (and (> (point) (1+ (point-min))) | |
3109 blink-matching-paren | |
9749
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3110 ;; Verify an even number of quoting characters precede the close. |
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3111 (= 1 (logand 1 (- (point) |
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3112 (save-excursion |
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3113 (forward-char -1) |
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3114 (skip-syntax-backward "/\\") |
b2157de450ca
(blink-matching-open): Do blink if an even number of
Richard M. Stallman <rms@gnu.org>
parents:
9629
diff
changeset
|
3115 (point))))) |
475 | 3116 (let* ((oldpos (point)) |
3117 (blinkpos) | |
3118 (mismatch)) | |
3119 (save-excursion | |
3120 (save-restriction | |
3121 (if blink-matching-paren-distance | |
3122 (narrow-to-region (max (point-min) | |
3123 (- (point) blink-matching-paren-distance)) | |
3124 oldpos)) | |
3125 (condition-case () | |
12893
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3126 (let ((parse-sexp-ignore-comments |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3127 (and parse-sexp-ignore-comments |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3128 (not blink-matching-paren-dont-ignore-comments)))) |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3129 (setq blinkpos (scan-sexps oldpos -1))) |
475 | 3130 (error nil))) |
12893
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3131 (and blinkpos |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3132 (/= (char-syntax (char-after blinkpos)) |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3133 ?\$) |
475 | 3134 (setq mismatch |
12893
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3135 (or (null (matching-paren (char-after blinkpos))) |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3136 (/= (char-after (1- oldpos)) |
3ae9326907aa
(blink-matching-paren-dont-ignore-comments): New var.
Richard M. Stallman <rms@gnu.org>
parents:
12838
diff
changeset
|
3137 (matching-paren (char-after blinkpos)))))) |
475 | 3138 (if mismatch (setq blinkpos nil)) |
3139 (if blinkpos | |
23251
f19f44b54f00
(blink-matching-open): Don't log paren matching
Karl Heuer <kwzh@gnu.org>
parents:
22877
diff
changeset
|
3140 ;; Don't log messages about paren matching. |
f19f44b54f00
(blink-matching-open): Don't log paren matching
Karl Heuer <kwzh@gnu.org>
parents:
22877
diff
changeset
|
3141 (let (message-log-max) |
475 | 3142 (goto-char blinkpos) |
3143 (if (pos-visible-in-window-p) | |
13810
64679d67fde9
(blink-matching-paren-on-screen): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
13587
diff
changeset
|
3144 (and blink-matching-paren-on-screen |
64679d67fde9
(blink-matching-paren-on-screen): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
13587
diff
changeset
|
3145 (sit-for blink-matching-delay)) |
475 | 3146 (goto-char blinkpos) |
3147 (message | |
3148 "Matches %s" | |
6539
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3149 ;; Show what precedes the open in its line, if anything. |
475 | 3150 (if (save-excursion |
3151 (skip-chars-backward " \t") | |
3152 (not (bolp))) | |
3153 (buffer-substring (progn (beginning-of-line) (point)) | |
3154 (1+ blinkpos)) | |
6539
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3155 ;; Show what follows the open in its line, if anything. |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3156 (if (save-excursion |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3157 (forward-char 1) |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3158 (skip-chars-forward " \t") |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3159 (not (eolp))) |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3160 (buffer-substring blinkpos |
b705afc2b2ec
(blink-matching-open): Now three strategies for choosing
Richard M. Stallman <rms@gnu.org>
parents:
6386
diff
changeset
|
3161 (progn (end-of-line) (point))) |
9434
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3162 ;; Otherwise show the previous nonblank line, |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3163 ;; if there is one. |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3164 (if (save-excursion |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3165 (skip-chars-backward "\n \t") |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3166 (not (bobp))) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3167 (concat |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3168 (buffer-substring (progn |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3169 (skip-chars-backward "\n \t") |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3170 (beginning-of-line) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3171 (point)) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3172 (progn (end-of-line) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3173 (skip-chars-backward " \t") |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3174 (point))) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3175 ;; Replace the newline and other whitespace with `...'. |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3176 "..." |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3177 (buffer-substring blinkpos (1+ blinkpos))) |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3178 ;; There is nothing to show except the char itself. |
d79ecfc2776c
(blink-matching-open): Check there is a previous
Richard M. Stallman <rms@gnu.org>
parents:
9343
diff
changeset
|
3179 (buffer-substring blinkpos (1+ blinkpos)))))))) |
475 | 3180 (cond (mismatch |
3181 (message "Mismatched parentheses")) | |
3182 ((not blink-matching-paren-distance) | |
3183 (message "Unmatched parenthesis")))))))) | |
3184 | |
3185 ;Turned off because it makes dbx bomb out. | |
3186 (setq blink-paren-function 'blink-matching-open) | |
3187 | |
2805
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
3188 ;; This executes C-g typed while Emacs is waiting for a command. |
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
3189 ;; Quitting out of a program does not go through here; |
5efa58250e35
(push-mark): Don't activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2796
diff
changeset
|
3190 ;; that happens in the QUIT macro at the C code level. |
475 | 3191 (defun keyboard-quit () |
22304 | 3192 "Signal a `quit' condition. |
2075
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
3193 During execution of Lisp code, this character causes a quit directly. |
ec62da254d4d
(set-mark): Activate the mark.
Richard M. Stallman <rms@gnu.org>
parents:
2023
diff
changeset
|
3194 At top-level, as an editor command, this simply beeps." |
475 | 3195 (interactive) |
4042
4b4ab64225f7
(deactivate-mark): New function.
Roland McGrath <roland@gnu.org>
parents:
4040
diff
changeset
|
3196 (deactivate-mark) |
475 | 3197 (signal 'quit nil)) |
3198 | |
3199 (define-key global-map "\C-g" 'keyboard-quit) | |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3200 |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3201 (defvar buffer-quit-function nil |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3202 "Function to call to \"quit\" the current buffer, or nil if none. |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3203 \\[keyboard-escape-quit] calls this function when its more local actions |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3204 \(such as cancelling a prefix argument, minibuffer or region) do not apply.") |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3205 |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3206 (defun keyboard-escape-quit () |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3207 "Exit the current \"mode\" (in a generalized sense of the word). |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3208 This command can exit an interactive command such as `query-replace', |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3209 can clear out a prefix argument or a region, |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3210 can get out of the minibuffer or other recursive edit, |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3211 cancel the use of the current buffer (for special-purpose buffers), |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3212 or go back to just one window (by deleting all but the selected window)." |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3213 (interactive) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3214 (cond ((eq last-command 'mode-exited) nil) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3215 ((> (minibuffer-depth) 0) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3216 (abort-recursive-edit)) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3217 (current-prefix-arg |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3218 nil) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3219 ((and transient-mark-mode |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3220 mark-active) |
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3221 (deactivate-mark)) |
17355
dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
Richard M. Stallman <rms@gnu.org>
parents:
17276
diff
changeset
|
3222 ((> (recursion-depth) 0) |
dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
Richard M. Stallman <rms@gnu.org>
parents:
17276
diff
changeset
|
3223 (exit-recursive-edit)) |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3224 (buffer-quit-function |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3225 (funcall buffer-quit-function)) |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3226 ((not (one-window-p t)) |
17355
dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
Richard M. Stallman <rms@gnu.org>
parents:
17276
diff
changeset
|
3227 (delete-other-windows)) |
dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
Richard M. Stallman <rms@gnu.org>
parents:
17276
diff
changeset
|
3228 ((string-match "^ \\*" (buffer-name (current-buffer))) |
dc683d40dde5
(keyboard-escape-quit): Exit recursive edits,
Richard M. Stallman <rms@gnu.org>
parents:
17276
diff
changeset
|
3229 (bury-buffer)))) |
10085
f7b9813ea757
(keyboard-escape-quit): New command.
Richard M. Stallman <rms@gnu.org>
parents:
10048
diff
changeset
|
3230 |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3231 (define-key global-map "\e\e\e" 'keyboard-escape-quit) |
26201
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3232 |
26504
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3233 (defcustom input-mode-8-bit t |
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3234 "Control acceptance of 8-bit keyboard input. |
26201
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3235 This may be useful for inputting non-ASCII characters if your keyboard |
26504
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3236 can generate them. It is not necessary to change this under a window |
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3237 system which can distinguish 8-bit characters and Meta keys. |
26201
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3238 Setting this variable directly does not take effect; |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3239 use either M-x customize or the function `set-input-mode'." |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3240 :set (lambda (symbol value) |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3241 (let ((mode (current-input-mode))) |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3242 (set-input-mode (nth 0 mode) (nth 1 mode) value))) |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3243 :initialize 'custom-initialize-default |
26504
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3244 :type '(choice (const :tag "8-bit input for a Meta key" t) |
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3245 (const :tag "Direct 8-bit character input" 0) |
0044d20f41ae
(input-mode-8-bit): Fix the customization.
Dave Love <fx@gnu.org>
parents:
26476
diff
changeset
|
3246 (const :tag "Assume top bit is parity and ignore" nil)) |
26201
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3247 :version "21.1" |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3248 :link '(custom-manual "Single-Byte European Support") |
097072728e80
(input-mode-8-bit): New defcustom.
Dave Love <fx@gnu.org>
parents:
26063
diff
changeset
|
3249 :group 'keyboard) |
475 | 3250 |
27234
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3251 (defcustom read-mail-command 'rmail |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3252 "*Your preference for a mail reading package. |
31573 | 3253 This is used by some keybindings which support reading mail. |
3254 See also `mail-user-agent' concerning sending mail." | |
27234
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3255 :type '(choice (function-item rmail) |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3256 (function-item gnus) |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3257 (function-item mh-rmail) |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3258 (function :tag "Other")) |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3259 :version "21.1" |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3260 :group 'mail) |
bf32d38f9721
(with-syntax-table): Fix backquoting.
Dave Love <fx@gnu.org>
parents:
27096
diff
changeset
|
3261 |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3262 (defcustom mail-user-agent 'sendmail-user-agent |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3263 "*Your preference for a mail composition package. |
31573 | 3264 Various Emacs Lisp packages (e.g. Reporter) require you to compose an |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3265 outgoing email message. This variable lets you specify which |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3266 mail-sending package you prefer. |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3267 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3268 Valid values include: |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3269 |
31573 | 3270 `sendmail-user-agent' -- use the default Emacs Mail package. |
3271 See Info node `(emacs)Sending Mail'. | |
3272 `mh-e-user-agent' -- use the Emacs interface to the MH mail system. | |
3273 See Info node `(mh-e)'. | |
3274 `message-user-agent' -- use the Gnus Message package. | |
3275 See Info node `(message)'. | |
3276 `gnus-user-agent' -- like `message-user-agent', but with Gnus | |
3277 paraphernalia, particularly the Gcc: header for | |
3278 archiving. | |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3279 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3280 Additional valid symbols may be available; check with the author of |
31573 | 3281 your package for details. |
3282 | |
3283 See also `read-mail-command' concerning reading mail." | |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3284 :type '(radio (function-item :tag "Default Emacs mail" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3285 :format "%t\n" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3286 sendmail-user-agent) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3287 (function-item :tag "Emacs interface to MH" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3288 :format "%t\n" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3289 mh-e-user-agent) |
31573 | 3290 (function-item :tag "Gnus Message package" |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3291 :format "%t\n" |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3292 message-user-agent) |
31573 | 3293 (function-item :tag "Gnus Message with full Gnus features" |
3294 :format "%t\n" | |
3295 gnus-user-agent) | |
17663
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3296 (function :tag "Other")) |
d2c64a1563f7
Use defgroup and defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
17662
diff
changeset
|
3297 :group 'mail) |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3298 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3299 (defun define-mail-user-agent (symbol composefunc sendfunc |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3300 &optional abortfunc hookvar) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3301 "Define a symbol to identify a mail-sending package for `mail-user-agent'. |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3302 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3303 SYMBOL can be any Lisp symbol. Its function definition and/or |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3304 value as a variable do not matter for this usage; we use only certain |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3305 properties on its property list, to encode the rest of the arguments. |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3306 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3307 COMPOSEFUNC is program callable function that composes an outgoing |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3308 mail message buffer. This function should set up the basics of the |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3309 buffer without requiring user interaction. It should populate the |
16624
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3310 standard mail headers, leaving the `to:' and `subject:' headers blank |
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3311 by default. |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3312 |
16632
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3313 COMPOSEFUNC should accept several optional arguments--the same |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3314 arguments that `compose-mail' takes. See that function's documentation. |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3315 |
16624
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3316 SENDFUNC is the command a user would run to send the message. |
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3317 |
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3318 Optional ABORTFUNC is the command a user would run to abort the |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3319 message. For mail packages that don't have a separate abort function, |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3320 this can be `kill-buffer' (the equivalent of omitting this argument). |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3321 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3322 Optional HOOKVAR is a hook variable that gets run before the message |
16624
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3323 is actually sent. Callers that use the `mail-user-agent' may |
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3324 install a hook function temporarily on this hook variable. |
cd1a0e1e6975
(sendmail-user-agent): Support 2 optional args.
Richard M. Stallman <rms@gnu.org>
parents:
16508
diff
changeset
|
3325 If HOOKVAR is nil, `mail-send-hook' is used. |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3326 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3327 The properties used on SYMBOL are `composefunc', `sendfunc', |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3328 `abortfunc', and `hookvar'." |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3329 (put symbol 'composefunc composefunc) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3330 (put symbol 'sendfunc sendfunc) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3331 (put symbol 'abortfunc (or abortfunc 'kill-buffer)) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3332 (put symbol 'hookvar (or hookvar 'mail-send-hook))) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3333 |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3334 (define-mail-user-agent 'sendmail-user-agent |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3335 'sendmail-user-agent-compose |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3336 'mail-send-and-exit) |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3337 |
21906
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3338 (defun rfc822-goto-eoh () |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3339 ;; Go to header delimiter line in a mail message, following RFC822 rules |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3340 (goto-char (point-min)) |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3341 (while (looking-at "^[^: \n]+:\\|^[ \t]") |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3342 (forward-line 1)) |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3343 (point)) |
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3344 |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3345 (defun sendmail-user-agent-compose (&optional to subject other-headers continue |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3346 switch-function yank-action |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3347 send-actions) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3348 (if switch-function |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3349 (let ((special-display-buffer-names nil) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3350 (special-display-regexps nil) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3351 (same-window-buffer-names nil) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3352 (same-window-regexps nil)) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3353 (funcall switch-function "*mail*"))) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3354 (let ((cc (cdr (assoc-ignore-case "cc" other-headers))) |
28491
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3355 (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers))) |
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3356 (body (cdr (assoc-ignore-case "body" other-headers)))) |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3357 (or (mail continue to subject in-reply-to cc yank-action send-actions) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3358 continue |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3359 (error "Message aborted")) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3360 (save-excursion |
21906
2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
Richard M. Stallman <rms@gnu.org>
parents:
21847
diff
changeset
|
3361 (rfc822-goto-eoh) |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3362 (while other-headers |
28491
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3363 (unless (member-ignore-case (car (car other-headers)) |
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3364 '("in-reply-to" "cc" "body")) |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3365 (insert (car (car other-headers)) ": " |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3366 (cdr (car other-headers)) "\n")) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3367 (setq other-headers (cdr other-headers))) |
28491
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3368 (when body |
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3369 (forward-line 1) |
3e21859cd0e7
(sendmail-user-agent-compose): Recognize a `body'
Gerd Moellmann <gerd@gnu.org>
parents:
28193
diff
changeset
|
3370 (insert body)) |
18629
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3371 t))) |
fbb38f6bf8dc
(sendmail-user-agent-compose): New function;
Richard M. Stallman <rms@gnu.org>
parents:
18618
diff
changeset
|
3372 |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3373 (define-mail-user-agent 'mh-e-user-agent |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3374 'mh-smail-batch 'mh-send-letter 'mh-fully-kill-draft |
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3375 'mh-before-send-letter-hook) |
16632
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3376 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3377 (defun compose-mail (&optional to subject other-headers continue |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3378 switch-function yank-action send-actions) |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3379 "Start composing a mail message to send. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3380 This uses the user's chosen mail composition package |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3381 as selected with the variable `mail-user-agent'. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3382 The optional arguments TO and SUBJECT specify recipients |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3383 and the initial Subject field, respectively. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3384 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3385 OTHER-HEADERS is an alist specifying additional |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3386 header fields. Elements look like (HEADER . VALUE) where both |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3387 HEADER and VALUE are strings. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3388 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3389 CONTINUE, if non-nil, says to continue editing a message already |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3390 being composed. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3391 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3392 SWITCH-FUNCTION, if non-nil, is a function to use to |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3393 switch to and display the buffer used for mail composition. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3394 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3395 YANK-ACTION, if non-nil, is an action to perform, if and when necessary, |
16717
18d451689307
(compose-mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16685
diff
changeset
|
3396 to insert the raw text of the message being replied to. |
18d451689307
(compose-mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16685
diff
changeset
|
3397 It has the form (FUNCTION . ARGS). The user agent will apply |
18d451689307
(compose-mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16685
diff
changeset
|
3398 FUNCTION to ARGS, to insert the raw text of the original message. |
18d451689307
(compose-mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16685
diff
changeset
|
3399 \(The user agent will also run `mail-citation-hook', *after* the |
18d451689307
(compose-mail): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16685
diff
changeset
|
3400 original text has been inserted in this way.) |
16632
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3401 |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3402 SEND-ACTIONS is a list of actions to call when the message is sent. |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3403 Each action has the form (FUNCTION . ARGS)." |
17594
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3404 (interactive |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3405 (list nil nil nil current-prefix-arg)) |
16632
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3406 (let ((function (get mail-user-agent 'composefunc))) |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3407 (funcall function to subject other-headers continue |
5dd86f31843a
(compose-mail): Handle several more args:
Richard M. Stallman <rms@gnu.org>
parents:
16624
diff
changeset
|
3408 switch-function yank-action send-actions))) |
17594
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3409 |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3410 (defun compose-mail-other-window (&optional to subject other-headers continue |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3411 yank-action send-actions) |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3412 "Like \\[compose-mail], but edit the outgoing message in another window." |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3413 (interactive |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3414 (list nil nil nil current-prefix-arg)) |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3415 (compose-mail to subject other-headers continue |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3416 'switch-to-buffer-other-window yank-action send-actions)) |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3417 |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3418 |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3419 (defun compose-mail-other-frame (&optional to subject other-headers continue |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3420 yank-action send-actions) |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3421 "Like \\[compose-mail], but edit the outgoing message in another frame." |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3422 (interactive |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3423 (list nil nil nil current-prefix-arg)) |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3424 (compose-mail to subject other-headers continue |
1a6a798242d6
(compose-mail): Make prefix arg mean "continue".
Richard M. Stallman <rms@gnu.org>
parents:
17589
diff
changeset
|
3425 'switch-to-buffer-other-frame yank-action send-actions)) |
15988
6a1a664be9f6
(do-auto-fill): Do break after one word as last resort
Richard M. Stallman <rms@gnu.org>
parents:
15892
diff
changeset
|
3426 |
17606
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3427 (defvar set-variable-value-history nil |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3428 "History of values entered with `set-variable'.") |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3429 |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3430 (defun set-variable (var val) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3431 "Set VARIABLE to VALUE. VALUE is a Lisp object. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3432 When using this interactively, enter a Lisp object for VALUE. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3433 If you want VALUE to be a string, you must surround it with doublequotes. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3434 VALUE is used literally, not evaluated. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3435 |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3436 If VARIABLE has a `variable-interactive' property, that is used as if |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3437 it were the arg to `interactive' (which see) to interactively read VALUE. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3438 |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3439 If VARIABLE has been defined with `defcustom', then the type information |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3440 in the definition is used to check that VALUE is valid." |
22157
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3441 (interactive |
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3442 (let* ((default-var (variable-at-point)) |
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3443 (var (if (symbolp default-var) |
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3444 (read-variable (format "Set variable (default %s): " default-var) |
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3445 default-var) |
7c92848a9d80
(set-variable): Offer variable at point as default.
Richard M. Stallman <rms@gnu.org>
parents:
22144
diff
changeset
|
3446 (read-variable "Set variable: "))) |
17606
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3447 (minibuffer-help-form '(describe-variable var)) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3448 (prop (get var 'variable-interactive)) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3449 (prompt (format "Set %s to value: " var)) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3450 (val (if prop |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3451 ;; Use VAR's `variable-interactive' property |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3452 ;; as an interactive spec for prompting. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3453 (call-interactively `(lambda (arg) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3454 (interactive ,prop) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3455 arg)) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3456 (read |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3457 (read-string prompt nil |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3458 'set-variable-value-history))))) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3459 (list var val))) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3460 |
17613
7dadfa677617
(set-variable): Simplify previous change.
Richard M. Stallman <rms@gnu.org>
parents:
17606
diff
changeset
|
3461 (let ((type (get var 'custom-type))) |
17606
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3462 (when type |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3463 ;; Match with custom type. |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3464 (require 'wid-edit) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3465 (setq type (widget-convert type)) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3466 (unless (widget-apply type :match val) |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
3467 (error "Value `%S' does not match type %S of %S" |
17606
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3468 val (car type) var)))) |
d8cd49a0529c
(set-variable): Check VALUE against type info if available.
Richard M. Stallman <rms@gnu.org>
parents:
17594
diff
changeset
|
3469 (set var val)) |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3470 |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3471 ;; Define the major mode for lists of completions. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
3472 |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3473 (defvar completion-list-mode-map nil |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3474 "Local map for completion list buffers.") |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3475 (or completion-list-mode-map |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3476 (let ((map (make-sparse-keymap))) |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3477 (define-key map [mouse-2] 'mouse-choose-completion) |
7762
763a8b8e7363
(completion-list-mode-map): Unbind down-mouse-2.
Richard M. Stallman <rms@gnu.org>
parents:
7726
diff
changeset
|
3478 (define-key map [down-mouse-2] nil) |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3479 (define-key map "\C-m" 'choose-completion) |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3480 (define-key map "\e\e\e" 'delete-completion-window) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3481 (define-key map [left] 'previous-completion) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3482 (define-key map [right] 'next-completion) |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3483 (setq completion-list-mode-map map))) |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3484 |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3485 ;; Completion mode is suitable only for specially formatted data. |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3486 (put 'completion-list-mode 'mode-class 'special) |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3487 |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3488 (defvar completion-reference-buffer nil |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3489 "Record the buffer that was current when the completion list was requested. |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3490 This is a local variable in the completion list buffer. |
11318
45947c4ff70b
Fix typo in prev change.
Richard M. Stallman <rms@gnu.org>
parents:
11313
diff
changeset
|
3491 Initial value is nil to avoid some compiler warnings.") |
6160
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3492 |
16924
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3493 (defvar completion-no-auto-exit nil |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3494 "Non-nil means `choose-completion-string' should never exit the minibuffer. |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3495 This also applies to other functions such as `choose-completion' |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3496 and `mouse-choose-completion'.") |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3497 |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3498 (defvar completion-base-size nil |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3499 "Number of chars at beginning of minibuffer not involved in completion. |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3500 This is a local variable in the completion list buffer |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3501 but it talks about the buffer in `completion-reference-buffer'. |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3502 If this is nil, it means to compare text to determine which part |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3503 of the tail end of the buffer's text is involved in completion.") |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3504 |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3505 (defun delete-completion-window () |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3506 "Delete the completion list window. |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3507 Go to the window from which completion was requested." |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3508 (interactive) |
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3509 (let ((buf completion-reference-buffer)) |
16851
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3510 (if (one-window-p t) |
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3511 (if (window-dedicated-p (selected-window)) |
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3512 (delete-frame (selected-frame))) |
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3513 (delete-window (selected-window)) |
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3514 (if (get-buffer-window buf) |
a689a6716261
(delete-completion-window): Handle special display frames.
Richard M. Stallman <rms@gnu.org>
parents:
16803
diff
changeset
|
3515 (select-window (get-buffer-window buf)))))) |
10165
10a032873be6
(buffer-quit-function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
10085
diff
changeset
|
3516 |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3517 (defun previous-completion (n) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3518 "Move to the previous item in the completion list." |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3519 (interactive "p") |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3520 (next-completion (- n))) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3521 |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3522 (defun next-completion (n) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3523 "Move to the next item in the completion list. |
13960
5f1ba0200a33
(shell-command): Fix message spelling.
Karl Heuer <kwzh@gnu.org>
parents:
13810
diff
changeset
|
3524 With prefix argument N, move N items (negative N means move backward)." |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3525 (interactive "p") |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3526 (while (and (> n 0) (not (eobp))) |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3527 (let ((prop (get-text-property (point) 'mouse-face)) |
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3528 (end (point-max))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3529 ;; If in a completion, move to the end of it. |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3530 (if prop |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3531 (goto-char (next-single-property-change (point) 'mouse-face nil end))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3532 ;; Move to start of next one. |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3533 (goto-char (next-single-property-change (point) 'mouse-face nil end))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3534 (setq n (1- n))) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3535 (while (and (< n 0) (not (bobp))) |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3536 (let ((prop (get-text-property (1- (point)) 'mouse-face)) |
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3537 (end (point-min))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3538 ;; If in a completion, move to the start of it. |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3539 (if prop |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3540 (goto-char (previous-single-property-change |
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3541 (point) 'mouse-face nil end))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3542 ;; Move to end of the previous completion. |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3543 (goto-char (previous-single-property-change (point) 'mouse-face nil end)) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3544 ;; Move to the start of that one. |
13171
ed9465203ed6
(next-completion): Specify the LIMIT arg when searching for text properties.
Richard M. Stallman <rms@gnu.org>
parents:
13137
diff
changeset
|
3545 (goto-char (previous-single-property-change (point) 'mouse-face nil end))) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3546 (setq n (1+ n)))) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3547 |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3548 (defun choose-completion () |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3549 "Choose the completion that point is in or next to." |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3550 (interactive) |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3551 (let (beg end completion (buffer completion-reference-buffer) |
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3552 (base-size completion-base-size)) |
8203
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3553 (if (and (not (eobp)) (get-text-property (point) 'mouse-face)) |
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3554 (setq end (point) beg (1+ (point)))) |
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3555 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face)) |
10959
e43125b71452
(completion-setup-function): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents:
10949
diff
changeset
|
3556 (setq end (1- (point)) beg (point))) |
8203
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3557 (if (null beg) |
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3558 (error "No completion here")) |
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3559 (setq beg (previous-single-property-change beg 'mouse-face)) |
8380
40ab7df62402
(choose-completion): Check for next-single-property-change returning nil.
Richard M. Stallman <rms@gnu.org>
parents:
8309
diff
changeset
|
3560 (setq end (or (next-single-property-change end 'mouse-face) (point-max))) |
8468
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3561 (setq completion (buffer-substring beg end)) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3562 (let ((owindow (selected-window))) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3563 (if (and (one-window-p t 'selected-frame) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3564 (window-dedicated-p (selected-window))) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3565 ;; This is a special buffer's frame |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3566 (iconify-frame (selected-frame)) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3567 (or (window-dedicated-p (selected-window)) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3568 (bury-buffer))) |
52940ba43041
(choose-completion): Bury or iconify the completion list
Richard M. Stallman <rms@gnu.org>
parents:
8442
diff
changeset
|
3569 (select-window owindow)) |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3570 (choose-completion-string completion buffer base-size))) |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3571 |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3572 ;; Delete the longest partial match for STRING |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3573 ;; that can be found before POINT. |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3574 (defun choose-completion-delete-max-match (string) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3575 (let ((opoint (point)) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3576 (len (min (length string) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3577 (- (point) (point-min))))) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3578 (goto-char (- (point) (length string))) |
7574
040547adfab2
(completion-setup-function): Make highlight span single spaces.
Richard M. Stallman <rms@gnu.org>
parents:
7463
diff
changeset
|
3579 (if completion-ignore-case |
040547adfab2
(completion-setup-function): Make highlight span single spaces.
Richard M. Stallman <rms@gnu.org>
parents:
7463
diff
changeset
|
3580 (setq string (downcase string))) |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3581 (while (and (> len 0) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3582 (let ((tail (buffer-substring (point) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3583 (+ (point) len)))) |
7574
040547adfab2
(completion-setup-function): Make highlight span single spaces.
Richard M. Stallman <rms@gnu.org>
parents:
7463
diff
changeset
|
3584 (if completion-ignore-case |
040547adfab2
(completion-setup-function): Make highlight span single spaces.
Richard M. Stallman <rms@gnu.org>
parents:
7463
diff
changeset
|
3585 (setq tail (downcase tail))) |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3586 (not (string= tail (substring string 0 len))))) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3587 (setq len (1- len)) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3588 (forward-char 1)) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3589 (delete-char len))) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3590 |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3591 ;; Switch to BUFFER and insert the completion choice CHOICE. |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3592 ;; BASE-SIZE, if non-nil, says how many characters of BUFFER's text |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3593 ;; to keep. If it is nil, use choose-completion-delete-max-match instead. |
15484
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3594 |
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3595 ;; If BUFFER is the minibuffer, exit the minibuffer |
16924
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3596 ;; unless it is reading a file name and CHOICE is a directory, |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3597 ;; or completion-no-auto-exit is non-nil. |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3598 (defun choose-completion-string (choice &optional buffer base-size) |
27050
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3599 (let ((buffer (or buffer completion-reference-buffer)) |
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3600 (mini-p (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" (buffer-name buffer)))) |
7333
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3601 ;; If BUFFER is a minibuffer, barf unless it's the currently |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3602 ;; active minibuffer. |
27050
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3603 (if (and mini-p |
11159
edf66df6fbe9
(choose-completion-string): Use active-minibuffer-window.
Richard M. Stallman <rms@gnu.org>
parents:
11140
diff
changeset
|
3604 (or (not (active-minibuffer-window)) |
edf66df6fbe9
(choose-completion-string): Use active-minibuffer-window.
Richard M. Stallman <rms@gnu.org>
parents:
11140
diff
changeset
|
3605 (not (equal buffer |
edf66df6fbe9
(choose-completion-string): Use active-minibuffer-window.
Richard M. Stallman <rms@gnu.org>
parents:
11140
diff
changeset
|
3606 (window-buffer (active-minibuffer-window)))))) |
7333
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3607 (error "Minibuffer is not active for completion") |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3608 ;; Insert the completion into the buffer where completion was requested. |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3609 (set-buffer buffer) |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3610 (if base-size |
27050
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3611 (delete-region (+ base-size (if mini-p |
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3612 (minibuffer-prompt-end) |
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3613 (point-min))) |
5c0c5089979c
(choose-completion-string): In minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
26884
diff
changeset
|
3614 (point)) |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3615 (choose-completion-delete-max-match choice)) |
7333
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3616 (insert choice) |
7697
b52a92ea3796
(choose-completion-string): Clear mouse-face property.
Richard M. Stallman <rms@gnu.org>
parents:
7594
diff
changeset
|
3617 (remove-text-properties (- (point) (length choice)) (point) |
b52a92ea3796
(choose-completion-string): Clear mouse-face property.
Richard M. Stallman <rms@gnu.org>
parents:
7594
diff
changeset
|
3618 '(mouse-face nil)) |
7333
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3619 ;; Update point in the window that BUFFER is showing in. |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3620 (let ((window (get-buffer-window buffer t))) |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3621 (set-window-point window (point))) |
7a0395228878
(choose-completion-string): Barf if completing into
Richard M. Stallman <rms@gnu.org>
parents:
7076
diff
changeset
|
3622 ;; If completing for the minibuffer, exit it with this choice. |
16924
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3623 (and (not completion-no-auto-exit) |
231033e9a053
(completion-no-auto-exit): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
16851
diff
changeset
|
3624 (equal buffer (window-buffer (minibuffer-window))) |
8559
509daefd2d13
(choose-completion-string): Use plain exit-minibuffer,
Richard M. Stallman <rms@gnu.org>
parents:
8479
diff
changeset
|
3625 minibuffer-completion-table |
15484
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3626 ;; If this is reading a file name, and the file name chosen |
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3627 ;; is a directory, don't exit the minibuffer. |
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3628 (if (and (eq minibuffer-completion-table 'read-file-name-internal) |
26054 | 3629 (file-directory-p (field-string (point-max)))) |
15484
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3630 (select-window (active-minibuffer-window)) |
e3f8bfd1bb1f
(choose-completion-string): Don't exit the minibuffer
Richard M. Stallman <rms@gnu.org>
parents:
15431
diff
changeset
|
3631 (exit-minibuffer)))))) |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3632 |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3633 (defun completion-list-mode () |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3634 "Major mode for buffers showing lists of possible completions. |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3635 Type \\<completion-list-mode-map>\\[choose-completion] in the completion list\ |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3636 to select the completion near point. |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3637 Use \\<completion-list-mode-map>\\[mouse-choose-completion] to select one\ |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3638 with the mouse." |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3639 (interactive) |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3640 (kill-all-local-variables) |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3641 (use-local-map completion-list-mode-map) |
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3642 (setq mode-name "Completion List") |
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3643 (setq major-mode 'completion-list-mode) |
8479
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3644 (make-local-variable 'completion-base-size) |
582ac9a744c4
(completion-base-size): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
8468
diff
changeset
|
3645 (setq completion-base-size nil) |
4217
997e8a52f9fd
(completion-list-mode): Renamed from completion-mode.
Richard M. Stallman <rms@gnu.org>
parents:
4103
diff
changeset
|
3646 (run-hooks 'completion-list-mode-hook)) |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3647 |
20482
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3648 (defvar completion-setup-hook nil |
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3649 "Normal hook run at the end of setting up a completion list buffer. |
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3650 When this hook is run, the current buffer is the one in which the |
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3651 command to display the completion list buffer was run. |
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3652 The completion list buffer is available as the value of `standard-output'.") |
1fe822fa93e6
(completion-setup-hook): Add definition.
Richard M. Stallman <rms@gnu.org>
parents:
20465
diff
changeset
|
3653 |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3654 ;; This function goes in completion-setup-hook, so that it is called |
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3655 ;; after the text of the completion list buffer is written. |
8203
7f13bc5470d9
(completion-setup-function): Put on mouse-face prop
Richard M. Stallman <rms@gnu.org>
parents:
8080
diff
changeset
|
3656 |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3657 (defun completion-setup-function () |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3658 (save-excursion |
11313
5704f8216dbd
(completion-setup-function): Undo March 11 change.
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
3659 (let ((mainbuf (current-buffer))) |
6160
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3660 (set-buffer standard-output) |
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3661 (completion-list-mode) |
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3662 (make-local-variable 'completion-reference-buffer) |
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3663 (setq completion-reference-buffer mainbuf) |
18034
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3664 (if (eq minibuffer-completion-table 'read-file-name-internal) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3665 ;; For file name completion, |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3666 ;; use the number of chars before the start of the |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3667 ;; last file name component. |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3668 (setq completion-base-size |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3669 (save-excursion |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3670 (set-buffer mainbuf) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3671 (goto-char (point-max)) |
0d96c759902b
(line-move): If moving into intangible text,
Richard M. Stallman <rms@gnu.org>
parents:
17874
diff
changeset
|
3672 (skip-chars-backward (format "^%c" directory-sep-char)) |
27096
e200e2db8e99
(completion-setup-function): Count completion-size
Eli Zaretskii <eliz@gnu.org>
parents:
27050
diff
changeset
|
3673 (- (point) (minibuffer-prompt-end)))) |
19227
84c681e58fd5
(completion-setup-function): Don't set completion-base-size
Richard M. Stallman <rms@gnu.org>
parents:
19160
diff
changeset
|
3674 ;; Otherwise, in minibuffer, the whole input is being completed. |
84c681e58fd5
(completion-setup-function): Don't set completion-base-size
Richard M. Stallman <rms@gnu.org>
parents:
19160
diff
changeset
|
3675 (save-match-data |
84c681e58fd5
(completion-setup-function): Don't set completion-base-size
Richard M. Stallman <rms@gnu.org>
parents:
19160
diff
changeset
|
3676 (if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" |
84c681e58fd5
(completion-setup-function): Don't set completion-base-size
Richard M. Stallman <rms@gnu.org>
parents:
19160
diff
changeset
|
3677 (buffer-name mainbuf)) |
84c681e58fd5
(completion-setup-function): Don't set completion-base-size
Richard M. Stallman <rms@gnu.org>
parents:
19160
diff
changeset
|
3678 (setq completion-base-size 0)))) |
6160
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3679 (goto-char (point-min)) |
28113
bfff8ed76f1c
(completion-setup-function): Use display-color-p.
Dave Love <fx@gnu.org>
parents:
27836
diff
changeset
|
3680 (if (display-mouse-p) |
6160
5a40bc311e2f
(completion-list-mode): Set completion-reference-buffer
Richard M. Stallman <rms@gnu.org>
parents:
5944
diff
changeset
|
3681 (insert (substitute-command-keys |
6549
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3682 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3683 (insert (substitute-command-keys |
d66e48956d3e
(choose-completion-delete-max-match): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
6539
diff
changeset
|
3684 "In this buffer, type \\[choose-completion] to \ |
23450
085606778286
(completion-fixup-function): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
23447
diff
changeset
|
3685 select the completion near point.\n\n"))))) |
4082
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3686 |
1d4aa358d9a0
(completion-mode): New major mode.
Richard M. Stallman <rms@gnu.org>
parents:
4044
diff
changeset
|
3687 (add-hook 'completion-setup-hook 'completion-setup-function) |
10284
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3688 |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3689 (define-key minibuffer-local-completion-map [prior] |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3690 'switch-to-completions) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3691 (define-key minibuffer-local-must-match-map [prior] |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3692 'switch-to-completions) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3693 (define-key minibuffer-local-completion-map "\M-v" |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3694 'switch-to-completions) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3695 (define-key minibuffer-local-must-match-map "\M-v" |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3696 'switch-to-completions) |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3697 |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3698 (defun switch-to-completions () |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3699 "Select the completion list window." |
832491972c95
(switch-to-completions): New command, with bindings in minibuf completion maps.
Richard M. Stallman <rms@gnu.org>
parents:
10252
diff
changeset
|
3700 (interactive) |
12483
ec77cb3940f1
(switch-to-completions): Make a completions window if none.
Richard M. Stallman <rms@gnu.org>
parents:
12428
diff
changeset
|
3701 ;; Make sure we have a completions window. |
ec77cb3940f1
(switch-to-completions): Make a completions window if none.
Richard M. Stallman <rms@gnu.org>
parents:
12428
diff
changeset
|
3702 (or (get-buffer-window "*Completions*") |
ec77cb3940f1
(switch-to-completions): Make a completions window if none.
Richard M. Stallman <rms@gnu.org>
parents:
12428
diff
changeset
|
3703 (minibuffer-completion-help)) |
20663
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3704 (let ((window (get-buffer-window "*Completions*"))) |
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3705 (when window |
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3706 (select-window window) |
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3707 (goto-char (point-min)) |
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3708 (search-forward "\n\n") |
2483aa76b98d
(switch-to-completions): If no completions window,
Karl Heuer <kwzh@gnu.org>
parents:
20510
diff
changeset
|
3709 (forward-line 1)))) |
3947
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3710 |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3711 ;; Support keyboard commands to turn on various modifiers. |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3712 |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3713 ;; These functions -- which are not commands -- each add one modifier |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3714 ;; to the following event. |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3715 |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3716 (defun event-apply-alt-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3717 "Add the Alt modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3718 For example, type \\[event-apply-alt-modifier] & to enter Alt-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3719 (vector (event-apply-modifier (read-event) 'alt 22 "A-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3720 (defun event-apply-super-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3721 "Add the Super modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3722 For example, type \\[event-apply-super-modifier] & to enter Super-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3723 (vector (event-apply-modifier (read-event) 'super 23 "s-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3724 (defun event-apply-hyper-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3725 "Add the Hyper modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3726 For example, type \\[event-apply-hyper-modifier] & to enter Hyper-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3727 (vector (event-apply-modifier (read-event) 'hyper 24 "H-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3728 (defun event-apply-shift-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3729 "Add the Shift modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3730 For example, type \\[event-apply-shift-modifier] & to enter Shift-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3731 (vector (event-apply-modifier (read-event) 'shift 25 "S-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3732 (defun event-apply-control-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3733 "Add the Ctrl modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3734 For example, type \\[event-apply-control-modifier] & to enter Ctrl-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3735 (vector (event-apply-modifier (read-event) 'control 26 "C-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3736 (defun event-apply-meta-modifier (ignore-prompt) |
22324
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3737 "Add the Meta modifier to the following event. |
0c5b61cb97c0
(event-apply-alt-modifier, etc): Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents:
22304
diff
changeset
|
3738 For example, type \\[event-apply-meta-modifier] & to enter Meta-&." |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3739 (vector (event-apply-modifier (read-event) 'meta 27 "M-"))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3740 |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3741 (defun event-apply-modifier (event symbol lshiftby prefix) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3742 "Apply a modifier flag to event EVENT. |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3743 SYMBOL is the name of this modifier, as a symbol. |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3744 LSHIFTBY is the numeric value of this modifier, in keyboard events. |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3745 PREFIX is the string that represents this modifier in an event type symbol." |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3746 (if (numberp event) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3747 (cond ((eq symbol 'control) |
11201
f6caea9275af
(event-apply-modifier): Fix off-by-one errors.
Karl Heuer <kwzh@gnu.org>
parents:
11159
diff
changeset
|
3748 (if (and (<= (downcase event) ?z) |
f6caea9275af
(event-apply-modifier): Fix off-by-one errors.
Karl Heuer <kwzh@gnu.org>
parents:
11159
diff
changeset
|
3749 (>= (downcase event) ?a)) |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3750 (- (downcase event) ?a -1) |
11201
f6caea9275af
(event-apply-modifier): Fix off-by-one errors.
Karl Heuer <kwzh@gnu.org>
parents:
11159
diff
changeset
|
3751 (if (and (<= (downcase event) ?Z) |
f6caea9275af
(event-apply-modifier): Fix off-by-one errors.
Karl Heuer <kwzh@gnu.org>
parents:
11159
diff
changeset
|
3752 (>= (downcase event) ?A)) |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3753 (- (downcase event) ?A -1) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3754 (logior (lsh 1 lshiftby) event)))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3755 ((eq symbol 'shift) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3756 (if (and (<= (downcase event) ?z) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3757 (>= (downcase event) ?a)) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3758 (upcase event) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3759 (logior (lsh 1 lshiftby) event))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3760 (t |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3761 (logior (lsh 1 lshiftby) event))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3762 (if (memq symbol (event-modifiers event)) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3763 event |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3764 (let ((event-type (if (symbolp event) event (car event)))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3765 (setq event-type (intern (concat prefix (symbol-name event-type)))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3766 (if (symbolp event) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3767 event-type |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3768 (cons event-type (cdr event))))))) |
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3769 |
11206
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3770 (define-key function-key-map [?\C-x ?@ ?h] 'event-apply-hyper-modifier) |
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3771 (define-key function-key-map [?\C-x ?@ ?s] 'event-apply-super-modifier) |
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3772 (define-key function-key-map [?\C-x ?@ ?m] 'event-apply-meta-modifier) |
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3773 (define-key function-key-map [?\C-x ?@ ?a] 'event-apply-alt-modifier) |
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3774 (define-key function-key-map [?\C-x ?@ ?S] 'event-apply-shift-modifier) |
60b7ab7d4fec
Change bindings of event-apply-control-modifier,
Karl Heuer <kwzh@gnu.org>
parents:
11201
diff
changeset
|
3775 (define-key function-key-map [?\C-x ?@ ?c] 'event-apply-control-modifier) |
11140
97ed670a6123
(event-apply-modifier): New function.
Richard M. Stallman <rms@gnu.org>
parents:
11072
diff
changeset
|
3776 |
3947
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3777 ;;;; Keypad support. |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3778 |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3779 ;;; Make the keypad keys act like ordinary typing keys. If people add |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3780 ;;; bindings for the function key symbols, then those bindings will |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3781 ;;; override these, so this shouldn't interfere with any existing |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3782 ;;; bindings. |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3783 |
5342
f38861038093
(setting up kp-... keys): Make ascii-character props.
Richard M. Stallman <rms@gnu.org>
parents:
5324
diff
changeset
|
3784 ;; Also tell read-char how to handle these keys. |
3947
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3785 (mapcar |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3786 (lambda (keypad-normal) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3787 (let ((keypad (nth 0 keypad-normal)) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3788 (normal (nth 1 keypad-normal))) |
5342
f38861038093
(setting up kp-... keys): Make ascii-character props.
Richard M. Stallman <rms@gnu.org>
parents:
5324
diff
changeset
|
3789 (put keypad 'ascii-character normal) |
3947
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3790 (define-key function-key-map (vector keypad) (vector normal)))) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3791 '((kp-0 ?0) (kp-1 ?1) (kp-2 ?2) (kp-3 ?3) (kp-4 ?4) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3792 (kp-5 ?5) (kp-6 ?6) (kp-7 ?7) (kp-8 ?8) (kp-9 ?9) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3793 (kp-space ?\ ) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3794 (kp-tab ?\t) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3795 (kp-enter ?\r) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3796 (kp-multiply ?*) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3797 (kp-add ?+) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3798 (kp-separator ?,) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3799 (kp-subtract ?-) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3800 (kp-decimal ?.) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3801 (kp-divide ?/) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3802 (kp-equal ?=))) |
924d8515c250
* simple.el: Add bindings to function-key-map so that the keypad
Jim Blandy <jimb@redhat.com>
parents:
3936
diff
changeset
|
3803 |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
3804 ;;;; |
26003
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3805 ;;;; forking a twin copy of a buffer. |
26457
285ab8ddc125
* simple.el (backward-delete-char-untabify):
Sam Steingold <sds@gnu.org>
parents:
26356
diff
changeset
|
3806 ;;;; |
26003
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3807 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3808 (defvar clone-buffer-hook nil |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3809 "Normal hook to run in the new buffer at the end of `clone-buffer'.") |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3810 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3811 (defun clone-process (process &optional newname) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3812 "Create a twin copy of PROCESS. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3813 If NEWNAME is nil, it defaults to PROCESS' name; |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3814 NEWNAME is modified by adding or incrementing <N> at the end as necessary. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3815 If PROCESS is associated with a buffer, the new process will be associated |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3816 with the current buffer instead. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3817 Returns nil if PROCESS has already terminated." |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3818 (setq newname (or newname (process-name process))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3819 (if (string-match "<[0-9]+>\\'" newname) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3820 (setq newname (substring newname 0 (match-beginning 0)))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3821 (when (memq (process-status process) '(run stop open)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3822 (let* ((process-connection-type (process-tty-name process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3823 (old-kwoq (process-kill-without-query process nil)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3824 (new-process |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3825 (if (memq (process-status process) '(open)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3826 (apply 'open-network-stream newname |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3827 (if (process-buffer process) (current-buffer)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3828 (process-contact process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3829 (apply 'start-process newname |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3830 (if (process-buffer process) (current-buffer)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3831 (process-command process))))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3832 (process-kill-without-query new-process old-kwoq) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3833 (process-kill-without-query process old-kwoq) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3834 (set-process-inherit-coding-system-flag |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3835 new-process (process-inherit-coding-system-flag process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3836 (set-process-filter new-process (process-filter process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3837 (set-process-sentinel new-process (process-sentinel process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3838 new-process))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3839 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3840 ;; things to maybe add (currently partly covered by `funcall mode': |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3841 ;; - syntax-table |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3842 ;; - overlays |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3843 (defun clone-buffer (&optional newname display-flag) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3844 "Create a twin copy of the current buffer. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3845 If NEWNAME is nil, it defaults to the current buffer's name; |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3846 NEWNAME is modified by adding or incrementing <N> at the end as necessary. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3847 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3848 If DISPLAY-FLAG is non-nil, the new buffer is shown with `pop-to-buffer'. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3849 This runs the normal hook `clone-buffer-hook' in the new buffer |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3850 after it has been set up properly in other respects." |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3851 (interactive (list (if current-prefix-arg (read-string "Name: ")) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3852 t)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3853 (if buffer-file-name |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3854 (error "Cannot clone a file-visiting buffer")) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3855 (if (get major-mode 'no-clone) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3856 (error "Cannot clone a buffer in %s mode" mode-name)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3857 (setq newname (or newname (buffer-name))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3858 (if (string-match "<[0-9]+>\\'" newname) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3859 (setq newname (substring newname 0 (match-beginning 0)))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3860 (let ((buf (current-buffer)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3861 (ptmin (point-min)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3862 (ptmax (point-max)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3863 (pt (point)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3864 (mk (if mark-active (mark t))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3865 (modified (buffer-modified-p)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3866 (mode major-mode) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3867 (lvars (buffer-local-variables)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3868 (process (get-buffer-process (current-buffer))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3869 (new (generate-new-buffer (or newname (buffer-name))))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3870 (save-restriction |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3871 (widen) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3872 (with-current-buffer new |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3873 (insert-buffer-substring buf))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3874 (with-current-buffer new |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3875 (narrow-to-region ptmin ptmax) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3876 (goto-char pt) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3877 (if mk (set-mark mk)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3878 (set-buffer-modified-p modified) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3879 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3880 ;; Clone the old buffer's process, if any. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3881 (when process (clone-process process)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3882 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3883 ;; Now set up the major mode. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3884 (funcall mode) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3885 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3886 ;; Set up other local variables. |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3887 (mapcar (lambda (v) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3888 (condition-case () ;in case var is read-only |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3889 (if (symbolp v) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3890 (makunbound v) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3891 (set (make-local-variable (car v)) (cdr v))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3892 (error nil))) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3893 lvars) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3894 |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3895 ;; Run any hooks (typically set up by the major mode |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3896 ;; for cloning to work properly). |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3897 (run-hooks 'clone-buffer-hook)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3898 (if display-flag (pop-to-buffer new)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3899 new)) |
f6c190ef2f45
(shell-command, shell-command-on-region): use make-temp-file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25702
diff
changeset
|
3900 |
28624
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3901 |
28659
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3902 (defun clone-indirect-buffer (newname display-flag &optional norecord) |
28624
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3903 "Create an indirect buffer that is a twin copy of the current buffer. |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3904 |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3905 Give the indirect buffer name NEWNAME. Interactively, read NEW-NAME |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3906 from the minibuffer when invoked with a prefix arg. If NEWNAME is nil |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3907 or if not called with a prefix arg, NEWNAME defaults to the current |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3908 buffer's name. The name is modified by adding a `<N>' suffix to it |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3909 or by incrementing the N in an existing suffix. |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3910 |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3911 DISPLAY-FLAG non-nil means show the new buffer with `pop-to-buffer'. |
28659
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3912 This is always done when called interactively. |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3913 |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3914 Optional last arg NORECORD non-nil means do not put this buffer at the |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3915 front of the list of recently selected ones." |
28624
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3916 (interactive (list (if current-prefix-arg |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3917 (read-string "BName of indirect buffer: ")) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3918 t)) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3919 (setq newname (or newname (buffer-name))) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3920 (if (string-match "<[0-9]+>\\'" newname) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3921 (setq newname (substring newname 0 (match-beginning 0)))) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3922 (let* ((name (generate-new-buffer-name newname)) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3923 (buffer (make-indirect-buffer (current-buffer) name t))) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3924 (when display-flag |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3925 (pop-to-buffer buffer)) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3926 buffer)) |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3927 |
aef61acb21de
(clone-indirect-buffer): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28491
diff
changeset
|
3928 |
28659
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3929 (defun clone-indirect-buffer-other-window (buffer &optional norecord) |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3930 "Create an indirect buffer that is a twin copy of BUFFER. |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3931 Select the new buffer in another window. |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3932 Optional second arg NORECORD non-nil means do not put this buffer at |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3933 the front of the list of recently selected ones." |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3934 (interactive "bClone buffer in other window: ") |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3935 (let ((popup-windows t)) |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3936 (set-buffer buffer) |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3937 (clone-indirect-buffer nil t norecord))) |
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3938 |
28661
f78d389c773c
Fix typo in key binding of clone-indirect-buffer-other-window.
Gerd Moellmann <gerd@gnu.org>
parents:
28659
diff
changeset
|
3939 (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window) |
28659
17281c5a2834
(clone-indirect-buffer-other-window): New command.
Gerd Moellmann <gerd@gnu.org>
parents:
28624
diff
changeset
|
3940 |
28193
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3941 |
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3942 ;;; Syntax stuff. |
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3943 |
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3944 (defconst syntax-code-table |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3945 '((?\ 0 "whitespace") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3946 (?- 0 "whitespace") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3947 (?. 1 "punctuation") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3948 (?w 2 "word") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3949 (?_ 3 "symbol") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3950 (?\( 4 "open parenthesis") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3951 (?\) 5 "close parenthesis") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3952 (?\' 6 "expression prefix") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3953 (?\" 7 "string quote") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3954 (?$ 8 "paired delimiter") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3955 (?\\ 9 "escape") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3956 (?/ 10 "character quote") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3957 (?< 11 "comment start") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3958 (?> 12 "comment end") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3959 (?@ 13 "inherit") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3960 (nil 14 "comment fence") |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3961 (nil 15 "string fence")) |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3962 "Alist of forms (CHAR CODE DESCRIPTION) mapping characters to syntax info. |
28193
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3963 CHAR is a character that is allowed as first char in the string |
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3964 specifying the syntax when calling `modify-syntax-entry'. CODE is the |
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3965 corresponing syntax code as it is stored in a syntax cell, and |
28896
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3966 can be used as value of a `syntax-table' property. |
0c70e1541a95
(what-cursor-position): If DETAIL is non-nil, call
Kenichi Handa <handa@m17n.org>
parents:
28703
diff
changeset
|
3967 DESCRIPTION is the descriptive string for the syntax.") |
28193
89fb4e786f9c
(syntax-code-table, syntax-flag-table): New variables.
Gerd Moellmann <gerd@gnu.org>
parents:
28187
diff
changeset
|
3968 |
33352
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3969 |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3970 ;;; Misc |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3971 |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3972 (defun byte-compiling-files-p () |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3973 "Return t if currently byte-compiling files." |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3974 (and (boundp 'byte-compile-current-file) |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3975 (stringp byte-compile-current-file))) |
bd48e8729dbb
(byte-compiling-files-p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
33312
diff
changeset
|
3976 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
617
diff
changeset
|
3977 ;;; simple.el ends here |