Mercurial > emacs
annotate lisp/subr.el @ 24419:30e478cd167e
(shell-command-default-error-buffer): Renamed from
shell-command-on-region-default-error-buffer.
(shell-command-on-region): Mention in echo area when there
is some error output. Mention success or failure, too.
Accumulate multiple error outputs
going forward, with formfeed in between. Display the error buffer
when we have put something in it.
(shell-command): Add the ERROR-BUFFER argument feature.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Mar 1999 03:19:32 +0000 |
parents | 92817fedff02 |
children | 1ce8c890309e |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
1 ;;; subr.el --- basic lisp subroutines for Emacs |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
2 |
14169 | 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1995 Free Software Foundation, Inc. |
114 | 4 |
5 ;; This file is part of GNU Emacs. | |
6 | |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
8 ;; it under the terms of the GNU General Public License as published by | |
707 | 9 ;; the Free Software Foundation; either version 2, or (at your option) |
114 | 10 ;; any later version. |
11 | |
12 ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 ;; GNU General Public License for more details. | |
16 | |
17 ;; You should have received a copy of the GNU General Public License | |
14169 | 18 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 ;; Boston, MA 02111-1307, USA. | |
114 | 21 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
22 ;;; Code: |
18880
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
23 (defvar custom-declare-variable-list nil |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
24 "Record `defcustom' calls made before `custom.el' is loaded to handle them. |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
25 Each element of this list holds the arguments to one call to `defcustom'.") |
114 | 26 |
19662 | 27 ;; Use this, rather than defcustom, in subr.el and other files loaded |
18880
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
28 ;; before custom.el. |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
29 (defun custom-declare-variable-early (&rest arguments) |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
30 (setq custom-declare-variable-list |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
31 (cons arguments custom-declare-variable-list))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
32 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
33 ;;;; Lisp language features. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
34 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
35 (defmacro lambda (&rest cdr) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
36 "Return a lambda expression. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
37 A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
38 self-quoting; the result of evaluating the lambda expression is the |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
39 expression itself. The lambda expression may then be treated as a |
10178 | 40 function, i.e., stored as the function value of a symbol, passed to |
41 funcall or mapcar, etc. | |
42 | |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
43 ARGS should take the same form as an argument list for a `defun'. |
12395 | 44 DOCSTRING is an optional documentation string. |
45 If present, it should describe how to call the function. | |
46 But documentation strings are usually not useful in nameless functions. | |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
47 INTERACTIVE should be a call to the function `interactive', which see. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
48 It may also be omitted. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
49 BODY should be a list of lisp expressions." |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
50 ;; Note that this definition should not use backquotes; subr.el should not |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
51 ;; depend on backquote.el. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
52 (list 'function (cons 'lambda cdr))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
53 |
16845
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
54 (defmacro when (cond &rest body) |
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
55 "(when COND BODY...): if COND yields non-nil, do BODY, else return nil." |
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
56 (list 'if cond (cons 'progn body))) |
17158
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
57 (put 'when 'lisp-indent-function 1) |
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
58 (put 'when 'edebug-form-spec '(&rest form)) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
59 |
16845
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
60 (defmacro unless (cond &rest body) |
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
61 "(unless COND BODY...): if COND yields nil, do BODY, else return nil." |
adc714dc8e3c
(when, unless): Definitions moved from cl.el.
Richard M. Stallman <rms@gnu.org>
parents:
16556
diff
changeset
|
62 (cons 'if (cons cond (cons nil body)))) |
17158
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
63 (put 'unless 'lisp-indent-function 1) |
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
64 (put 'unless 'edebug-form-spec '(&rest form)) |
19491
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
65 |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
66 (defsubst caar (x) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
67 "Return the car of the car of X." |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
68 (car (car x))) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
69 |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
70 (defsubst cadr (x) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
71 "Return the car of the cdr of X." |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
72 (car (cdr x))) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
73 |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
74 (defsubst cdar (x) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
75 "Return the cdr of the car of X." |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
76 (cdr (car x))) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
77 |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
78 (defsubst cddr (x) |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
79 "Return the cdr of the cdr of X." |
f5fd22f3462c
(caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts.
Richard M. Stallman <rms@gnu.org>
parents:
19176
diff
changeset
|
80 (cdr (cdr x))) |
19492 | 81 |
19584
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
82 (defun last (x &optional n) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
83 "Return the last link of the list X. Its car is the last element. |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
84 If X is nil, return nil. |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
85 If N is non-nil, return the Nth-to-last link of X. |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
86 If N is bigger than the length of X, return X." |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
87 (if n |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
88 (let ((m 0) (p x)) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
89 (while (consp p) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
90 (setq m (1+ m) p (cdr p))) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
91 (if (<= n 0) p |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
92 (if (< n m) (nthcdr (- m n) x) x))) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
93 (while (cdr x) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
94 (setq x (cdr x))) |
17db1ee36bbb
(last): Accept optional second argument.
Richard M. Stallman <rms@gnu.org>
parents:
19492
diff
changeset
|
95 x)) |
22860
349fa4ee1f27
(assoc-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22755
diff
changeset
|
96 |
22959
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
97 (defun assoc-default (key alist &optional test default) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
98 "Find object KEY in a pseudo-alist ALIST. |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
99 ALIST is a list of conses or objects. Each element (or the element's car, |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
100 if it is a cons) is compared with KEY by evaluating (TEST (car elt) KEY). |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
101 If that is non-nil, the element matches; |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
102 then `assoc-default' returns the element's cdr, if it is a cons, |
22860
349fa4ee1f27
(assoc-default): New function.
Richard M. Stallman <rms@gnu.org>
parents:
22755
diff
changeset
|
103 or DEFAULT if the element is not a cons. |
22959
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
104 |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
105 If no element matches, the value is nil. |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
106 If TEST is omitted or nil, `equal' is used." |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
107 (let (found (tail alist) value) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
108 (while (and tail (not found)) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
109 (let ((elt (car tail))) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
110 (when (funcall (or test 'equal) (if (consp elt) (car elt) elt) key) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
111 (setq found t value (if (consp elt) (cdr elt) default)))) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
112 (setq tail (cdr tail))) |
73a21b5f9bd8
(assoc-default): Rewrite not to use dolist.
Richard M. Stallman <rms@gnu.org>
parents:
22860
diff
changeset
|
113 value)) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
114 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
115 ;;;; Keymap support. |
114 | 116 |
117 (defun undefined () | |
118 (interactive) | |
119 (ding)) | |
120 | |
121 ;Prevent the \{...} documentation construct | |
122 ;from mentioning keys that run this command. | |
123 (put 'undefined 'suppress-keymap t) | |
124 | |
125 (defun suppress-keymap (map &optional nodigits) | |
126 "Make MAP override all normally self-inserting keys to be undefined. | |
127 Normally, as an exception, digits and minus-sign are set to make prefix args, | |
128 but optional second arg NODIGITS non-nil treats them like other chars." | |
4767
12ff77449baa
(suppress-keymap): Use substitute-key-definition instead of manually
Brian Fox <bfox@gnu.org>
parents:
4620
diff
changeset
|
129 (substitute-key-definition 'self-insert-command 'undefined map global-map) |
114 | 130 (or nodigits |
131 (let (loop) | |
132 (define-key map "-" 'negative-argument) | |
133 ;; Make plain numbers do numeric args. | |
134 (setq loop ?0) | |
135 (while (<= loop ?9) | |
136 (define-key map (char-to-string loop) 'digit-argument) | |
137 (setq loop (1+ loop)))))) | |
138 | |
139 ;Moved to keymap.c | |
140 ;(defun copy-keymap (keymap) | |
141 ; "Return a copy of KEYMAP" | |
142 ; (while (not (keymapp keymap)) | |
143 ; (setq keymap (signal 'wrong-type-argument (list 'keymapp keymap)))) | |
144 ; (if (vectorp keymap) | |
145 ; (copy-sequence keymap) | |
146 ; (copy-alist keymap))) | |
147 | |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
148 (defvar key-substitution-in-progress nil |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
149 "Used internally by substitute-key-definition.") |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
150 |
1176 | 151 (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) |
114 | 152 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. |
153 In other words, OLDDEF is replaced with NEWDEF where ever it appears. | |
1176 | 154 If optional fourth argument OLDMAP is specified, we redefine |
155 in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP." | |
156 (or prefix (setq prefix "")) | |
157 (let* ((scan (or oldmap keymap)) | |
158 (vec1 (vector nil)) | |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
159 (prefix1 (vconcat prefix vec1)) |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
160 (key-substitution-in-progress |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
161 (cons scan key-substitution-in-progress))) |
1176 | 162 ;; Scan OLDMAP, finding each char or event-symbol that |
163 ;; has any definition, and act on it with hack-key. | |
164 (while (consp scan) | |
165 (if (consp (car scan)) | |
166 (let ((char (car (car scan))) | |
167 (defn (cdr (car scan)))) | |
168 ;; The inside of this let duplicates exactly | |
169 ;; the inside of the following let that handles array elements. | |
170 (aset vec1 0 char) | |
171 (aset prefix1 (length prefix) char) | |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
172 (let (inner-def skipped) |
1176 | 173 ;; Skip past menu-prompt. |
174 (while (stringp (car-safe defn)) | |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
175 (setq skipped (cons (car defn) skipped)) |
1176 | 176 (setq defn (cdr defn))) |
7615
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
177 ;; Skip past cached key-equivalence data for menu items. |
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
178 (and (consp defn) (consp (car defn)) |
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
179 (setq defn (cdr defn))) |
1176 | 180 (setq inner-def defn) |
7615
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
181 ;; Look past a symbol that names a keymap. |
1176 | 182 (while (and (symbolp inner-def) |
183 (fboundp inner-def)) | |
184 (setq inner-def (symbol-function inner-def))) | |
17215
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
185 (if (or (eq defn olddef) |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
186 ;; Compare with equal if definition is a key sequence. |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
187 ;; That is useful for operating on function-key-map. |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
188 (and (or (stringp defn) (vectorp defn)) |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
189 (equal defn olddef))) |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
190 (define-key keymap prefix1 (nconc (nreverse skipped) newdef)) |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
191 (if (and (keymapp defn) |
9986
df605fcd1e75
(substitute-key-definition): Don't recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
9822
diff
changeset
|
192 ;; Avoid recursively scanning |
df605fcd1e75
(substitute-key-definition): Don't recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
9822
diff
changeset
|
193 ;; where KEYMAP does not have a submap. |
13039
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
194 (let ((elt (lookup-key keymap prefix1))) |
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
195 (or (null elt) |
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
196 (keymapp elt))) |
9986
df605fcd1e75
(substitute-key-definition): Don't recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
9822
diff
changeset
|
197 ;; Avoid recursively rescanning keymap being scanned. |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
198 (not (memq inner-def |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
199 key-substitution-in-progress))) |
7615
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
200 ;; If this one isn't being scanned already, |
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
201 ;; scan it now. |
1176 | 202 (substitute-key-definition olddef newdef keymap |
203 inner-def | |
204 prefix1))))) | |
18044
3e4924d01221
(substitute-key-definition): Check vectorp, not arrayp.
Richard M. Stallman <rms@gnu.org>
parents:
17943
diff
changeset
|
205 (if (vectorp (car scan)) |
1176 | 206 (let* ((array (car scan)) |
207 (len (length array)) | |
208 (i 0)) | |
209 (while (< i len) | |
210 (let ((char i) (defn (aref array i))) | |
211 ;; The inside of this let duplicates exactly | |
212 ;; the inside of the previous let. | |
213 (aset vec1 0 char) | |
214 (aset prefix1 (length prefix) char) | |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
215 (let (inner-def skipped) |
1176 | 216 ;; Skip past menu-prompt. |
217 (while (stringp (car-safe defn)) | |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
218 (setq skipped (cons (car defn) skipped)) |
1176 | 219 (setq defn (cdr defn))) |
7615
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
220 (and (consp defn) (consp (car defn)) |
49176059d040
(substitute-key-definition): Skip cached menu key-equivs.
Richard M. Stallman <rms@gnu.org>
parents:
7548
diff
changeset
|
221 (setq defn (cdr defn))) |
1176 | 222 (setq inner-def defn) |
223 (while (and (symbolp inner-def) | |
224 (fboundp inner-def)) | |
225 (setq inner-def (symbol-function inner-def))) | |
17215
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
226 (if (or (eq defn olddef) |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
227 (and (or (stringp defn) (vectorp defn)) |
21e3f467224e
(substitute-key-definition):
Richard M. Stallman <rms@gnu.org>
parents:
17158
diff
changeset
|
228 (equal defn olddef))) |
6005
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
229 (define-key keymap prefix1 |
bf1c9fd5669b
(substitute-key-definition): Don't discard menu strings.
Richard M. Stallman <rms@gnu.org>
parents:
5912
diff
changeset
|
230 (nconc (nreverse skipped) newdef)) |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
231 (if (and (keymapp defn) |
13039
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
232 (let ((elt (lookup-key keymap prefix1))) |
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
233 (or (null elt) |
04ffbdd37d2d
(substitute-key-definition): Do recursively scan
Richard M. Stallman <rms@gnu.org>
parents:
12730
diff
changeset
|
234 (keymapp elt))) |
6167
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
235 (not (memq inner-def |
1ad8f8ccdc2b
(substitute-key-definition): Avoid infinite recursion.
Karl Heuer <kwzh@gnu.org>
parents:
6039
diff
changeset
|
236 key-substitution-in-progress))) |
1176 | 237 (substitute-key-definition olddef newdef keymap |
238 inner-def | |
239 prefix1))))) | |
17922
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
240 (setq i (1+ i)))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
241 (if (char-table-p (car scan)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
242 (map-char-table |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
243 (function (lambda (char defn) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
244 (let () |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
245 ;; The inside of this let duplicates exactly |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
246 ;; the inside of the previous let, |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
247 ;; except that it uses set-char-table-range |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
248 ;; instead of define-key. |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
249 (aset vec1 0 char) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
250 (aset prefix1 (length prefix) char) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
251 (let (inner-def skipped) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
252 ;; Skip past menu-prompt. |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
253 (while (stringp (car-safe defn)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
254 (setq skipped (cons (car defn) skipped)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
255 (setq defn (cdr defn))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
256 (and (consp defn) (consp (car defn)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
257 (setq defn (cdr defn))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
258 (setq inner-def defn) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
259 (while (and (symbolp inner-def) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
260 (fboundp inner-def)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
261 (setq inner-def (symbol-function inner-def))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
262 (if (or (eq defn olddef) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
263 (and (or (stringp defn) (vectorp defn)) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
264 (equal defn olddef))) |
17943
15dc805eadee
(substitute-key-definition): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
17922
diff
changeset
|
265 (define-key keymap prefix1 |
15dc805eadee
(substitute-key-definition): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
17922
diff
changeset
|
266 (nconc (nreverse skipped) newdef)) |
17922
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
267 (if (and (keymapp defn) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
268 (let ((elt (lookup-key keymap prefix1))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
269 (or (null elt) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
270 (keymapp elt))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
271 (not (memq inner-def |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
272 key-substitution-in-progress))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
273 (substitute-key-definition olddef newdef keymap |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
274 inner-def |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
275 prefix1))))))) |
29d58e05d603
(substitute-key-definition): Handle chartables.
Richard M. Stallman <rms@gnu.org>
parents:
17707
diff
changeset
|
276 (car scan))))) |
1176 | 277 (setq scan (cdr scan))))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
278 |
3902
717f2e24975e
(define-key-after): Renamed from define-key-in-sequence.
Richard M. Stallman <rms@gnu.org>
parents:
3901
diff
changeset
|
279 (defun define-key-after (keymap key definition after) |
3901
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
280 "Add binding in KEYMAP for KEY => DEFINITION, right after AFTER's binding. |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
281 This is like `define-key' except that the binding for KEY is placed |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
282 just after the binding for the event AFTER, instead of at the beginning |
16556
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
283 of the map. Note that AFTER must be an event type (like KEY), NOT a command |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
284 \(like DEFINITION). |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
285 |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
286 If AFTER is t, the new binding goes at the end of the keymap. |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
287 |
6725
e044bd05a1da
(define-key-after): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
6553
diff
changeset
|
288 KEY must contain just one event type--that is to say, it must be |
16556
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
289 a string or vector of length 1. |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
290 |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
291 The order of bindings in a keymap matters when it is used as a menu." |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
292 |
3901
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
293 (or (keymapp keymap) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
294 (signal 'wrong-type-argument (list 'keymapp keymap))) |
4188
10fd517cb2e9
(define-key-after): Fix typo in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
4070
diff
changeset
|
295 (if (> (length key) 1) |
4070
5a97f81baf65
(define-key-after): Error if KEY has two elements.
Richard M. Stallman <rms@gnu.org>
parents:
3991
diff
changeset
|
296 (error "multi-event key specified in `define-key-after'")) |
3927
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
297 (let ((tail keymap) done inserted |
3901
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
298 (first (aref key 0))) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
299 (while (and (not done) tail) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
300 ;; Delete any earlier bindings for the same key. |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
301 (if (eq (car-safe (car (cdr tail))) first) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
302 (setcdr tail (cdr (cdr tail)))) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
303 ;; When we reach AFTER's binding, insert the new binding after. |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
304 ;; If we reach an inherited keymap, insert just before that. |
3927
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
305 ;; If we reach the end of this keymap, insert at the end. |
16556
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
306 (if (or (and (eq (car-safe (car tail)) after) |
3a1df67c6677
(define-key-after): If AFTER is t, always put new binding at the end.
Richard M. Stallman <rms@gnu.org>
parents:
16549
diff
changeset
|
307 (not (eq after t))) |
3927
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
308 (eq (car (cdr tail)) 'keymap) |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
309 (null (cdr tail))) |
3901
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
310 (progn |
3927
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
311 ;; Stop the scan only if we find a parent keymap. |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
312 ;; Keep going past the inserted element |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
313 ;; so we can delete any duplications that come later. |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
314 (if (eq (car (cdr tail)) 'keymap) |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
315 (setq done t)) |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
316 ;; Don't insert more than once. |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
317 (or inserted |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
318 (setcdr tail (cons (cons (aref key 0) definition) (cdr tail)))) |
1f1fefc400ed
(define-key-after): Delete duplicate bindings that come
Richard M. Stallman <rms@gnu.org>
parents:
3902
diff
changeset
|
319 (setq inserted t))) |
3901
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
320 (setq tail (cdr tail))))) |
c78753b7eea8
(define-key-in-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3860
diff
changeset
|
321 |
17437 | 322 (defmacro kbd (keys) |
323 "Convert KEYS to the internal Emacs key representation. | |
324 KEYS should be a string constant in the format used for | |
325 saving keyboard macros (see `insert-kbd-macro')." | |
326 (read-kbd-macro keys)) | |
327 | |
15894
efd2835a7c96
(keyboard-translate): Use a char-table.
Richard M. Stallman <rms@gnu.org>
parents:
15599
diff
changeset
|
328 (put 'keyboard-translate-table 'char-table-extra-slots 0) |
efd2835a7c96
(keyboard-translate): Use a char-table.
Richard M. Stallman <rms@gnu.org>
parents:
15599
diff
changeset
|
329 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
330 (defun keyboard-translate (from to) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
331 "Translate character FROM to TO at a low level. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
332 This function creates a `keyboard-translate-table' if necessary |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
333 and then modifies one entry in it." |
15894
efd2835a7c96
(keyboard-translate): Use a char-table.
Richard M. Stallman <rms@gnu.org>
parents:
15599
diff
changeset
|
334 (or (char-table-p keyboard-translate-table) |
efd2835a7c96
(keyboard-translate): Use a char-table.
Richard M. Stallman <rms@gnu.org>
parents:
15599
diff
changeset
|
335 (setq keyboard-translate-table |
efd2835a7c96
(keyboard-translate): Use a char-table.
Richard M. Stallman <rms@gnu.org>
parents:
15599
diff
changeset
|
336 (make-char-table 'keyboard-translate-table nil))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
337 (aset keyboard-translate-table from to)) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
338 |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
339 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
340 ;;;; The global keymap tree. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
341 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
342 ;;; global-map, esc-map, and ctl-x-map have their values set up in |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
343 ;;; keymap.c; we just give them docstrings here. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
344 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
345 (defvar global-map nil |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
346 "Default global keymap mapping Emacs keyboard input into commands. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
347 The value is a keymap which is usually (but not necessarily) Emacs's |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
348 global map.") |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
349 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
350 (defvar esc-map nil |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
351 "Default keymap for ESC (meta) commands. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
352 The normal global definition of the character ESC indirects to this keymap.") |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
353 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
354 (defvar ctl-x-map nil |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
355 "Default keymap for C-x commands. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
356 The normal global definition of the character C-x indirects to this keymap.") |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
357 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
358 (defvar ctl-x-4-map (make-sparse-keymap) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
359 "Keymap for subcommands of C-x 4") |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
360 (defalias 'ctl-x-4-prefix ctl-x-4-map) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
361 (define-key ctl-x-map "4" 'ctl-x-4-prefix) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
362 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
363 (defvar ctl-x-5-map (make-sparse-keymap) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
364 "Keymap for frame commands.") |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
365 (defalias 'ctl-x-5-prefix ctl-x-5-map) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
366 (define-key ctl-x-map "5" 'ctl-x-5-prefix) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
367 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
368 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
369 ;;;; Event manipulation functions. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
370 |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
371 ;; The call to `read' is to ensure that the value is computed at load time |
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
372 ;; and not compiled into the .elc file. The value is negative on most |
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
373 ;; machines, but not on all! |
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
374 (defconst listify-key-sequence-1 (logior 128 (read "?\\M-\\^@"))) |
3153
4c94c9faf1af
(listify-key-sequence): Avoid the constant ?\M-\200.
Richard M. Stallman <rms@gnu.org>
parents:
2963
diff
changeset
|
375 |
2021
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
376 (defun listify-key-sequence (key) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
377 "Convert a key sequence to a list of events." |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
378 (if (vectorp key) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
379 (append key nil) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
380 (mapcar (function (lambda (c) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
381 (if (> c 127) |
3153
4c94c9faf1af
(listify-key-sequence): Avoid the constant ?\M-\200.
Richard M. Stallman <rms@gnu.org>
parents:
2963
diff
changeset
|
382 (logxor c listify-key-sequence-1) |
2021
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
383 c))) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
384 (append key nil)))) |
8b9286bffef8
(listify-key-sequence): New function.
Richard M. Stallman <rms@gnu.org>
parents:
1959
diff
changeset
|
385 |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
386 (defsubst eventp (obj) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
387 "True if the argument is an event object." |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
388 (or (integerp obj) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
389 (and (symbolp obj) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
390 (get obj 'event-symbol-elements)) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
391 (and (consp obj) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
392 (symbolp (car obj)) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
393 (get (car obj) 'event-symbol-elements)))) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
394 |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
395 (defun event-modifiers (event) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
396 "Returns a list of symbols representing the modifier keys in event EVENT. |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
397 The elements of the list may include `meta', `control', |
4414
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
398 `shift', `hyper', `super', `alt', `click', `double', `triple', `drag', |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
399 and `down'." |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
400 (let ((type event)) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
401 (if (listp type) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
402 (setq type (car type))) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
403 (if (symbolp type) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
404 (cdr (get type 'event-symbol-elements)) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
405 (let ((list nil)) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
406 (or (zerop (logand type ?\M-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
407 (setq list (cons 'meta list))) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
408 (or (and (zerop (logand type ?\C-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
409 (>= (logand type 127) 32)) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
410 (setq list (cons 'control list))) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
411 (or (and (zerop (logand type ?\S-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
412 (= (logand type 255) (downcase (logand type 255)))) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
413 (setq list (cons 'shift list))) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
414 (or (zerop (logand type ?\H-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
415 (setq list (cons 'hyper list))) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
416 (or (zerop (logand type ?\s-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
417 (setq list (cons 'super list))) |
10693
0875851842f0
(listify-key-sequence-1, event-modifiers): Don't presume internal bit layout
Karl Heuer <kwzh@gnu.org>
parents:
10681
diff
changeset
|
418 (or (zerop (logand type ?\A-\^@)) |
2040
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
419 (setq list (cons 'alt list))) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
420 list)))) |
aa926beb4caa
(event-modifiers): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2033
diff
changeset
|
421 |
2063
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
422 (defun event-basic-type (event) |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
423 "Returns the basic type of the given event (all modifiers removed). |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
424 The value is an ASCII printing character (not upper case) or a symbol." |
3784
d2df5ca46b39
* subr.el (event-basic-type): Deal with listy events properly.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
425 (if (consp event) |
d2df5ca46b39
* subr.el (event-basic-type): Deal with listy events properly.
Jim Blandy <jimb@redhat.com>
parents:
3591
diff
changeset
|
426 (setq event (car event))) |
2063
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
427 (if (symbolp event) |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
428 (car (get event 'event-symbol-elements)) |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
429 (let ((base (logand event (1- (lsh 1 18))))) |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
430 (downcase (if (< base 32) (logior base 64) base))))) |
2f0555b428c4
(event-basic-type): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2040
diff
changeset
|
431 |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
432 (defsubst mouse-movement-p (object) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
433 "Return non-nil if OBJECT is a mouse movement event." |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
434 (and (consp object) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
435 (eq (car object) 'mouse-movement))) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
436 |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
437 (defsubst event-start (event) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
438 "Return the starting position of EVENT. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
439 If EVENT is a mouse press or a mouse click, this returns the location |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
440 of the event. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
441 If EVENT is a drag, this returns the drag's starting position. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
442 The return value is of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
443 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
444 The `posn-' functions access elements of such lists." |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
445 (nth 1 event)) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
446 |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
447 (defsubst event-end (event) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
448 "Return the ending location of EVENT. EVENT should be a click or drag event. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
449 If EVENT is a click event, this function is the same as `event-start'. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
450 The return value is of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
451 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
452 The `posn-' functions access elements of such lists." |
3860
70bdc91ef161
* subr.el (event-end): Modified to account for multi-click events.
Jim Blandy <jimb@redhat.com>
parents:
3784
diff
changeset
|
453 (nth (if (consp (nth 2 event)) 2 1) event)) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
454 |
4414
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
455 (defsubst event-click-count (event) |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
456 "Return the multi-click count of EVENT, a click or drag event. |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
457 The return value is a positive integer." |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
458 (if (integerp (nth 2 event)) (nth 2 event) 1)) |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
459 |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
460 (defsubst posn-window (position) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
461 "Return the window in POSITION. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
462 POSITION should be a list of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
463 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
464 as returned by the `event-start' and `event-end' functions." |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
465 (nth 0 position)) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
466 |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
467 (defsubst posn-point (position) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
468 "Return the buffer location in POSITION. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
469 POSITION should be a list of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
470 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
471 as returned by the `event-start' and `event-end' functions." |
3991
ad2bd545983e
* subr.el (posn-point): Properly extract the BUFFER-POSITION field
Jim Blandy <jimb@redhat.com>
parents:
3927
diff
changeset
|
472 (if (consp (nth 1 position)) |
ad2bd545983e
* subr.el (posn-point): Properly extract the BUFFER-POSITION field
Jim Blandy <jimb@redhat.com>
parents:
3927
diff
changeset
|
473 (car (nth 1 position)) |
ad2bd545983e
* subr.el (posn-point): Properly extract the BUFFER-POSITION field
Jim Blandy <jimb@redhat.com>
parents:
3927
diff
changeset
|
474 (nth 1 position))) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
475 |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
476 (defsubst posn-x-y (position) |
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
477 "Return the x and y coordinates in POSITION. |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
478 POSITION should be a list of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
479 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
480 as returned by the `event-start' and `event-end' functions." |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
481 (nth 2 position)) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
482 |
7636
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
483 (defun posn-col-row (position) |
7693
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
484 "Return the column and row in POSITION, measured in characters. |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
485 POSITION should be a list of the form |
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
486 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
7636
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
487 as returned by the `event-start' and `event-end' functions. |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
488 For a scroll-bar event, the result column is 0, and the row |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
489 corresponds to the vertical position of the click in the scroll bar." |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
490 (let ((pair (nth 2 position)) |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
491 (window (posn-window position))) |
7693
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
492 (if (eq (if (consp (nth 1 position)) |
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
493 (car (nth 1 position)) |
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
494 (nth 1 position)) |
7636
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
495 'vertical-scroll-bar) |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
496 (cons 0 (scroll-bar-scale pair (1- (window-height window)))) |
7693
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
497 (if (eq (if (consp (nth 1 position)) |
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
498 (car (nth 1 position)) |
5fcf0620b8d3
(posn-col-row): Test for consp, not symbolp.
Karl Heuer <kwzh@gnu.org>
parents:
7640
diff
changeset
|
499 (nth 1 position)) |
7636
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
500 'horizontal-scroll-bar) |
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
501 (cons (scroll-bar-scale pair (window-width window)) 0) |
7640
9b1194796ef5
(posn-col-row): Use let*.
Richard M. Stallman <rms@gnu.org>
parents:
7636
diff
changeset
|
502 (let* ((frame (if (framep window) window (window-frame window))) |
9b1194796ef5
(posn-col-row): Use let*.
Richard M. Stallman <rms@gnu.org>
parents:
7636
diff
changeset
|
503 (x (/ (car pair) (frame-char-width frame))) |
9b1194796ef5
(posn-col-row): Use let*.
Richard M. Stallman <rms@gnu.org>
parents:
7636
diff
changeset
|
504 (y (/ (cdr pair) (frame-char-height frame)))) |
7636
83dba60657ef
(posn-col-row): Do something useful for scroll bar event.
Richard M. Stallman <rms@gnu.org>
parents:
7615
diff
changeset
|
505 (cons x y)))))) |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
506 |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
507 (defsubst posn-timestamp (position) |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
508 "Return the timestamp of POSITION. |
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
509 POSITION should be a list of the form |
6039
4eb7f4633370
(posn-x-y): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6005
diff
changeset
|
510 (WINDOW BUFFER-POSITION (X . Y) TIMESTAMP) |
3411
d91b3097bb76
(posn-timestamp): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
3210
diff
changeset
|
511 as returned by the `event-start' and `event-end' functions." |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
512 (nth 3 position)) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
513 |
2071
8f410f56d98f
(posn-timestamp, posn-col-row, posn-point, posn-window):
Richard M. Stallman <rms@gnu.org>
parents:
2063
diff
changeset
|
514 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
515 ;;;; Obsolescent names for functions. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
516 |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
517 (defalias 'dot 'point) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
518 (defalias 'dot-marker 'point-marker) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
519 (defalias 'dot-min 'point-min) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
520 (defalias 'dot-max 'point-max) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
521 (defalias 'window-dot 'window-point) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
522 (defalias 'set-window-dot 'set-window-point) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
523 (defalias 'read-input 'read-string) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
524 (defalias 'send-string 'process-send-string) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
525 (defalias 'send-region 'process-send-region) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
526 (defalias 'show-buffer 'set-window-buffer) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
527 (defalias 'buffer-flush-undo 'buffer-disable-undo) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
528 (defalias 'eval-current-buffer 'eval-buffer) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
529 (defalias 'compiled-function-p 'byte-code-function-p) |
16437
0626ef653e3e
(define-function): Define as alias for defalias.
Richard M. Stallman <rms@gnu.org>
parents:
16379
diff
changeset
|
530 (defalias 'define-function 'defalias) |
114 | 531 |
23134
173e15236628
(sref): Make it an alias of aref. Make the
Kenichi Handa <handa@m17n.org>
parents:
23058
diff
changeset
|
532 (defalias 'sref 'aref) |
173e15236628
(sref): Make it an alias of aref. Make the
Kenichi Handa <handa@m17n.org>
parents:
23058
diff
changeset
|
533 (make-obsolete 'sref 'aref) |
173e15236628
(sref): Make it an alias of aref. Make the
Kenichi Handa <handa@m17n.org>
parents:
23058
diff
changeset
|
534 (make-obsolete 'char-bytes "Now this function always returns 1") |
20605 | 535 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
536 ;; Some programs still use this as a function. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
537 (defun baud-rate () |
3210 | 538 "Obsolete function returning the value of the `baud-rate' variable. |
539 Please convert your programs to use the variable `baud-rate' directly." | |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
540 baud-rate) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
541 |
15599
7d3af2dcd864
(unfocus-frame, focus-frame): Define as no-ops.
Miles Bader <miles@gnu.org>
parents:
14707
diff
changeset
|
542 (defalias 'focus-frame 'ignore) |
7d3af2dcd864
(unfocus-frame, focus-frame): Define as no-ops.
Miles Bader <miles@gnu.org>
parents:
14707
diff
changeset
|
543 (defalias 'unfocus-frame 'ignore) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
544 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
545 ;;;; Alternate names for functions - these are not being phased out. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
546 |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
547 (defalias 'string= 'string-equal) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
548 (defalias 'string< 'string-lessp) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
549 (defalias 'move-marker 'set-marker) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
550 (defalias 'not 'null) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
551 (defalias 'rplaca 'setcar) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
552 (defalias 'rplacd 'setcdr) |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3411
diff
changeset
|
553 (defalias 'beep 'ding) ;preserve lingual purity |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
554 (defalias 'indent-to-column 'indent-to) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
555 (defalias 'backward-delete-char 'delete-backward-char) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
556 (defalias 'search-forward-regexp (symbol-function 're-search-forward)) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
557 (defalias 'search-backward-regexp (symbol-function 're-search-backward)) |
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
558 (defalias 'int-to-string 'number-to-string) |
21173
e917eb0d4e01
(save-match-data): store-match-data => set-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
21092
diff
changeset
|
559 (defalias 'store-match-data 'set-match-data) |
1903
87f63305319f
* subr.el (string-to-int): Make this an alias for
Jim Blandy <jimb@redhat.com>
parents:
1867
diff
changeset
|
560 |
87f63305319f
* subr.el (string-to-int): Make this an alias for
Jim Blandy <jimb@redhat.com>
parents:
1867
diff
changeset
|
561 ;;; Should this be an obsolete name? If you decide it should, you get |
87f63305319f
* subr.el (string-to-int): Make this an alias for
Jim Blandy <jimb@redhat.com>
parents:
1867
diff
changeset
|
562 ;;; to go through all the sources and change them. |
2569
39ad4eda7fea
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2504
diff
changeset
|
563 (defalias 'string-to-int 'string-to-number) |
114 | 564 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
565 ;;;; Hook manipulation functions. |
388 | 566 |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
567 (defun make-local-hook (hook) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
568 "Make the hook HOOK local to the current buffer. |
23786
673204d56938
(make-local-hook): Return the hook variable.
Richard M. Stallman <rms@gnu.org>
parents:
23736
diff
changeset
|
569 The return value is HOOK. |
673204d56938
(make-local-hook): Return the hook variable.
Richard M. Stallman <rms@gnu.org>
parents:
23736
diff
changeset
|
570 |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
571 When a hook is local, its local and global values |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
572 work in concert: running the hook actually runs all the hook |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
573 functions listed in *either* the local value *or* the global value |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
574 of the hook variable. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
575 |
12258
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
576 This function works by making `t' a member of the buffer-local value, |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
577 which acts as a flag to run the hook functions in the default value as |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
578 well. This works for all normal hooks, but does not work for most |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
579 non-normal hooks yet. We will be changing the callers of non-normal |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
580 hooks so that they can handle localness; this has to be done one by |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
581 one. |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
582 |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
583 This function does nothing if HOOK is already local in the current |
95ebca0a74d8
(make-local-hook): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
12108
diff
changeset
|
584 buffer. |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
585 |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
586 Do not use `make-local-variable' to make a hook variable buffer-local." |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
587 (if (local-variable-p hook) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
588 nil |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
589 (or (boundp hook) (set hook nil)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
590 (make-local-variable hook) |
23786
673204d56938
(make-local-hook): Return the hook variable.
Richard M. Stallman <rms@gnu.org>
parents:
23736
diff
changeset
|
591 (set hook (list t))) |
673204d56938
(make-local-hook): Return the hook variable.
Richard M. Stallman <rms@gnu.org>
parents:
23736
diff
changeset
|
592 hook) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
593 |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
594 (defun add-hook (hook function &optional append local) |
4414
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
595 "Add to the value of HOOK the function FUNCTION. |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
596 FUNCTION is not added if already present. |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
597 FUNCTION is added (if necessary) at the beginning of the hook list |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
598 unless the optional argument APPEND is non-nil, in which case |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
599 FUNCTION is added at the end. |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
600 |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
601 The optional fourth argument, LOCAL, if non-nil, says to modify |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
602 the hook's buffer-local value rather than its default value. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
603 This makes no difference if the hook is not buffer-local. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
604 To make a hook variable buffer-local, always use |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
605 `make-local-hook', not `make-local-variable'. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
606 |
4414
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
607 HOOK should be a symbol, and FUNCTION may be any valid function. If |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
608 HOOK is void, it is first set to nil. If HOOK's value is a single |
8959
d33302427a47
(remove-hook, add-hook): Copy existing list before modifying.
Richard M. Stallman <rms@gnu.org>
parents:
8928
diff
changeset
|
609 function, it is changed to a list of functions." |
114 | 610 (or (boundp hook) (set hook nil)) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
611 (or (default-boundp hook) (set-default hook nil)) |
4414
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
612 ;; If the hook value is a single function, turn it into a list. |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
613 (let ((old (symbol-value hook))) |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
614 (if (or (not (listp old)) (eq (car old) 'lambda)) |
3356419b94c1
(add-hook): Change a single function into a list.
Richard M. Stallman <rms@gnu.org>
parents:
4235
diff
changeset
|
615 (set hook (list old)))) |
9202
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
616 (if (or local |
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
617 ;; Detect the case where make-local-variable was used on a hook |
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
618 ;; and do what we used to do. |
12296
005a5b596618
(add-hook): Use local local-variable-if-set-p.
Richard M. Stallman <rms@gnu.org>
parents:
12258
diff
changeset
|
619 (and (local-variable-if-set-p hook) |
9202
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
620 (not (memq t (symbol-value hook))))) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
621 ;; Alter the local value only. |
22960
d29091c19e81
(add-hook): Use byte-code-function-p, not compiled-function-p.
Richard M. Stallman <rms@gnu.org>
parents:
22959
diff
changeset
|
622 (or (if (or (consp function) (byte-code-function-p function)) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
623 (member function (symbol-value hook)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
624 (memq function (symbol-value hook))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
625 (set hook |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
626 (if append |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
627 (append (symbol-value hook) (list function)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
628 (cons function (symbol-value hook))))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
629 ;; Alter the global value (which is also the only value, |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
630 ;; if the hook doesn't have a local value). |
22960
d29091c19e81
(add-hook): Use byte-code-function-p, not compiled-function-p.
Richard M. Stallman <rms@gnu.org>
parents:
22959
diff
changeset
|
631 (or (if (or (consp function) (byte-code-function-p function)) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
632 (member function (default-value hook)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
633 (memq function (default-value hook))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
634 (set-default hook |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
635 (if append |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
636 (append (default-value hook) (list function)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
637 (cons function (default-value hook))))))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
638 |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
639 (defun remove-hook (hook function &optional local) |
4964
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
640 "Remove from the value of HOOK the function FUNCTION. |
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
641 HOOK should be a symbol, and FUNCTION may be any valid function. If |
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
642 FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
643 list of hooks to run in HOOK, then nothing is done. See `add-hook'. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
644 |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
645 The optional third argument, LOCAL, if non-nil, says to modify |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
646 the hook's buffer-local value rather than its default value. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
647 This makes no difference if the hook is not buffer-local. |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
648 To make a hook variable buffer-local, always use |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
649 `make-local-hook', not `make-local-variable'." |
4964
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
650 (if (or (not (boundp hook)) ;unbound symbol, or |
21696
2f8ab139c8f1
(remove-hook): Fix spurious quote.
Dave Love <fx@gnu.org>
parents:
21578
diff
changeset
|
651 (not (default-boundp hook)) |
4964
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
652 (null (symbol-value hook)) ;value is nil, or |
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
653 (null function)) ;function is nil, then |
78c13f3054e5
(remove-hook): New function, analogous to add-hook. This
Richard M. Stallman <rms@gnu.org>
parents:
4767
diff
changeset
|
654 nil ;Do nothing. |
9202
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
655 (if (or local |
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
656 ;; Detect the case where make-local-variable was used on a hook |
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
657 ;; and do what we used to do. |
92d6de82426a
(add-hook, remove-hook): If the hook was made local
Richard M. Stallman <rms@gnu.org>
parents:
9195
diff
changeset
|
658 (and (local-variable-p hook) |
23294
ce2cac0f1682
(remove-hook): Check list values to avoid errors.
Dave Love <fx@gnu.org>
parents:
23134
diff
changeset
|
659 (consp (symbol-value hook)) |
ce2cac0f1682
(remove-hook): Check list values to avoid errors.
Dave Love <fx@gnu.org>
parents:
23134
diff
changeset
|
660 (not (memq t (symbol-value hook))))) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
661 (let ((hook-value (symbol-value hook))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
662 (if (consp hook-value) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
663 (if (member function hook-value) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
664 (setq hook-value (delete function (copy-sequence hook-value)))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
665 (if (equal hook-value function) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
666 (setq hook-value nil))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
667 (set hook hook-value)) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
668 (let ((hook-value (default-value hook))) |
23294
ce2cac0f1682
(remove-hook): Check list values to avoid errors.
Dave Love <fx@gnu.org>
parents:
23134
diff
changeset
|
669 (if (and (consp hook-value) (not (functionp hook-value))) |
9195
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
670 (if (member function hook-value) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
671 (setq hook-value (delete function (copy-sequence hook-value)))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
672 (if (equal hook-value function) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
673 (setq hook-value nil))) |
70b00615cb75
(add-hook): Initialize default value and local value.
Richard M. Stallman <rms@gnu.org>
parents:
8959
diff
changeset
|
674 (set-default hook hook-value))))) |
9510
f03544494d1c
(add-to-list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9202
diff
changeset
|
675 |
f03544494d1c
(add-to-list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9202
diff
changeset
|
676 (defun add-to-list (list-var element) |
9535 | 677 "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet. |
13812 | 678 The test for presence of ELEMENT is done with `equal'. |
9535 | 679 If you want to use `add-to-list' on a variable that is not defined |
680 until a certain package is loaded, you should put the call to `add-to-list' | |
681 into a hook function that will be run only after loading the package. | |
682 `eval-after-load' provides one way to do this. In some cases | |
683 other hooks, such as major mode hooks, can do the job." | |
21409
3e8b7782f4f5
(add-to-list): Always return updated value of LIST-VAR.
Karl Heuer <kwzh@gnu.org>
parents:
21173
diff
changeset
|
684 (if (member element (symbol-value list-var)) |
3e8b7782f4f5
(add-to-list): Always return updated value of LIST-VAR.
Karl Heuer <kwzh@gnu.org>
parents:
21173
diff
changeset
|
685 (symbol-value list-var) |
3e8b7782f4f5
(add-to-list): Always return updated value of LIST-VAR.
Karl Heuer <kwzh@gnu.org>
parents:
21173
diff
changeset
|
686 (set list-var (cons element (symbol-value list-var))))) |
114 | 687 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
688 ;;;; Specifying things to do after certain files are loaded. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
689 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
690 (defun eval-after-load (file form) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
691 "Arrange that, if FILE is ever loaded, FORM will be run at that time. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
692 This makes or adds to an entry on `after-load-alist'. |
10794
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
693 If FILE is already loaded, evaluate FORM right now. |
5440
856ecdc5228a
(eval-after-load): Do nothing if FORM is already on the list.
Richard M. Stallman <rms@gnu.org>
parents:
5421
diff
changeset
|
694 It does nothing if FORM is already on the list for FILE. |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
695 FILE should be the name of a library, with no directory name." |
10794
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
696 ;; Make sure there is an element for FILE. |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
697 (or (assoc file after-load-alist) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
698 (setq after-load-alist (cons (list file) after-load-alist))) |
10794
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
699 ;; Add FORM to the element if it isn't there. |
5440
856ecdc5228a
(eval-after-load): Do nothing if FORM is already on the list.
Richard M. Stallman <rms@gnu.org>
parents:
5421
diff
changeset
|
700 (let ((elt (assoc file after-load-alist))) |
856ecdc5228a
(eval-after-load): Do nothing if FORM is already on the list.
Richard M. Stallman <rms@gnu.org>
parents:
5421
diff
changeset
|
701 (or (member form (cdr elt)) |
10794
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
702 (progn |
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
703 (nconc elt (list form)) |
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
704 ;; If the file has been loaded already, run FORM right away. |
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
705 (and (assoc file load-history) |
4443f78a2117
(eval-after-load): Run FORM now if FILE's already loaded.
Richard M. Stallman <rms@gnu.org>
parents:
10693
diff
changeset
|
706 (eval form))))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
707 form) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
708 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
709 (defun eval-next-after-load (file) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
710 "Read the following input sexp, and run it whenever FILE is loaded. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
711 This makes or adds to an entry on `after-load-alist'. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
712 FILE should be the name of a library, with no directory name." |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
713 (eval-after-load file (read))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
714 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
715 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
716 ;;;; Input and display facilities. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
717 |
18880
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
718 (defvar read-quoted-char-radix 8 |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
719 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'. |
18880
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
720 Legitimate radix values are 8, 10 and 16.") |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
721 |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
722 (custom-declare-variable-early |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
723 'read-quoted-char-radix 8 |
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
724 "*Radix for \\[quoted-insert] and other uses of `read-quoted-char'. |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
725 Legitimate radix values are 8, 10 and 16." |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
726 :type '(choice (const 8) (const 10) (const 16)) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
727 :group 'editing-basics) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
728 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
729 (defun read-quoted-char (&optional prompt) |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
730 "Like `read-char', but do not allow quitting. |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
731 Also, if the first character read is an octal digit, |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
732 we read any number of octal digits and return the |
21008
7111f9cf9392
(read-quoted-char): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20939
diff
changeset
|
733 specified character code. Any nondigit terminates the sequence. |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
734 If the terminator is RET, it is discarded; |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
735 any other terminator is used itself as input. |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
736 |
21008
7111f9cf9392
(read-quoted-char): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20939
diff
changeset
|
737 The optional argument PROMPT specifies a string to use to prompt the user. |
7111f9cf9392
(read-quoted-char): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20939
diff
changeset
|
738 The variable `read-quoted-char-radix' controls which radix to use |
7111f9cf9392
(read-quoted-char): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
20939
diff
changeset
|
739 for numeric input." |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
740 (let ((message-log-max nil) done (first t) (code 0) char) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
741 (while (not done) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
742 (let ((inhibit-quit first) |
12108
f75e47f673f4
(read-quoted-char): Turn on help-form and turn off help-char.
Karl Heuer <kwzh@gnu.org>
parents:
12016
diff
changeset
|
743 ;; Don't let C-h get the help message--only help function keys. |
f75e47f673f4
(read-quoted-char): Turn on help-form and turn off help-char.
Karl Heuer <kwzh@gnu.org>
parents:
12016
diff
changeset
|
744 (help-char nil) |
f75e47f673f4
(read-quoted-char): Turn on help-form and turn off help-char.
Karl Heuer <kwzh@gnu.org>
parents:
12016
diff
changeset
|
745 (help-form |
f75e47f673f4
(read-quoted-char): Turn on help-form and turn off help-char.
Karl Heuer <kwzh@gnu.org>
parents:
12016
diff
changeset
|
746 "Type the special character you want to use, |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
747 or the octal character code. |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
748 RET terminates the character code and is discarded; |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
749 any other non-digit terminates the character code and is then used as input.")) |
23058
4d7992b69c29
(read-quoted-char): Don't bind input-method-function;
Richard M. Stallman <rms@gnu.org>
parents:
22960
diff
changeset
|
750 (setq char (read-event (and prompt (format "%s-" prompt)) t)) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
751 (if inhibit-quit (setq quit-flag nil))) |
18948
faab6e4baa7d
(read-quoted-char): Convert function keys like Return
Richard M. Stallman <rms@gnu.org>
parents:
18880
diff
changeset
|
752 ;; Translate TAB key into control-I ASCII character, and so on. |
faab6e4baa7d
(read-quoted-char): Convert function keys like Return
Richard M. Stallman <rms@gnu.org>
parents:
18880
diff
changeset
|
753 (and char |
faab6e4baa7d
(read-quoted-char): Convert function keys like Return
Richard M. Stallman <rms@gnu.org>
parents:
18880
diff
changeset
|
754 (let ((translated (lookup-key function-key-map (vector char)))) |
19175
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
755 (if (arrayp translated) |
18948
faab6e4baa7d
(read-quoted-char): Convert function keys like Return
Richard M. Stallman <rms@gnu.org>
parents:
18880
diff
changeset
|
756 (setq char (aref translated 0))))) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
757 (cond ((null char)) |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
758 ((not (integerp char)) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
759 (setq unread-command-events (list char) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
760 done t)) |
19175
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
761 ((/= (logand char ?\M-\^@) 0) |
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
762 ;; Turn a meta-character into a character with the 0200 bit set. |
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
763 (setq code (logior (logand char (lognot ?\M-\^@)) 128) |
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
764 done t)) |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
765 ((and (<= ?0 char) (< char (+ ?0 (min 10 read-quoted-char-radix)))) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
766 (setq code (+ (* code read-quoted-char-radix) (- char ?0))) |
14343
ab021899d604
(read-quoted-char): Delete format call inside message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
767 (and prompt (setq prompt (message "%s %c" prompt char)))) |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
768 ((and (<= ?a (downcase char)) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
769 (< (downcase char) (+ ?a -10 (min 26 read-quoted-char-radix)))) |
19002
f21881dcd27b
(read-quoted-char): Consistently downcase letter "digits".
Richard M. Stallman <rms@gnu.org>
parents:
18948
diff
changeset
|
770 (setq code (+ (* code read-quoted-char-radix) |
f21881dcd27b
(read-quoted-char): Consistently downcase letter "digits".
Richard M. Stallman <rms@gnu.org>
parents:
18948
diff
changeset
|
771 (+ 10 (- (downcase char) ?a)))) |
18828
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
772 (and prompt (setq prompt (message "%s %c" prompt char)))) |
4837387f683c
(read-quoted-char): Handle non-character events.
Richard M. Stallman <rms@gnu.org>
parents:
18821
diff
changeset
|
773 ((and (not first) (eq char ?\C-m)) |
18821
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
774 (setq done t)) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
775 ((not first) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
776 (setq unread-command-events (list char) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
777 done t)) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
778 (t (setq code char |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
779 done t))) |
83425393d550
(read-quoted-char): Read any number of octal digits,
Richard M. Stallman <rms@gnu.org>
parents:
18044
diff
changeset
|
780 (setq first nil)) |
19175
3d80c899a15d
(read-quoted-char): Fix handling of meta-chars.
Richard M. Stallman <rms@gnu.org>
parents:
19002
diff
changeset
|
781 code)) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
782 |
21092
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
783 (defun read-passwd (prompt &optional confirm default) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
784 "Read a password, prompting with PROMPT. Echo `.' for each character typed. |
20472
79ea90039b23
(read-password): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20410
diff
changeset
|
785 End with RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. |
21092
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
786 Optional argument CONFIRM, if non-nil, then read it twice to make sure. |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
787 Optional DEFAULT is a default password to use instead of empty input." |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
788 (if confirm |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
789 (let (success) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
790 (while (not success) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
791 (let ((first (read-passwd prompt nil default)) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
792 (second (read-passwd "Confirm password: " nil default))) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
793 (if (equal first second) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
794 (setq success first) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
795 (message "Password not repeated accurately; please start over") |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
796 (sit-for 1)))) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
797 success) |
23437
62f74712cbd6
(read-passwd): Use clear-this-command-keys.
Richard M. Stallman <rms@gnu.org>
parents:
23294
diff
changeset
|
798 (clear-this-command-keys) |
21092
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
799 (let ((pass nil) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
800 (c 0) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
801 (echo-keystrokes 0) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
802 (cursor-in-echo-area t)) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
803 (while (progn (message "%s%s" |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
804 prompt |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
805 (make-string (length pass) ?.)) |
23907
2cd294915abd
(read-passwd): Ignore input methods.
Karl Heuer <kwzh@gnu.org>
parents:
23786
diff
changeset
|
806 (setq c (read-char nil t)) |
21092
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
807 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
808 (if (= c ?\C-u) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
809 (setq pass "") |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
810 (if (and (/= c ?\b) (/= c ?\177)) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
811 (setq pass (concat pass (char-to-string c))) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
812 (if (> (length pass) 0) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
813 (setq pass (substring pass 0 -1)))))) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
814 (message nil) |
7726f8d9eff0
(read-passwd): Renamed from read-password. New second arg CONFIRM.
Richard M. Stallman <rms@gnu.org>
parents:
21066
diff
changeset
|
815 (or pass default "")))) |
20472
79ea90039b23
(read-password): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20410
diff
changeset
|
816 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
817 (defun force-mode-line-update (&optional all) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
818 "Force the mode-line of the current buffer to be redisplayed. |
6795
a379e974be7c
(force-mode-line-update): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
6725
diff
changeset
|
819 With optional non-nil ALL, force redisplay of all mode-lines." |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
820 (if all (save-excursion (set-buffer (other-buffer)))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
821 (set-buffer-modified-p (buffer-modified-p))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
822 |
114 | 823 (defun momentary-string-display (string pos &optional exit-char message) |
824 "Momentarily display STRING in the buffer at POS. | |
825 Display remains until next character is typed. | |
826 If the char is EXIT-CHAR (optional third arg, default is SPC) it is swallowed; | |
827 otherwise it is then available as input (as a command if nothing else). | |
828 Display MESSAGE (optional fourth arg) in the echo area. | |
829 If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." | |
830 (or exit-char (setq exit-char ?\ )) | |
24322
ca77d79a0c21
(momentary-string-display): Bind inhibit-read-only.
Richard M. Stallman <rms@gnu.org>
parents:
24245
diff
changeset
|
831 (let ((inhibit-read-only t) |
6553
fca6271b0983
(momentary-string-display): Avoid modifying the undo list.
Richard M. Stallman <rms@gnu.org>
parents:
6551
diff
changeset
|
832 ;; Don't modify the undo list at all. |
fca6271b0983
(momentary-string-display): Avoid modifying the undo list.
Richard M. Stallman <rms@gnu.org>
parents:
6551
diff
changeset
|
833 (buffer-undo-list t) |
114 | 834 (modified (buffer-modified-p)) |
835 (name buffer-file-name) | |
836 insert-end) | |
837 (unwind-protect | |
838 (progn | |
839 (save-excursion | |
840 (goto-char pos) | |
841 ;; defeat file locking... don't try this at home, kids! | |
842 (setq buffer-file-name nil) | |
843 (insert-before-markers string) | |
4620
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
844 (setq insert-end (point)) |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
845 ;; If the message end is off screen, recenter now. |
21173
e917eb0d4e01
(save-match-data): store-match-data => set-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
21092
diff
changeset
|
846 (if (< (window-end nil t) insert-end) |
4620
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
847 (recenter (/ (window-height) 2))) |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
848 ;; If that pushed message start off the screen, |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
849 ;; scroll to start it at the top of the screen. |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
850 (move-to-window-line 0) |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
851 (if (> (point) pos) |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
852 (progn |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
853 (goto-char pos) |
5474175de175
(momentary-string-display): Scroll to keep the string on the screen.
Richard M. Stallman <rms@gnu.org>
parents:
4518
diff
changeset
|
854 (recenter 0)))) |
114 | 855 (message (or message "Type %s to continue editing.") |
856 (single-key-description exit-char)) | |
2033
10cdd2928c7d
(momentary-string-display): Handle any event when flushing the display.
Richard M. Stallman <rms@gnu.org>
parents:
2021
diff
changeset
|
857 (let ((char (read-event))) |
114 | 858 (or (eq char exit-char) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1695
diff
changeset
|
859 (setq unread-command-events (list char))))) |
114 | 860 (if insert-end |
861 (save-excursion | |
862 (delete-region pos insert-end))) | |
863 (setq buffer-file-name name) | |
864 (set-buffer-modified-p modified)))) | |
865 | |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
866 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
867 ;;;; Miscellanea. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
868 |
10254
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
869 ;; A number of major modes set this locally. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
870 ;; Give it a global value to avoid compiler warnings. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
871 (defvar font-lock-defaults nil) |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
872 |
20846
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
873 (defvar suspend-hook nil |
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
874 "Normal hook run by `suspend-emacs', before suspending.") |
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
875 |
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
876 (defvar suspend-resume-hook nil |
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
877 "Normal hook run by `suspend-emacs', after Emacs is continued.") |
985a277c9b9a
(suspend-hook, suspend-resume-hook): New defvars.
Richard M. Stallman <rms@gnu.org>
parents:
20687
diff
changeset
|
878 |
10254
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
879 ;; Avoid compiler warnings about this variable, |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
880 ;; which has a special meaning on certain system types. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
881 (defvar buffer-file-type nil |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
882 "Non-nil if the visited file is a binary file. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
883 This variable is meaningful on MS-DOG and Windows NT. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
884 On those systems, it is automatically local in every buffer. |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
885 On other systems, this variable is normally always nil.") |
1ac3c8fea14a
(font-lock-defaults): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
10178
diff
changeset
|
886 |
14515
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
887 ;; This should probably be written in C (i.e., without using `walk-windows'). |
14707
ddcae263bb18
Make get-buffer-window-list take MINIBUF arg.
Simon Marshall <simon@gnu.org>
parents:
14517
diff
changeset
|
888 (defun get-buffer-window-list (buffer &optional minibuf frame) |
14515
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
889 "Return windows currently displaying BUFFER, or nil if none. |
14707
ddcae263bb18
Make get-buffer-window-list take MINIBUF arg.
Simon Marshall <simon@gnu.org>
parents:
14517
diff
changeset
|
890 See `walk-windows' for the meaning of MINIBUF and FRAME." |
14517
8b88e5c2a6d5
Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does).
Simon Marshall <simon@gnu.org>
parents:
14515
diff
changeset
|
891 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) |
14515
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
892 (walk-windows (function (lambda (window) |
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
893 (if (eq (window-buffer window) buffer) |
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
894 (setq windows (cons window windows))))) |
14707
ddcae263bb18
Make get-buffer-window-list take MINIBUF arg.
Simon Marshall <simon@gnu.org>
parents:
14517
diff
changeset
|
895 minibuf frame) |
14515
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
896 windows)) |
b35134a0e47a
Added get-buffer-window-list.
Simon Marshall <simon@gnu.org>
parents:
14343
diff
changeset
|
897 |
8211
08fb5e917205
(ignore): Put doc string in right place.
Richard M. Stallman <rms@gnu.org>
parents:
7693
diff
changeset
|
898 (defun ignore (&rest ignore) |
08fb5e917205
(ignore): Put doc string in right place.
Richard M. Stallman <rms@gnu.org>
parents:
7693
diff
changeset
|
899 "Do nothing and return nil. |
08fb5e917205
(ignore): Put doc string in right place.
Richard M. Stallman <rms@gnu.org>
parents:
7693
diff
changeset
|
900 This function accepts any number of arguments, but ignores them." |
7400
c415ff549eed
(ignore): Allow interactive call.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
901 (interactive) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
902 nil) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
903 |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
904 (defun error (&rest args) |
13936 | 905 "Signal an error, making error message by passing all args to `format'. |
906 In Emacs, the convention is that error messages start with a capital | |
907 letter but *do not* end with a period. Please follow this convention | |
908 for the sake of consistency." | |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
909 (while t |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
910 (signal 'error (list (apply 'format args))))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
911 |
5912
909b94d547c4
(user-original-login-name): Reduce to a defalias, since it's redundant with
Karl Heuer <kwzh@gnu.org>
parents:
5844
diff
changeset
|
912 (defalias 'user-original-login-name 'user-login-name) |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
913 |
114 | 914 (defun start-process-shell-command (name buffer &rest args) |
915 "Start a program in a subprocess. Return the process object for it. | |
916 Args are NAME BUFFER COMMAND &rest COMMAND-ARGS. | |
917 NAME is name for process. It is modified if necessary to make it unique. | |
918 BUFFER is the buffer or (buffer-name) to associate with the process. | |
919 Process output goes at end of that buffer, unless you specify | |
920 an output stream or filter function to handle the output. | |
921 BUFFER may be also nil, meaning that this process is not associated | |
922 with any buffer | |
923 Third arg is command name, the name of a shell command. | |
924 Remaining arguments are the arguments for the command. | |
5460
3bd42ee22d1f
(start-process-shell-command): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
5440
diff
changeset
|
925 Wildcards and redirection are handled as usual in the shell." |
9822
248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
Karl Heuer <kwzh@gnu.org>
parents:
9535
diff
changeset
|
926 (cond |
248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
Karl Heuer <kwzh@gnu.org>
parents:
9535
diff
changeset
|
927 ((eq system-type 'vax-vms) |
248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
Karl Heuer <kwzh@gnu.org>
parents:
9535
diff
changeset
|
928 (apply 'start-process name buffer args)) |
10025
3b058e13d177
(start-process-shell-command): Don't use `exec'--
Richard M. Stallman <rms@gnu.org>
parents:
9986
diff
changeset
|
929 ;; We used to use `exec' to replace the shell with the command, |
3b058e13d177
(start-process-shell-command): Don't use `exec'--
Richard M. Stallman <rms@gnu.org>
parents:
9986
diff
changeset
|
930 ;; but that failed to handle (...) and semicolon, etc. |
9822
248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
Karl Heuer <kwzh@gnu.org>
parents:
9535
diff
changeset
|
931 (t |
248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
Karl Heuer <kwzh@gnu.org>
parents:
9535
diff
changeset
|
932 (start-process name buffer shell-file-name shell-command-switch |
10025
3b058e13d177
(start-process-shell-command): Don't use `exec'--
Richard M. Stallman <rms@gnu.org>
parents:
9986
diff
changeset
|
933 (mapconcat 'identity args " "))))) |
16359
18cc78dc8b18
(with-temp-file): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16333
diff
changeset
|
934 |
16277
bbddbc86b82b
(with-current-buffer): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15983
diff
changeset
|
935 (defmacro with-current-buffer (buffer &rest body) |
bbddbc86b82b
(with-current-buffer): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15983
diff
changeset
|
936 "Execute the forms in BODY with BUFFER as the current buffer. |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
937 The value returned is the value of the last form in BODY. |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
938 See also `with-temp-buffer'." |
16277
bbddbc86b82b
(with-current-buffer): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15983
diff
changeset
|
939 `(save-current-buffer |
bbddbc86b82b
(with-current-buffer): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15983
diff
changeset
|
940 (set-buffer ,buffer) |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
941 ,@body)) |
16277
bbddbc86b82b
(with-current-buffer): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15983
diff
changeset
|
942 |
23736 | 943 (defmacro with-temp-file (file &rest body) |
944 "Create a new buffer, evaluate BODY there, and write the buffer to FILE. | |
945 The value returned is the value of the last form in BODY. | |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
946 See also `with-temp-buffer'." |
16359
18cc78dc8b18
(with-temp-file): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16333
diff
changeset
|
947 (let ((temp-file (make-symbol "temp-file")) |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
948 (temp-buffer (make-symbol "temp-buffer"))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
949 `(let ((,temp-file ,file) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
950 (,temp-buffer |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
951 (get-buffer-create (generate-new-buffer-name " *temp file*")))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
952 (unwind-protect |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
953 (prog1 |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
954 (with-current-buffer ,temp-buffer |
23736 | 955 ,@body) |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
956 (with-current-buffer ,temp-buffer |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
957 (widen) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
958 (write-region (point-min) (point-max) ,temp-file nil 0))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
959 (and (buffer-name ,temp-buffer) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
960 (kill-buffer ,temp-buffer)))))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
961 |
23736 | 962 (defmacro with-temp-message (message &rest body) |
24011 | 963 "Display MESSAGE temporarily if non-nil while BODY is evaluated. |
23736 | 964 The original message is restored to the echo area after BODY has finished. |
965 The value returned is the value of the last form in BODY. | |
24011 | 966 MESSAGE is written to the message log buffer if `message-log-max' is non-nil. |
967 If MESSAGE is nil, the echo area and message log buffer are unchanged. | |
968 Use a MESSAGE of \"\" to temporarily clear the echo area." | |
24000
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
969 (let ((current-message (make-symbol "current-message")) |
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
970 (temp-message (make-symbol "with-temp-message"))) |
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
971 `(let ((,temp-message ,message) |
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
972 (,current-message)) |
23736 | 973 (unwind-protect |
974 (progn | |
24000
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
975 (when ,temp-message |
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
976 (setq ,current-message (current-message)) |
2de7db40964d
(with-temp-message): Don't display MESSAGE if nil.
Simon Marshall <simon@gnu.org>
parents:
23907
diff
changeset
|
977 (message ,temp-message)) |
23736 | 978 ,@body) |
24385
92817fedff02
(with-temp-message): Use %s so % in old msg won't fool us.
Karl Heuer <kwzh@gnu.org>
parents:
24322
diff
changeset
|
979 (and ,temp-message ,current-message |
92817fedff02
(with-temp-message): Use %s so % in old msg won't fool us.
Karl Heuer <kwzh@gnu.org>
parents:
24322
diff
changeset
|
980 (message "%s" ,current-message)))))) |
23736 | 981 |
982 (defmacro with-temp-buffer (&rest body) | |
983 "Create a temporary buffer, and evaluate BODY there like `progn'. | |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
984 See also `with-temp-file' and `with-output-to-string'." |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
985 (let ((temp-buffer (make-symbol "temp-buffer"))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
986 `(let ((,temp-buffer |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
987 (get-buffer-create (generate-new-buffer-name " *temp*")))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
988 (unwind-protect |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
989 (with-current-buffer ,temp-buffer |
23736 | 990 ,@body) |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
991 (and (buffer-name ,temp-buffer) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
992 (kill-buffer ,temp-buffer)))))) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
993 |
16311
a56a8c6f2d8f
(with-output-to-string): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16294
diff
changeset
|
994 (defmacro with-output-to-string (&rest body) |
a56a8c6f2d8f
(with-output-to-string): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16294
diff
changeset
|
995 "Execute BODY, return the text it sent to `standard-output', as a string." |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
996 `(let ((standard-output |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
997 (get-buffer-create (generate-new-buffer-name " *string-output*")))) |
16311
a56a8c6f2d8f
(with-output-to-string): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16294
diff
changeset
|
998 (let ((standard-output standard-output)) |
a56a8c6f2d8f
(with-output-to-string): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16294
diff
changeset
|
999 ,@body) |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
1000 (with-current-buffer standard-output |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
1001 (prog1 |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
1002 (buffer-string) |
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
1003 (kill-buffer nil))))) |
16549
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1004 |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1005 (defmacro combine-after-change-calls (&rest body) |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1006 "Execute BODY, but don't call the after-change functions till the end. |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1007 If BODY makes changes in the buffer, they are recorded |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1008 and the functions on `after-change-functions' are called several times |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1009 when BODY is finished. |
17146
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1010 The return value is the value of the last form in BODY. |
16549
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1011 |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1012 If `before-change-functions' is non-nil, then calls to the after-change |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1013 functions can't be deferred, so in that case this macro has no effect. |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1014 |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1015 Do not alter `after-change-functions' or `before-change-functions' |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1016 in BODY." |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1017 `(unwind-protect |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1018 (let ((combine-after-change-calls t)) |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1019 . ,body) |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1020 (combine-after-change-execute))) |
30ddd0e52ace
(combine-after-change-calls): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16437
diff
changeset
|
1021 |
16379
dcc3625f52e2
(with-current-buffer): Minor cleanup.
Erik Naggum <erik@naggum.no>
parents:
16359
diff
changeset
|
1022 |
15955
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1023 (defvar save-match-data-internal) |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1024 |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1025 ;; We use save-match-data-internal as the local variable because |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1026 ;; that works ok in practice (people should not use that variable elsewhere). |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1027 ;; We used to use an uninterned symbol; the compiler handles that properly |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1028 ;; now, but it generates slower code. |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1029 (defmacro save-match-data (&rest body) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1030 "Execute the BODY forms, restoring the global value of the match data." |
15983
9a41bae14122
(save-match-data): Fix typo in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15965
diff
changeset
|
1031 `(let ((save-match-data-internal (match-data))) |
15955
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1032 (unwind-protect |
32d772cba2c1
(save-match-data): Use save-match-data-internal
Richard M. Stallman <rms@gnu.org>
parents:
15894
diff
changeset
|
1033 (progn ,@body) |
21173
e917eb0d4e01
(save-match-data): store-match-data => set-match-data.
Richard M. Stallman <rms@gnu.org>
parents:
21092
diff
changeset
|
1034 (set-match-data save-match-data-internal)))) |
144
535ec1aa78ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
114
diff
changeset
|
1035 |
11115
9414f249cd8b
Changed match-string to defun, but still return nil (no error) if no match.
Simon Marshall <simon@gnu.org>
parents:
11101
diff
changeset
|
1036 (defun match-string (num &optional string) |
11101
67231dca5f32
Change to macro, and return nil if there was no match at the specified depth.
Simon Marshall <simon@gnu.org>
parents:
11087
diff
changeset
|
1037 "Return string of text matched by last search. |
67231dca5f32
Change to macro, and return nil if there was no match at the specified depth.
Simon Marshall <simon@gnu.org>
parents:
11087
diff
changeset
|
1038 NUM specifies which parenthesized expression in the last regexp. |
67231dca5f32
Change to macro, and return nil if there was no match at the specified depth.
Simon Marshall <simon@gnu.org>
parents:
11087
diff
changeset
|
1039 Value is nil if NUMth pair didn't match, or there were less than NUM pairs. |
67231dca5f32
Change to macro, and return nil if there was no match at the specified depth.
Simon Marshall <simon@gnu.org>
parents:
11087
diff
changeset
|
1040 Zero means the entire text matched by the whole regexp or whole string. |
67231dca5f32
Change to macro, and return nil if there was no match at the specified depth.
Simon Marshall <simon@gnu.org>
parents:
11087
diff
changeset
|
1041 STRING should be given if the last search was by `string-match' on STRING." |
11115
9414f249cd8b
Changed match-string to defun, but still return nil (no error) if no match.
Simon Marshall <simon@gnu.org>
parents:
11101
diff
changeset
|
1042 (if (match-beginning num) |
9414f249cd8b
Changed match-string to defun, but still return nil (no error) if no match.
Simon Marshall <simon@gnu.org>
parents:
11101
diff
changeset
|
1043 (if string |
9414f249cd8b
Changed match-string to defun, but still return nil (no error) if no match.
Simon Marshall <simon@gnu.org>
parents:
11101
diff
changeset
|
1044 (substring string (match-beginning num) (match-end num)) |
9414f249cd8b
Changed match-string to defun, but still return nil (no error) if no match.
Simon Marshall <simon@gnu.org>
parents:
11101
diff
changeset
|
1045 (buffer-substring (match-beginning num) (match-end num))))) |
10560
fd09d51dfd77
(match-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10368
diff
changeset
|
1046 |
20491
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1047 (defun match-string-no-properties (num &optional string) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1048 "Return string of text matched by last search, without text properties. |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1049 NUM specifies which parenthesized expression in the last regexp. |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1050 Value is nil if NUMth pair didn't match, or there were less than NUM pairs. |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1051 Zero means the entire text matched by the whole regexp or whole string. |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1052 STRING should be given if the last search was by `string-match' on STRING." |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1053 (if (match-beginning num) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1054 (if string |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1055 (let ((result |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1056 (substring string (match-beginning num) (match-end num)))) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1057 (set-text-properties 0 (length result) nil result) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1058 result) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1059 (buffer-substring-no-properties (match-beginning num) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1060 (match-end num))))) |
d884af34ba47
(match-string-no-properties): New function.
Richard M. Stallman <rms@gnu.org>
parents:
20476
diff
changeset
|
1061 |
16314
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1062 (defun split-string (string &optional separators) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1063 "Splits STRING into substrings where there are matches for SEPARATORS. |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1064 Each match for SEPARATORS is a splitting point. |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1065 The substrings between the splitting points are made into a list |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1066 which is returned. |
20476
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1067 If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\". |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1068 |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1069 If there is match for SEPARATORS at the beginning of STRING, we do not |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1070 include a null substring for that. Likewise, if there is a match |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1071 at the end of STRING, we don't include a null substring for that." |
16314
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1072 (let ((rexp (or separators "[ \f\t\n\r\v]+")) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1073 (start 0) |
20476
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1074 notfirst |
16314
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1075 (list nil)) |
20476
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1076 (while (and (string-match rexp string |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1077 (if (and notfirst |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1078 (= start (match-beginning 0)) |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1079 (< start (length string))) |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1080 (1+ start) start)) |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1081 (< (match-beginning 0) (length string))) |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1082 (setq notfirst t) |
16333
585956e62c87
(split-string): Fix minor bug.
Richard M. Stallman <rms@gnu.org>
parents:
16314
diff
changeset
|
1083 (or (eq (match-beginning 0) 0) |
20476
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1084 (and (eq (match-beginning 0) (match-end 0)) |
f213a5906ea6
(split-string): Handle empty matches reasonably.
Richard M. Stallman <rms@gnu.org>
parents:
20472
diff
changeset
|
1085 (eq (match-beginning 0) start)) |
16314
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1086 (setq list |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1087 (cons (substring string start (match-beginning 0)) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1088 list))) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1089 (setq start (match-end 0))) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1090 (or (eq start (length string)) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1091 (setq list |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1092 (cons (substring string start) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1093 list))) |
c72b7ee606a3
(split-string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16311
diff
changeset
|
1094 (nreverse list))) |
24089
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1095 |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1096 (defun subst-char-in-string (fromchar tochar string &optional inplace) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1097 "Replace FROMCHAR with TOCHAR in STRING each time it occurs. |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1098 Unless optional argument INPLACE is non-nil, return a new string." |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1099 (let ((i (length string)) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1100 (newstr (if inplace string (copy-sequence string)))) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1101 (while (> i 0) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1102 (setq i (1- i)) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1103 (if (eq (aref newstr i) fromchar) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1104 (aset newstr i tochar))) |
70954a8be49b
(subst-char-in-string): New function.
Andrew Innes <andrewi@gnu.org>
parents:
24011
diff
changeset
|
1105 newstr)) |
16359
18cc78dc8b18
(with-temp-file): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
16333
diff
changeset
|
1106 |
5385
53077bf7c718
(shell-quote-argument): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5302
diff
changeset
|
1107 (defun shell-quote-argument (argument) |
53077bf7c718
(shell-quote-argument): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5302
diff
changeset
|
1108 "Quote an argument for passing as argument to an inferior shell." |
12465
0d404ef125ea
(shell-quote-argument): Don't do anything, on MS-DOS.
Richard M. Stallman <rms@gnu.org>
parents:
12395
diff
changeset
|
1109 (if (eq system-type 'ms-dos) |
0d404ef125ea
(shell-quote-argument): Don't do anything, on MS-DOS.
Richard M. Stallman <rms@gnu.org>
parents:
12395
diff
changeset
|
1110 ;; MS-DOS shells don't have quoting, so don't do any. |
0d404ef125ea
(shell-quote-argument): Don't do anything, on MS-DOS.
Richard M. Stallman <rms@gnu.org>
parents:
12395
diff
changeset
|
1111 argument |
0d404ef125ea
(shell-quote-argument): Don't do anything, on MS-DOS.
Richard M. Stallman <rms@gnu.org>
parents:
12395
diff
changeset
|
1112 (if (eq system-type 'windows-nt) |
0d404ef125ea
(shell-quote-argument): Don't do anything, on MS-DOS.
Richard M. Stallman <rms@gnu.org>
parents:
12395
diff
changeset
|
1113 (concat "\"" argument "\"") |
17610
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1114 (if (equal argument "") |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1115 "''" |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1116 ;; Quote everything except POSIX filename characters. |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1117 ;; This should be safe enough even for really weird shells. |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1118 (let ((result "") (start 0) end) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1119 (while (string-match "[^-0-9a-zA-Z_./]" argument start) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1120 (setq end (match-beginning 0) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1121 result (concat result (substring argument start end) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1122 "\\" (substring argument end (1+ end))) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1123 start (1+ end))) |
f95fbf6f1234
(shell-quote-argument): Quote null string usefully.
Richard M. Stallman <rms@gnu.org>
parents:
17437
diff
changeset
|
1124 (concat result (substring argument start))))))) |
5385
53077bf7c718
(shell-quote-argument): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5302
diff
changeset
|
1125 |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1126 (defun make-syntax-table (&optional oldtable) |
5421
a248a39fa4b8
(make-syntax-table): New function; no longer an alias
Richard M. Stallman <rms@gnu.org>
parents:
5385
diff
changeset
|
1127 "Return a new syntax table. |
17612
beaac591604a
(make-syntax-table): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17610
diff
changeset
|
1128 If OLDTABLE is non-nil, copy OLDTABLE. |
beaac591604a
(make-syntax-table): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17610
diff
changeset
|
1129 Otherwise, create a syntax table which inherits |
beaac591604a
(make-syntax-table): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17610
diff
changeset
|
1130 all letters and control characters from the standard syntax table; |
beaac591604a
(make-syntax-table): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17610
diff
changeset
|
1131 other characters are copied from the standard syntax table." |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1132 (if oldtable |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1133 (copy-syntax-table oldtable) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1134 (let ((table (copy-syntax-table)) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1135 i) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1136 (setq i 0) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1137 (while (<= i 31) |
13186
6d3d7b32c519
(make-syntax-table): Use nil for "inherit".
Richard M. Stallman <rms@gnu.org>
parents:
13039
diff
changeset
|
1138 (aset table i nil) |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1139 (setq i (1+ i))) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1140 (setq i ?A) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1141 (while (<= i ?Z) |
13186
6d3d7b32c519
(make-syntax-table): Use nil for "inherit".
Richard M. Stallman <rms@gnu.org>
parents:
13039
diff
changeset
|
1142 (aset table i nil) |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1143 (setq i (1+ i))) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1144 (setq i ?a) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1145 (while (<= i ?z) |
13186
6d3d7b32c519
(make-syntax-table): Use nil for "inherit".
Richard M. Stallman <rms@gnu.org>
parents:
13039
diff
changeset
|
1146 (aset table i nil) |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1147 (setq i (1+ i))) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1148 (setq i 128) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1149 (while (<= i 255) |
13186
6d3d7b32c519
(make-syntax-table): Use nil for "inherit".
Richard M. Stallman <rms@gnu.org>
parents:
13039
diff
changeset
|
1150 (aset table i nil) |
5844
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1151 (setq i (1+ i))) |
445de172c217
(make-syntax-table): Behave like copy-syntax-table if an argument is given,
Karl Heuer <kwzh@gnu.org>
parents:
5460
diff
changeset
|
1152 table))) |
17146
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1153 |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1154 (defun add-to-invisibility-spec (arg) |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1155 "Add elements to `buffer-invisibility-spec'. |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1156 See documentation for `buffer-invisibility-spec' for the kind of elements |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1157 that can be added." |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1158 (cond |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1159 ((or (null buffer-invisibility-spec) (eq buffer-invisibility-spec t)) |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1160 (setq buffer-invisibility-spec (list arg))) |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1161 (t |
17158
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
1162 (setq buffer-invisibility-spec |
f181580c182c
(when, unless): Symbol props moved from cl.el.
Karl Heuer <kwzh@gnu.org>
parents:
17152
diff
changeset
|
1163 (cons arg buffer-invisibility-spec))))) |
17146
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1164 |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1165 (defun remove-from-invisibility-spec (arg) |
b8536e42d4ef
(combine-after-change-calls): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
16845
diff
changeset
|
1166 "Remove elements from `buffer-invisibility-spec'." |
24245
418feab1639c
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
24089
diff
changeset
|
1167 (if (consp buffer-invisibility-spec) |
17152 | 1168 (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec)))) |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1169 |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1170 (defun global-set-key (key command) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1171 "Give KEY a global binding as COMMAND. |
20410
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1172 COMMAND is the command definition to use; usually it is |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1173 a symbol naming an interactively-callable function. |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1174 KEY is a key sequence; noninteractively, it is a string or vector |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1175 of characters or event types, and non-ASCII characters with codes |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1176 above 127 (such as ISO Latin-1) can be included if you use a vector. |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1177 |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1178 Note that if KEY has a local binding in the current buffer, |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1179 that local binding will continue to shadow any global binding |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1180 that you make with this function." |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1181 (interactive "KSet key globally: \nCSet key %s to command: ") |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1182 (or (vectorp key) (stringp key) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1183 (signal 'wrong-type-argument (list 'arrayp key))) |
21578
6175866e1b71
(local-set-key, global-set-key): Return what define-key returns.
Richard M. Stallman <rms@gnu.org>
parents:
21409
diff
changeset
|
1184 (define-key (current-global-map) key command)) |
5421
a248a39fa4b8
(make-syntax-table): New function; no longer an alias
Richard M. Stallman <rms@gnu.org>
parents:
5385
diff
changeset
|
1185 |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1186 (defun local-set-key (key command) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1187 "Give KEY a local binding as COMMAND. |
20410
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1188 COMMAND is the command definition to use; usually it is |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1189 a symbol naming an interactively-callable function. |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1190 KEY is a key sequence; noninteractively, it is a string or vector |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1191 of characters or event types, and non-ASCII characters with codes |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1192 above 127 (such as ISO Latin-1) can be included if you use a vector. |
af925352116e
(global-set-key, local-set-key): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
19662
diff
changeset
|
1193 |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1194 The binding goes in the current buffer's local map, |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1195 which in most cases is shared with all other buffers in the same major mode." |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1196 (interactive "KSet key locally: \nCSet key %s locally to command: ") |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1197 (let ((map (current-local-map))) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1198 (or map |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1199 (use-local-map (setq map (make-sparse-keymap)))) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1200 (or (vectorp key) (stringp key) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1201 (signal 'wrong-type-argument (list 'arrayp key))) |
21578
6175866e1b71
(local-set-key, global-set-key): Return what define-key returns.
Richard M. Stallman <rms@gnu.org>
parents:
21409
diff
changeset
|
1202 (define-key map key command))) |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1203 |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1204 (defun global-unset-key (key) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1205 "Remove global binding of KEY. |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1206 KEY is a string representing a sequence of keystrokes." |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1207 (interactive "kUnset key globally: ") |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1208 (global-set-key key nil)) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1209 |
10826
bd0ab0601489
(local-unset-key): Fix args in previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10825
diff
changeset
|
1210 (defun local-unset-key (key) |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1211 "Remove local binding of KEY. |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1212 KEY is a string representing a sequence of keystrokes." |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1213 (interactive "kUnset key locally: ") |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1214 (if (current-local-map) |
10826
bd0ab0601489
(local-unset-key): Fix args in previous change.
Karl Heuer <kwzh@gnu.org>
parents:
10825
diff
changeset
|
1215 (local-set-key key nil)) |
10825
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1216 nil) |
4dba26c66bf5
(global_set_key, local_set_key, global_unset_key)
Richard M. Stallman <rms@gnu.org>
parents:
10794
diff
changeset
|
1217 |
12016
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1218 ;; We put this here instead of in frame.el so that it's defined even on |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1219 ;; systems where frame.el isn't loaded. |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1220 (defun frame-configuration-p (object) |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1221 "Return non-nil if OBJECT seems to be a frame configuration. |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1222 Any list whose car is `frame-configuration' is assumed to be a frame |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1223 configuration." |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1224 (and (consp object) |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1225 (eq (car object) 'frame-configuration))) |
3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
Karl Heuer <kwzh@gnu.org>
parents:
11640
diff
changeset
|
1226 |
17418
726a87ac1486
(functionp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17215
diff
changeset
|
1227 (defun functionp (object) |
18880
1ed40ed8e0c1
(custom-declare-variable-early): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18828
diff
changeset
|
1228 "Non-nil if OBJECT is a type of object that can be called as a function." |
19176
d8eb24685152
(functionp): Use byte-code-function-p, not compiled-function-p.
Richard M. Stallman <rms@gnu.org>
parents:
19175
diff
changeset
|
1229 (or (subrp object) (byte-code-function-p object) |
17418
726a87ac1486
(functionp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17215
diff
changeset
|
1230 (eq (car-safe object) 'lambda) |
726a87ac1486
(functionp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17215
diff
changeset
|
1231 (and (symbolp object) (fboundp object)))) |
726a87ac1486
(functionp): New function.
Richard M. Stallman <rms@gnu.org>
parents:
17215
diff
changeset
|
1232 |
2504
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1233 ;; now in fns.c |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1234 ;(defun nth (n list) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1235 ; "Returns the Nth element of LIST. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1236 ;N counts from zero. If LIST is not that long, nil is returned." |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1237 ; (car (nthcdr n list))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1238 ; |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1239 ;(defun copy-alist (alist) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1240 ; "Return a copy of ALIST. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1241 ;This is a new alist which represents the same mapping |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1242 ;from objects to objects, but does not share the alist structure with ALIST. |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1243 ;The objects mapped (cars and cdrs of elements of the alist) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1244 ;are shared, however." |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1245 ; (setq alist (copy-sequence alist)) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1246 ; (let ((tail alist)) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1247 ; (while tail |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1248 ; (if (consp (car tail)) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1249 ; (setcar tail (cons (car (car tail)) (cdr (car tail))))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1250 ; (setq tail (cdr tail)))) |
181eef669324
* subr.el (overlay-start, overlay-end, overlay-buffer): New
Jim Blandy <jimb@redhat.com>
parents:
2428
diff
changeset
|
1251 ; alist) |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
1252 |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
1253 ;;; subr.el ends here |