Mercurial > emacs
annotate lisp/bindings.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 | d015bfcaaead |
children | 6f29d3fe8aa5 |
rev | line source |
---|---|
16164 | 1 ;;; bindings.el --- define standard key bindings and some variables. |
2 | |
3 ;; Copyright (C) 1985,86,87,92,93,94,95,96 Free Software Foundation, Inc. | |
4 | |
5 ;; Maintainer: FSF | |
6 ;; Keywords: internal | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Commentary: | |
26 | |
27 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | |
28 ;;; Special formatting conventions are used in this file! | |
29 ;;; | |
30 ;;; a backslash-newline is used at the beginning of a documentation string | |
31 ;;; when that string should be stored in the file etc/DOCnnn, not in core. | |
32 ;;; | |
33 ;;; Such strings read into Lisp as numbers (during the pure-loading phase). | |
34 ;;; | |
35 ;;; But you must obey certain rules to make sure the string is understood | |
36 ;;; and goes into etc/DOCnnn properly. Otherwise, the string will not go | |
37 ;;; anywhere! | |
38 ;;; | |
39 ;;; The doc string must appear in the standard place in a call to | |
40 ;;; defun, autoload, defvar or defconst. No Lisp macros are recognized. | |
41 ;;; The open-paren starting the definition must appear in column 0. | |
42 ;;; | |
43 ;;; In defvar and defconst, there is an additional rule: | |
44 ;;; The double-quote that starts the string must be on the same | |
45 ;;; line as the defvar or defconst. | |
46 ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | |
47 | |
48 ;;; Code: | |
49 | |
17058
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
50 (defconst mode-line-mule-info |
19075
a0386e6bb200
(mode-line-mule-info): Delete the conditional on enable-multibyte-characters.
Richard M. Stallman <rms@gnu.org>
parents:
19024
diff
changeset
|
51 (purecopy '("" |
a0386e6bb200
(mode-line-mule-info): Delete the conditional on enable-multibyte-characters.
Richard M. Stallman <rms@gnu.org>
parents:
19024
diff
changeset
|
52 (current-input-method ("" current-input-method-title)) |
a0386e6bb200
(mode-line-mule-info): Delete the conditional on enable-multibyte-characters.
Richard M. Stallman <rms@gnu.org>
parents:
19024
diff
changeset
|
53 "%Z")) |
18303
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
54 "Mode-line control for displaying information of multilingual environment. |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
55 Normally it displays current input method (if any activated) and |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
56 mnemonics of the following coding systems: |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
57 coding system for saving or writing the current buffer |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
58 coding system for keyboard input (if Emacs is running on terminal) |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
59 coding system for terminal output (if Emacs is running on terminal) |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
60 coding system for decoding output of buffer process (if any) |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
61 coding system for encoding text to send to buffer process (if any).") |
17058
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
62 |
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
63 (make-variable-buffer-local 'mode-line-mule-info) |
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
64 |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
65 (defvar mode-line-buffer-identification (purecopy '("%12b")) |
16164 | 66 "Mode-line control for identifying the buffer being displayed. |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
67 Its default value is (\"%12b\"). |
16164 | 68 Major modes that edit things other than ordinary files may change this |
69 \(e.g. Info, Dired,...)") | |
70 | |
71 (make-variable-buffer-local 'mode-line-buffer-identification) | |
72 | |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
73 (defvar mode-line-frame-identification '("-%F ")) |
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
74 |
16691
285f4e41d163
Change defconsts to defvars.
Richard M. Stallman <rms@gnu.org>
parents:
16523
diff
changeset
|
75 (defvar mode-line-process nil |
16164 | 76 "Mode-line control for displaying info on process status. |
77 Normally nil in most modes, since there is no process to display.") | |
78 | |
79 (make-variable-buffer-local 'mode-line-process) | |
80 | |
17908
7b6e3fad2a07
(mode-line-mule-info): Add a colon.
Richard M. Stallman <rms@gnu.org>
parents:
17854
diff
changeset
|
81 (defvar mode-line-modified (purecopy '("%1*%1+")) |
16164 | 82 "Mode-line control for displaying whether current buffer is modified.") |
83 | |
84 (make-variable-buffer-local 'mode-line-modified) | |
85 | |
86 (setq-default mode-line-format | |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
87 (list (purecopy "-") |
17058
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
88 'mode-line-mule-info |
16164 | 89 'mode-line-modified |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
90 'mode-line-frame-identification |
16164 | 91 'mode-line-buffer-identification |
92 (purecopy " ") | |
93 'global-mode-string | |
94 (purecopy " %[(") | |
95 'mode-name 'mode-line-process 'minor-mode-alist | |
96 (purecopy "%n") | |
97 (purecopy ")%]--") | |
20353
2a4989c460bb
(mode-line-format): Include which-func-mode item.
Richard M. Stallman <rms@gnu.org>
parents:
19075
diff
changeset
|
98 '(which-func-mode ("" which-func-format "--")) |
16164 | 99 (purecopy '(line-number-mode "L%l--")) |
100 (purecopy '(column-number-mode "C%c--")) | |
101 (purecopy '(-3 . "%p")) | |
102 (purecopy "-%-"))) | |
103 | |
104 (defvar minor-mode-alist nil "\ | |
105 Alist saying how to show minor modes in the mode line. | |
106 Each element looks like (VARIABLE STRING); | |
107 STRING is included in the mode line iff VARIABLE's value is non-nil. | |
108 | |
109 Actually, STRING need not be a string; any possible mode-line element | |
110 is okay. See `mode-line-format'.") | |
16523
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
111 ;; Don't use purecopy here--some people want to change these strings. |
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
112 (setq minor-mode-alist '((abbrev-mode " Abbrev") |
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
113 (overwrite-mode overwrite-mode) |
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
114 (auto-fill-function " Fill") |
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
115 ;; not really a minor mode... |
53306ee8953d
(minor-mode-alist): Don't use purecopy.
Richard M. Stallman <rms@gnu.org>
parents:
16164
diff
changeset
|
116 (defining-kbd-macro " Def"))) |
16164 | 117 |
118 ;; These variables are used by autoloadable packages. | |
119 ;; They are defined here so that they do not get overridden | |
120 ;; by the loading of those packages. | |
121 | |
122 ;; Names in directory that end in one of these | |
123 ;; are ignored in completion, | |
124 ;; making it more likely you will get a unique match. | |
125 (setq completion-ignored-extensions | |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
126 (append |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
127 (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt)) |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
128 '(".o" "~" ".bin" ".bak" ".obj" ".map" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
129 ".a" ".ln" ".blg" ".bbl")) |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
130 ((eq system-type 'vax-vms) |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
131 '(".obj" ".exe" ".bin" ".lbin" ".sbin" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
132 ".brn" ".rnt" ".mem" ".lni" ".lis" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
133 ".olb" ".tlb" ".mlb" ".hlb")) |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
134 (t |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
135 '(".o" "~" ".bin" ".lbin" ".fasl" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
136 ".a" ".ln" ".blg" ".bbl"))) |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
137 '(".elc" ".lof" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
138 ".glo" ".idx" ".lot" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
139 ;; TeX-related |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
140 ".dvi" ".fmt" |
21309
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
141 ;; Java compiled |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
142 ".class" |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
143 ;; Clisp |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
144 ".fas" ".lib" |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
145 ;; CMUCL |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
146 ".x86f" |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
147 ;; Texinfo-related |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
148 ".toc" ".log" ".aux" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
149 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
150 ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs"))) |
16164 | 151 |
152 (setq debug-ignored-errors | |
153 '(beginning-of-line beginning-of-buffer end-of-line | |
154 end-of-buffer end-of-file buffer-read-only | |
21309
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
155 file-supersession |
16164 | 156 "^Previous command was not a yank$" |
157 "^Minibuffer window is not active$" | |
158 "^End of history; no next item$" | |
159 "^Beginning of history; no preceding item$" | |
160 "^No recursive edit is in progress$" | |
161 "^Changes to be undone are outside visible portion of buffer$" | |
162 "^No undo information in this buffer$" | |
163 "^No further undo information$" | |
164 "^Save not confirmed$" | |
165 "^Recover-file cancelled\\.$" | |
20798
25b0721fc2fc
(debug-ignored-errors): Add some elements.
Richard M. Stallman <rms@gnu.org>
parents:
20638
diff
changeset
|
166 "^Cannot switch buffers in a dedicated window$" |
16164 | 167 |
168 ;; comint | |
169 "^Not at command line$" | |
170 "^Empty input ring$" | |
171 "^No history$" | |
172 "^Not found$";; To common? | |
173 "^Current buffer has no process$" | |
174 | |
175 ;; dabbrev | |
17537
353927a72c58
(debug-ignored-errors): Update the regexps for
Richard M. Stallman <rms@gnu.org>
parents:
17058
diff
changeset
|
176 "^No dynamic expansion for .* found$" |
353927a72c58
(debug-ignored-errors): Update the regexps for
Richard M. Stallman <rms@gnu.org>
parents:
17058
diff
changeset
|
177 "^No further dynamic expansion for .* found$" |
18954
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
178 "^No possible abbreviation preceding point$" |
16164 | 179 |
180 ;; Completion | |
181 "^To complete, the point must be after a symbol at least [0-9]* character long\\.$" | |
182 "^The string \".*\" is too short to be saved as a completion\\.$" | |
183 | |
184 ;; Compile | |
185 "^No more errors\\( yet\\|\\)$" | |
186 | |
187 ;; Gnus | |
188 "^NNTP: Connection closed\\.$" | |
189 | |
190 ;; info | |
191 "^Node has no Previous$" | |
20798
25b0721fc2fc
(debug-ignored-errors): Add some elements.
Richard M. Stallman <rms@gnu.org>
parents:
20638
diff
changeset
|
192 "^No menu in this node$" |
25b0721fc2fc
(debug-ignored-errors): Add some elements.
Richard M. Stallman <rms@gnu.org>
parents:
20638
diff
changeset
|
193 "^Node has no Next$" |
16164 | 194 "^No \".*\" in index$" |
195 | |
196 ;; imenu | |
197 "^No items suitable for an index found in this buffer\\.$" | |
18450
327eba076416
(debug-ignored-errors): Correct the error messages
Richard M. Stallman <rms@gnu.org>
parents:
18325
diff
changeset
|
198 "^This buffer cannot use `imenu-default-create-index-function'$" |
327eba076416
(debug-ignored-errors): Correct the error messages
Richard M. Stallman <rms@gnu.org>
parents:
18325
diff
changeset
|
199 "^The mode `.*' does not support Imenu$" |
16164 | 200 |
201 ;; ispell | |
202 "^No word found to check!$" | |
203 | |
204 ;; mh-e | |
205 "^Cursor not pointing to message$" | |
206 "^There is no other window$" | |
207 | |
208 ;; man | |
209 "^No manpage [0-9]* found$" | |
21634
f1b591066832
(debug-ignored-errors): Add and remove strings.
Richard M. Stallman <rms@gnu.org>
parents:
21309
diff
changeset
|
210 "^Can't find the .* manpage$" |
16164 | 211 |
212 ;; etags | |
18624
ecf30a8391d5
(complete-symbol): Accept an argument.
Richard M. Stallman <rms@gnu.org>
parents:
18524
diff
changeset
|
213 "^No tags table in use; use .* to select one$" |
16164 | 214 "^There is no default tag$" |
215 "^No previous tag locations$" | |
216 "^File .* is not a valid tags table$" | |
217 "^No \\(more \\|\\)tags \\(matching\\|containing\\) " | |
218 "^Rerun etags: `.*' not found in " | |
18624
ecf30a8391d5
(complete-symbol): Accept an argument.
Richard M. Stallman <rms@gnu.org>
parents:
18524
diff
changeset
|
219 "^All files processed$" |
ecf30a8391d5
(complete-symbol): Accept an argument.
Richard M. Stallman <rms@gnu.org>
parents:
18524
diff
changeset
|
220 "^No .* or .* in progress$" |
16164 | 221 "^File .* not in current tags tables$" |
18624
ecf30a8391d5
(complete-symbol): Accept an argument.
Richard M. Stallman <rms@gnu.org>
parents:
18524
diff
changeset
|
222 "^No tags table loaded" |
16164 | 223 "^Nothing to complete$" |
18954
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
224 |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
225 ;; ediff |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
226 "^Errors in diff output. Diff output is in " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
227 "^Hmm... I don't see an Ediff command around here...$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
228 "^Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
229 ": This command runs in Ediff Control Buffer only!$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
230 ": Invalid op in ediff-check-version$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
231 "^ediff-shrink-window-C can be used only for merging jobs$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
232 "^Lost difference info on these directories$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
233 "^This command is inapplicable in the present context$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
234 "^This session group has no parent$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
235 "^Can't hide active session, $" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
236 "^Ediff: something wrong--no multiple diffs buffer$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
237 "^Can't make context diff for Session $" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
238 "^The patch buffer wasn't found$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
239 "^Aborted$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
240 "^This Ediff session is not part of a session group$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
241 "^No active Ediff sessions or corrupted session registry$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
242 "^No session info in this line$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
243 "^`.*' is not an ordinary file$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
244 "^Patch appears to have failed$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
245 "^Recomputation of differences cancelled$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
246 "^No fine differences in this mode$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
247 "^Lost connection to ancestor buffer...sorry$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
248 "^Not merging with ancestor$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
249 "^Don't know how to toggle read-only in buffer " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
250 "Emacs is not running as a window application$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
251 "^This command makes sense only when merging with an ancestor$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
252 "^At end of the difference list$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
253 "^At beginning of the difference list$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
254 "^Nothing saved for diff .* in buffer " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
255 "^Buffer is out of sync for file " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
256 "^Buffer out of sync for file " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
257 "^Output from `diff' not found$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
258 "^You forgot to specify a region in buffer " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
259 "^All right. Make up your mind and come back...$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
260 "^Current buffer is not visiting any file$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
261 "^Failed to retrieve revision: $" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
262 "^Can't determine display width.$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
263 "^File `.*' does not exist or is not readable$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
264 "^File `.*' is a directory$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
265 "^Buffer .* doesn't exist$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
266 "^Directories . and . are the same: " |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
267 "^Directory merge aborted$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
268 "^Merge of directory revisions aborted$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
269 "^Buffer .* doesn't exist$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
270 "^There is no file to merge$" |
c247e7c26139
(debug-ignored-errors): Update the dabbrev.el errors.
Richard M. Stallman <rms@gnu.org>
parents:
18939
diff
changeset
|
271 "^Version control package .*.el not found. Use vc.el instead$" |
21670
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21634
diff
changeset
|
272 |
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21634
diff
changeset
|
273 ;; cus-edit |
808ecc2eaa84
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21634
diff
changeset
|
274 "^No user options have changed defaults in recent Emacs versions$" |
16164 | 275 |
276 ;; BBDB | |
277 "^no previous record$" | |
278 "^no next record$")) | |
279 | |
280 | |
281 (make-variable-buffer-local 'indent-tabs-mode) | |
282 | |
23783
d015bfcaaead
(features): Add `base64' to this list.
Richard M. Stallman <rms@gnu.org>
parents:
22705
diff
changeset
|
283 ;; We have base64 functions built in now. |
d015bfcaaead
(features): Add `base64' to this list.
Richard M. Stallman <rms@gnu.org>
parents:
22705
diff
changeset
|
284 (add-to-list 'features 'base64) |
d015bfcaaead
(features): Add `base64' to this list.
Richard M. Stallman <rms@gnu.org>
parents:
22705
diff
changeset
|
285 |
18325
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
286 (define-key esc-map "\t" 'complete-symbol) |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
287 |
18624
ecf30a8391d5
(complete-symbol): Accept an argument.
Richard M. Stallman <rms@gnu.org>
parents:
18524
diff
changeset
|
288 (defun complete-symbol (arg) |
16164 | 289 "Perform tags completion on the text around point. |
290 Completes to the set of names listed in the current tags table. | |
291 The string to complete is chosen in the same way as the default | |
292 for \\[find-tag] (which see)." | |
18325
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
293 (interactive "P") |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
294 (if arg |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
295 (if (fboundp 'complete-tag) |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
296 (complete-tag) |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
297 ;; Don't autoload etags if we have no tags table. |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
298 (error (substitute-command-keys |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
299 "No tags table loaded; use \\[visit-tags-table] to load one"))) |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
300 (info-complete-symbol))) |
16164 | 301 |
302 ;; Reduce total amount of space we must allocate during this function | |
303 ;; that we will not need to keep permanently. | |
304 (garbage-collect) | |
305 | |
22705
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
306 ;; Make all multibyte characters self-insert. |
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
307 (let ((l (generic-character-list)) |
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
308 (table (nth 1 global-map))) |
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
309 (while l |
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
310 (set-char-table-default table (car l) 'self-insert-command) |
34b38e5d0e9d
Make all multibyte characters self-insert.
Kenichi Handa <handa@m17n.org>
parents:
22424
diff
changeset
|
311 (setq l (cdr l)))) |
17784
5b2fa4a13a8b
Define Latin-1, Latin-2 and Latin-3 chars as self-inserting.
Richard M. Stallman <rms@gnu.org>
parents:
17595
diff
changeset
|
312 |
16164 | 313 (setq help-event-list '(help f1)) |
314 | |
20577
46c697b88c83
(minor-mode-overriding-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
20416
diff
changeset
|
315 (make-variable-buffer-local 'minor-mode-overriding-map-alist) |
46c697b88c83
(minor-mode-overriding-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
20416
diff
changeset
|
316 |
16164 | 317 ;These commands are defined in editfns.c |
318 ;but they are not assigned to keys there. | |
319 (put 'narrow-to-region 'disabled t) | |
320 (define-key ctl-x-map "nn" 'narrow-to-region) | |
321 (define-key ctl-x-map "nw" 'widen) | |
322 ;; (define-key ctl-x-map "n" 'narrow-to-region) | |
323 ;; (define-key ctl-x-map "w" 'widen) | |
324 | |
325 (define-key global-map "\C-j" 'newline-and-indent) | |
326 (define-key global-map "\C-m" 'newline) | |
327 (define-key global-map "\C-o" 'open-line) | |
328 (define-key esc-map "\C-o" 'split-line) | |
329 (define-key global-map "\C-q" 'quoted-insert) | |
330 (define-key esc-map "^" 'delete-indentation) | |
331 (define-key esc-map "\\" 'delete-horizontal-space) | |
332 (define-key esc-map "m" 'back-to-indentation) | |
333 (define-key ctl-x-map "\C-o" 'delete-blank-lines) | |
334 (define-key esc-map " " 'just-one-space) | |
335 (define-key esc-map "z" 'zap-to-char) | |
336 (define-key esc-map "=" 'count-lines-region) | |
337 (define-key ctl-x-map "=" 'what-cursor-position) | |
338 (define-key esc-map ":" 'eval-expression) | |
339 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. | |
340 (define-key esc-map "\M-:" 'eval-expression) | |
341 ;; Changed from C-x ESC so that function keys work following C-x. | |
342 (define-key ctl-x-map "\e\e" 'repeat-complex-command) | |
343 ;; New binding analogous to M-:. | |
344 (define-key ctl-x-map "\M-:" 'repeat-complex-command) | |
345 (define-key ctl-x-map "u" 'advertised-undo) | |
346 ;; Many people are used to typing C-/ on X terminals and getting C-_. | |
347 (define-key global-map [?\C-/] 'undo) | |
348 (define-key global-map "\C-_" 'undo) | |
349 (define-key esc-map "!" 'shell-command) | |
350 (define-key esc-map "|" 'shell-command-on-region) | |
351 | |
352 ;; This is an experiment--make up and down arrows do history. | |
353 (define-key minibuffer-local-map [up] 'previous-history-element) | |
354 (define-key minibuffer-local-map [down] 'next-history-element) | |
355 (define-key minibuffer-local-ns-map [up] 'previous-history-element) | |
356 (define-key minibuffer-local-ns-map [down] 'next-history-element) | |
357 (define-key minibuffer-local-completion-map [up] 'previous-history-element) | |
358 (define-key minibuffer-local-completion-map [down] 'next-history-element) | |
359 (define-key minibuffer-local-must-match-map [up] 'previous-history-element) | |
360 (define-key minibuffer-local-must-match-map [down] 'next-history-element) | |
361 | |
362 (define-key global-map "\C-u" 'universal-argument) | |
363 (let ((i ?0)) | |
364 (while (<= i ?9) | |
365 (define-key esc-map (char-to-string i) 'digit-argument) | |
366 (setq i (1+ i)))) | |
367 (define-key esc-map "-" 'negative-argument) | |
368 ;; Define control-digits. | |
369 (let ((i ?0)) | |
370 (while (<= i ?9) | |
371 (define-key global-map (read (format "[?\\C-%c]" i)) 'digit-argument) | |
372 (setq i (1+ i)))) | |
373 (define-key global-map [?\C--] 'negative-argument) | |
374 ;; Define control-meta-digits. | |
375 (let ((i ?0)) | |
376 (while (<= i ?9) | |
377 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) | |
378 (setq i (1+ i)))) | |
379 (define-key global-map [?\C-\M--] 'negative-argument) | |
380 | |
381 (define-key global-map "\C-k" 'kill-line) | |
382 (define-key global-map "\C-w" 'kill-region) | |
383 (define-key esc-map "w" 'kill-ring-save) | |
384 (define-key esc-map "\C-w" 'append-next-kill) | |
385 (define-key global-map "\C-y" 'yank) | |
386 (define-key esc-map "y" 'yank-pop) | |
387 | |
388 ;; (define-key ctl-x-map "a" 'append-to-buffer) | |
389 | |
390 (define-key global-map "\C-@" 'set-mark-command) | |
391 ;; Many people are used to typing C-SPC and getting C-@. | |
20638
c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
Kenichi Handa <handa@m17n.org>
parents:
20577
diff
changeset
|
392 (define-key global-map [?\C- ] 'set-mark-command) |
16164 | 393 (define-key ctl-x-map "\C-x" 'exchange-point-and-mark) |
394 (define-key ctl-x-map "\C-@" 'pop-global-mark) | |
20638
c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
Kenichi Handa <handa@m17n.org>
parents:
20577
diff
changeset
|
395 (define-key ctl-x-map [?\C- ] 'pop-global-mark) |
16164 | 396 |
397 (define-key global-map "\C-n" 'next-line) | |
398 (define-key global-map "\C-p" 'previous-line) | |
399 (define-key ctl-x-map "\C-n" 'set-goal-column) | |
400 | |
401 ;;(defun function-key-error () | |
402 ;; (interactive) | |
403 ;; (error "That function key is not bound to anything.")) | |
404 | |
405 (define-key global-map [menu] 'execute-extended-command) | |
406 (define-key global-map [find] 'search-forward) | |
407 | |
408 ;; natural bindings for terminal keycaps --- defined in X keysym order | |
409 (define-key global-map [home] 'beginning-of-buffer) | |
410 (define-key global-map [M-home] 'beginning-of-buffer-other-window) | |
411 (define-key global-map [left] 'backward-char) | |
412 (define-key global-map [up] 'previous-line) | |
413 (define-key global-map [right] 'forward-char) | |
414 (define-key global-map [down] 'next-line) | |
415 (define-key global-map [prior] 'scroll-down) | |
416 (define-key global-map [next] 'scroll-up) | |
417 (define-key global-map [C-up] 'backward-paragraph) | |
418 (define-key global-map [C-down] 'forward-paragraph) | |
419 (define-key global-map [C-prior] 'scroll-right) | |
420 (define-key global-map [C-next] 'scroll-left) | |
421 (define-key global-map [M-next] 'scroll-other-window) | |
422 (define-key global-map [M-prior] 'scroll-other-window-down) | |
423 (define-key global-map [end] 'end-of-buffer) | |
424 (define-key global-map [M-end] 'end-of-buffer-other-window) | |
425 (define-key global-map [begin] 'beginning-of-buffer) | |
426 (define-key global-map [M-begin] 'beginning-of-buffer-other-window) | |
427 ;; (define-key global-map [select] 'function-key-error) | |
428 ;; (define-key global-map [print] 'function-key-error) | |
429 (define-key global-map [execute] 'execute-extended-command) | |
430 (define-key global-map [insert] 'overwrite-mode) | |
431 (define-key global-map [C-insert] 'kill-ring-save) | |
432 (define-key global-map [S-insert] 'yank) | |
433 (define-key global-map [undo] 'undo) | |
434 (define-key global-map [redo] 'repeat-complex-command) | |
435 ;; (define-key global-map [clearline] 'function-key-error) | |
436 (define-key global-map [insertline] 'open-line) | |
437 (define-key global-map [deleteline] 'kill-line) | |
438 ;; (define-key global-map [insertchar] 'function-key-error) | |
439 (define-key global-map [deletechar] 'delete-char) | |
440 ;; (define-key global-map [backtab] 'function-key-error) | |
441 ;; (define-key global-map [f1] 'function-key-error) | |
442 ;; (define-key global-map [f2] 'function-key-error) | |
443 ;; (define-key global-map [f3] 'function-key-error) | |
444 ;; (define-key global-map [f4] 'function-key-error) | |
445 ;; (define-key global-map [f5] 'function-key-error) | |
446 ;; (define-key global-map [f6] 'function-key-error) | |
447 ;; (define-key global-map [f7] 'function-key-error) | |
448 ;; (define-key global-map [f8] 'function-key-error) | |
449 ;; (define-key global-map [f9] 'function-key-error) | |
450 ;; (define-key global-map [f10] 'function-key-error) | |
451 ;; (define-key global-map [f11] 'function-key-error) | |
452 ;; (define-key global-map [f12] 'function-key-error) | |
453 ;; (define-key global-map [f13] 'function-key-error) | |
454 ;; (define-key global-map [f14] 'function-key-error) | |
455 ;; (define-key global-map [f15] 'function-key-error) | |
456 ;; (define-key global-map [f16] 'function-key-error) | |
457 ;; (define-key global-map [f17] 'function-key-error) | |
458 ;; (define-key global-map [f18] 'function-key-error) | |
459 ;; (define-key global-map [f19] 'function-key-error) | |
460 ;; (define-key global-map [f20] 'function-key-error) | |
461 ;; (define-key global-map [f21] 'function-key-error) | |
462 ;; (define-key global-map [f22] 'function-key-error) | |
463 ;; (define-key global-map [f23] 'function-key-error) | |
464 ;; (define-key global-map [f24] 'function-key-error) | |
465 ;; (define-key global-map [f25] 'function-key-error) | |
466 ;; (define-key global-map [f26] 'function-key-error) | |
467 ;; (define-key global-map [f27] 'function-key-error) | |
468 ;; (define-key global-map [f28] 'function-key-error) | |
469 ;; (define-key global-map [f29] 'function-key-error) | |
470 ;; (define-key global-map [f30] 'function-key-error) | |
471 ;; (define-key global-map [f31] 'function-key-error) | |
472 ;; (define-key global-map [f32] 'function-key-error) | |
473 ;; (define-key global-map [f33] 'function-key-error) | |
474 ;; (define-key global-map [f34] 'function-key-error) | |
475 ;; (define-key global-map [f35] 'function-key-error) | |
476 ;; (define-key global-map [kp-backtab] 'function-key-error) | |
477 ;; (define-key global-map [kp-space] 'function-key-error) | |
478 ;; (define-key global-map [kp-tab] 'function-key-error) | |
479 ;; (define-key global-map [kp-enter] 'function-key-error) | |
480 ;; (define-key global-map [kp-f1] 'function-key-error) | |
481 ;; (define-key global-map [kp-f2] 'function-key-error) | |
482 ;; (define-key global-map [kp-f3] 'function-key-error) | |
483 ;; (define-key global-map [kp-f4] 'function-key-error) | |
484 ;; (define-key global-map [kp-multiply] 'function-key-error) | |
485 ;; (define-key global-map [kp-add] 'function-key-error) | |
486 ;; (define-key global-map [kp-separator] 'function-key-error) | |
487 ;; (define-key global-map [kp-subtract] 'function-key-error) | |
488 ;; (define-key global-map [kp-decimal] 'function-key-error) | |
489 ;; (define-key global-map [kp-divide] 'function-key-error) | |
490 ;; (define-key global-map [kp-0] 'function-key-error) | |
491 ;; (define-key global-map [kp-1] 'function-key-error) | |
492 ;; (define-key global-map [kp-2] 'function-key-error) | |
493 ;; (define-key global-map [kp-3] 'function-key-error) | |
494 ;; (define-key global-map [kp-4] 'function-key-error) | |
495 ;; (define-key global-map [kp-5] 'recenter) | |
496 ;; (define-key global-map [kp-6] 'function-key-error) | |
497 ;; (define-key global-map [kp-7] 'function-key-error) | |
498 ;; (define-key global-map [kp-8] 'function-key-error) | |
499 ;; (define-key global-map [kp-9] 'function-key-error) | |
500 ;; (define-key global-map [kp-equal] 'function-key-error) | |
501 | |
502 ;; X11R6 distinguishes these keys from the non-kp keys. | |
503 ;; Make them behave like the non-kp keys unless otherwise bound. | |
504 (define-key function-key-map [kp-home] [home]) | |
505 (define-key function-key-map [kp-left] [left]) | |
506 (define-key function-key-map [kp-up] [up]) | |
507 (define-key function-key-map [kp-right] [right]) | |
508 (define-key function-key-map [kp-down] [down]) | |
509 (define-key function-key-map [kp-prior] [prior]) | |
510 (define-key function-key-map [kp-next] [next]) | |
511 (define-key function-key-map [M-kp-next] [M-next]) | |
512 (define-key function-key-map [kp-end] [end]) | |
513 (define-key function-key-map [kp-begin] [begin]) | |
514 (define-key function-key-map [kp-insert] [insert]) | |
515 (define-key function-key-map [kp-delete] [delete]) | |
516 | |
517 (define-key global-map [mouse-movement] 'ignore) | |
518 | |
519 (define-key global-map "\C-t" 'transpose-chars) | |
520 (define-key esc-map "t" 'transpose-words) | |
521 (define-key esc-map "\C-t" 'transpose-sexps) | |
522 (define-key ctl-x-map "\C-t" 'transpose-lines) | |
523 | |
524 (define-key esc-map ";" 'indent-for-comment) | |
525 (define-key esc-map "j" 'indent-new-comment-line) | |
526 (define-key esc-map "\C-j" 'indent-new-comment-line) | |
527 (define-key ctl-x-map ";" 'set-comment-column) | |
528 (define-key ctl-x-map "f" 'set-fill-column) | |
529 (define-key ctl-x-map "$" 'set-selective-display) | |
530 | |
531 (define-key esc-map "@" 'mark-word) | |
532 (define-key esc-map "f" 'forward-word) | |
533 (define-key esc-map "b" 'backward-word) | |
534 (define-key esc-map "d" 'kill-word) | |
535 (define-key esc-map "\177" 'backward-kill-word) | |
536 | |
537 (define-key esc-map "<" 'beginning-of-buffer) | |
538 (define-key esc-map ">" 'end-of-buffer) | |
539 (define-key ctl-x-map "h" 'mark-whole-buffer) | |
540 (define-key esc-map "\\" 'delete-horizontal-space) | |
541 | |
542 (defalias 'mode-specific-command-prefix (make-sparse-keymap)) | |
16691
285f4e41d163
Change defconsts to defvars.
Richard M. Stallman <rms@gnu.org>
parents:
16523
diff
changeset
|
543 (defvar mode-specific-map (symbol-function 'mode-specific-command-prefix) |
16164 | 544 "Keymap for characters following C-c.") |
545 (define-key global-map "\C-c" 'mode-specific-command-prefix) | |
546 | |
547 (global-set-key [M-right] 'forward-word) | |
548 (global-set-key [M-left] 'backward-word) | |
549 ;; ilya@math.ohio-state.edu says these bindings are standard on PC editors. | |
550 (global-set-key [C-right] 'forward-word) | |
551 (global-set-key [C-left] 'backward-word) | |
552 ;; This is not quite compatible, but at least is analogous | |
553 (global-set-key [C-delete] 'backward-kill-word) | |
554 ;; This is "move to the clipboard", or as close as we come. | |
555 (global-set-key [S-delete] 'kill-region) | |
556 | |
557 (define-key esc-map "\C-f" 'forward-sexp) | |
558 (define-key esc-map "\C-b" 'backward-sexp) | |
559 (define-key esc-map "\C-u" 'backward-up-list) | |
560 (define-key esc-map "\C-@" 'mark-sexp) | |
561 (define-key esc-map [?\C-\ ] 'mark-sexp) | |
562 (define-key esc-map "\C-d" 'down-list) | |
563 (define-key esc-map "\C-k" 'kill-sexp) | |
564 (define-key global-map [C-M-delete] 'backward-kill-sexp) | |
565 (define-key global-map [C-M-backspace] 'backward-kill-sexp) | |
566 (define-key esc-map "\C-n" 'forward-list) | |
567 (define-key esc-map "\C-p" 'backward-list) | |
568 (define-key esc-map "\C-a" 'beginning-of-defun) | |
569 (define-key esc-map "\C-e" 'end-of-defun) | |
570 (define-key esc-map "\C-h" 'mark-defun) | |
571 (define-key ctl-x-map "nd" 'narrow-to-defun) | |
572 (define-key esc-map "(" 'insert-parentheses) | |
573 (define-key esc-map ")" 'move-past-close-and-reindent) | |
574 | |
575 (define-key ctl-x-map "\C-e" 'eval-last-sexp) | |
17595
eaad8bd00b12
Bind C-x m, C-x 4 m, C-x 5 m to compose-mail...
Richard M. Stallman <rms@gnu.org>
parents:
17537
diff
changeset
|
576 |
eaad8bd00b12
Bind C-x m, C-x 4 m, C-x 5 m to compose-mail...
Richard M. Stallman <rms@gnu.org>
parents:
17537
diff
changeset
|
577 (define-key ctl-x-map "m" 'compose-mail) |
eaad8bd00b12
Bind C-x m, C-x 4 m, C-x 5 m to compose-mail...
Richard M. Stallman <rms@gnu.org>
parents:
17537
diff
changeset
|
578 (define-key ctl-x-4-map "m" 'compose-mail-other-window) |
eaad8bd00b12
Bind C-x m, C-x 4 m, C-x 5 m to compose-mail...
Richard M. Stallman <rms@gnu.org>
parents:
17537
diff
changeset
|
579 (define-key ctl-x-5-map "m" 'compose-mail-other-frame) |
16164 | 580 |
581 (define-key ctl-x-map "r\C-@" 'point-to-register) | |
582 (define-key ctl-x-map [?r ?\C-\ ] 'point-to-register) | |
583 (define-key ctl-x-map "r " 'point-to-register) | |
584 (define-key ctl-x-map "rj" 'jump-to-register) | |
585 (define-key ctl-x-map "rs" 'copy-to-register) | |
586 (define-key ctl-x-map "rx" 'copy-to-register) | |
587 (define-key ctl-x-map "ri" 'insert-register) | |
588 (define-key ctl-x-map "rg" 'insert-register) | |
589 (define-key ctl-x-map "rr" 'copy-rectangle-to-register) | |
20416
449a1e694780
(ctl-x-map): Add bindings rn and r+
Karl Heuer <kwzh@gnu.org>
parents:
20353
diff
changeset
|
590 (define-key ctl-x-map "rn" 'number-to-register) |
449a1e694780
(ctl-x-map): Add bindings rn and r+
Karl Heuer <kwzh@gnu.org>
parents:
20353
diff
changeset
|
591 (define-key ctl-x-map "r+" 'increment-register) |
16164 | 592 (define-key ctl-x-map "rc" 'clear-rectangle) |
593 (define-key ctl-x-map "rk" 'kill-rectangle) | |
594 (define-key ctl-x-map "rd" 'delete-rectangle) | |
595 (define-key ctl-x-map "ry" 'yank-rectangle) | |
596 (define-key ctl-x-map "ro" 'open-rectangle) | |
597 (define-key ctl-x-map "rt" 'string-rectangle) | |
598 (define-key ctl-x-map "rw" 'window-configuration-to-register) | |
599 (define-key ctl-x-map "rf" 'frame-configuration-to-register) | |
600 | |
601 ;; These key bindings are deprecated; use the above C-x r map instead. | |
602 ;; We use these aliases so \[...] will show the C-x r bindings instead. | |
603 (defalias 'point-to-register-compatibility-binding 'point-to-register) | |
604 (defalias 'jump-to-register-compatibility-binding 'jump-to-register) | |
605 (defalias 'copy-to-register-compatibility-binding 'copy-to-register) | |
606 (defalias 'insert-register-compatibility-binding 'insert-register) | |
607 (define-key ctl-x-map "/" 'point-to-register-compatibility-binding) | |
608 (define-key ctl-x-map "j" 'jump-to-register-compatibility-binding) | |
609 (define-key ctl-x-map "x" 'copy-to-register-compatibility-binding) | |
610 (define-key ctl-x-map "g" 'insert-register-compatibility-binding) | |
611 ;; (define-key ctl-x-map "r" 'copy-rectangle-to-register) | |
612 | |
613 (define-key esc-map "q" 'fill-paragraph) | |
614 ;; (define-key esc-map "g" 'fill-region) | |
615 (define-key ctl-x-map "." 'set-fill-prefix) | |
616 | |
617 (define-key esc-map "{" 'backward-paragraph) | |
618 (define-key esc-map "}" 'forward-paragraph) | |
619 (define-key esc-map "h" 'mark-paragraph) | |
620 (define-key esc-map "a" 'backward-sentence) | |
621 (define-key esc-map "e" 'forward-sentence) | |
622 (define-key esc-map "k" 'kill-sentence) | |
623 (define-key ctl-x-map "\177" 'backward-kill-sentence) | |
624 | |
625 (define-key ctl-x-map "[" 'backward-page) | |
626 (define-key ctl-x-map "]" 'forward-page) | |
627 (define-key ctl-x-map "\C-p" 'mark-page) | |
628 (define-key ctl-x-map "l" 'count-lines-page) | |
629 (define-key ctl-x-map "np" 'narrow-to-page) | |
630 ;; (define-key ctl-x-map "p" 'narrow-to-page) | |
631 | |
632 (define-key ctl-x-map "al" 'add-mode-abbrev) | |
633 (define-key ctl-x-map "a\C-a" 'add-mode-abbrev) | |
634 (define-key ctl-x-map "ag" 'add-global-abbrev) | |
635 (define-key ctl-x-map "a+" 'add-mode-abbrev) | |
636 (define-key ctl-x-map "aig" 'inverse-add-global-abbrev) | |
637 (define-key ctl-x-map "ail" 'inverse-add-mode-abbrev) | |
638 ;; (define-key ctl-x-map "a\C-h" 'inverse-add-global-abbrev) | |
639 (define-key ctl-x-map "a-" 'inverse-add-global-abbrev) | |
640 (define-key ctl-x-map "ae" 'expand-abbrev) | |
641 (define-key ctl-x-map "a'" 'expand-abbrev) | |
642 ;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev) | |
643 ;; (define-key ctl-x-map "\+" 'add-global-abbrev) | |
644 ;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev) | |
645 ;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev) | |
646 (define-key esc-map "'" 'abbrev-prefix-mark) | |
647 (define-key ctl-x-map "'" 'expand-abbrev) | |
648 | |
22424
d8368e1df721
(ctl-x-map): Change vi-dot binding to repeat.
Richard M. Stallman <rms@gnu.org>
parents:
22064
diff
changeset
|
649 (define-key ctl-x-map "z" 'repeat) |
22064
6855330db15c
Add binding for C-x z to vi-dot here.
Richard M. Stallman <rms@gnu.org>
parents:
21670
diff
changeset
|
650 |
16164 | 651 ;;; Don't compile this file; it contains no large function definitions. |
652 ;;; Don't look for autoload cookies in this file. | |
653 ;;; Local Variables: | |
654 ;;; no-byte-compile: t | |
655 ;;; no-update-autoloads: t | |
656 ;;; End: | |
657 | |
658 ;;; bindings.el ends here |