Mercurial > emacs
annotate lisp/bindings.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 280c8ae2476d |
children | 3c2bab829253 |
rev | line source |
---|---|
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
38300
diff
changeset
|
1 ;;; bindings.el --- define standard key bindings and some variables |
16164 | 2 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64091
diff
changeset
|
3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999, |
106815 | 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
104611
d3071821d3ea
(standard-mode-line-format): Reposition dashes in which-func entry. (Bug#4217)
Glenn Morris <rgm@gnu.org>
parents:
103695
diff
changeset
|
5 ;; Free Software Foundation, Inc. |
16164 | 6 |
7 ;; Maintainer: FSF | |
8 ;; Keywords: internal | |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
109716
diff
changeset
|
9 ;; Package: emacs |
16164 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93889
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
16164 | 14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93889
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93889
diff
changeset
|
16 ;; (at your option) any later version. |
16164 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93889
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
16164 | 25 |
26 ;;; Commentary: | |
27 | |
28 ;;; Code: | |
29 | |
38755
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
30 (defun make-mode-line-mouse-map (mouse function) "\ |
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
31 Return a keymap with single entry for mouse key MOUSE on the mode line. |
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
32 MOUSE is defined to run function FUNCTION with no args in the buffer |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
33 corresponding to the mode line clicked." |
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
34 (let ((map (make-sparse-keymap))) |
38755
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
35 (define-key map (vector 'mode-line mouse) function) |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
36 map)) |
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
37 |
33261
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
38 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
39 (defun mode-line-toggle-read-only (event) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
40 "Like `toggle-read-only', for the mode-line." |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
41 (interactive "e") |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
42 (save-selected-window |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
43 (select-window (posn-window (event-start event))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
44 (toggle-read-only) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
45 (force-mode-line-update))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
46 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
47 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
48 (defun mode-line-toggle-modified (event) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
49 "Toggle the buffer-modified flag from the mode-line." |
33585
f8f722137584
(mode-line-modified): Fix a typo.
Gerd Moellmann <gerd@gnu.org>
parents:
33261
diff
changeset
|
50 (interactive "e") |
33261
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
51 (save-selected-window |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
52 (select-window (posn-window (event-start event))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
53 (set-buffer-modified-p (not (buffer-modified-p))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
54 (force-mode-line-update))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
55 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
56 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
57 (defun mode-line-widen (event) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
58 "Widen a buffer from the mode-line." |
33585
f8f722137584
(mode-line-modified): Fix a typo.
Gerd Moellmann <gerd@gnu.org>
parents:
33261
diff
changeset
|
59 (interactive "e") |
33261
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
60 (save-selected-window |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
61 (select-window (posn-window (event-start event))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
62 (widen) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
63 (force-mode-line-update))) |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
64 |
a3294ec7a032
(mode-line-toggle-read-only)
Gerd Moellmann <gerd@gnu.org>
parents:
30946
diff
changeset
|
65 |
27649
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
66 (defvar mode-line-input-method-map |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
67 (let ((map (make-sparse-keymap))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
68 (define-key map [mode-line mouse-2] |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
69 (lambda (e) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
70 (interactive "e") |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
71 (save-selected-window |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
72 (select-window |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
73 (posn-window (event-start e))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
74 (toggle-input-method) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
75 (force-mode-line-update)))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
76 (define-key map [mode-line mouse-3] |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
77 (lambda (e) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
78 (interactive "e") |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
79 (save-selected-window |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
80 (select-window |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
81 (posn-window (event-start e))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
82 (describe-current-input-method)))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
83 (purecopy map))) |
248e0de1bae2
(mode-line-input-method-map): New variable.
Dave Love <fx@gnu.org>
parents:
27616
diff
changeset
|
84 |
39037
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
85 |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
86 (defvar mode-line-coding-system-map |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
87 (let ((map (make-sparse-keymap))) |
65524
d4001c18bf64
(mode-line-eol-desc, mode-line-coding-system-map)
Nick Roberts <nickrob@snap.net.nz>
parents:
64762
diff
changeset
|
88 (define-key map [mode-line mouse-1] |
39037
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
89 (lambda (e) |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
90 (interactive "e") |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
91 (save-selected-window |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
92 (select-window (posn-window (event-start e))) |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
93 (when (and enable-multibyte-characters |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
94 buffer-file-coding-system) |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
95 (describe-coding-system buffer-file-coding-system))))) |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
96 (purecopy map)) |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
97 "Local keymap for the coding-system part of the mode line.") |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
98 |
e178a1e23722
(mode-line-coding-system-map): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38903
diff
changeset
|
99 |
53551
fadd740b9db3
(mode-line-change-eol): Add EVENT parameter.
John Paul Wallington <jpw@pobox.com>
parents:
53463
diff
changeset
|
100 (defun mode-line-change-eol (event) |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
101 "Cycle through the various possible kinds of end-of-line styles." |
53551
fadd740b9db3
(mode-line-change-eol): Add EVENT parameter.
John Paul Wallington <jpw@pobox.com>
parents:
53463
diff
changeset
|
102 (interactive "e") |
93234
3f711cd30ffa
(mode-line-change-eol): Use with-selected-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93206
diff
changeset
|
103 (with-selected-window (posn-window (event-start event)) |
53551
fadd740b9db3
(mode-line-change-eol): Add EVENT parameter.
John Paul Wallington <jpw@pobox.com>
parents:
53463
diff
changeset
|
104 (let ((eol (coding-system-eol-type buffer-file-coding-system))) |
fadd740b9db3
(mode-line-change-eol): Add EVENT parameter.
John Paul Wallington <jpw@pobox.com>
parents:
53463
diff
changeset
|
105 (set-buffer-file-coding-system |
fadd740b9db3
(mode-line-change-eol): Add EVENT parameter.
John Paul Wallington <jpw@pobox.com>
parents:
53463
diff
changeset
|
106 (cond ((eq eol 0) 'dos) ((eq eol 1) 'mac) (t 'unix)))))) |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
107 |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
108 (defvar mode-line-eol-desc-cache nil) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
109 |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
110 (defun mode-line-eol-desc () |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
111 (let* ((eol (coding-system-eol-type buffer-file-coding-system)) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
112 (mnemonic (coding-system-eol-type-mnemonic buffer-file-coding-system)) |
100586
8f585a03d4d4
(mode-line-eol-desc): Use assoc to query mode-line-eol-desc-cache.
Chong Yidong <cyd@stupidchicken.com>
parents:
97857
diff
changeset
|
113 (desc (assoc eol mode-line-eol-desc-cache))) |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
114 (if (and desc (eq (cadr desc) mnemonic)) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
115 (cddr desc) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
116 (if desc (setq mode-line-eol-desc-cache nil)) ;Flush the cache if stale. |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
117 (setq desc |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
118 (propertize |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
119 mnemonic |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
120 'help-echo (format "End-of-line style: %s\nmouse-1 to cycle" |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
121 (if (eq eol 0) "Unix-style LF" |
100837
46065363a5a6
* bindings.el (mode-line-eol-desc): Fix typo in help message.
Juanma Barranquero <lekktu@gmail.com>
parents:
100586
diff
changeset
|
122 (if (eq eol 1) "DOS-style CRLF" |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
123 (if (eq eol 2) "Mac-style CR" |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
124 "Undecided")))) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
125 'keymap |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
126 (eval-when-compile |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
127 (let ((map (make-sparse-keymap))) |
65524
d4001c18bf64
(mode-line-eol-desc, mode-line-coding-system-map)
Nick Roberts <nickrob@snap.net.nz>
parents:
64762
diff
changeset
|
128 (define-key map [mode-line mouse-1] 'mode-line-change-eol) |
62651
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
129 map)) |
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
130 'mouse-face 'mode-line-highlight)) |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
131 (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
132 desc))) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
133 |
83434
944e6b68a0de
Display "@" in mode-lines of Emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents:
83414
diff
changeset
|
134 (defvar mode-line-client |
944e6b68a0de
Display "@" in mode-lines of Emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents:
83414
diff
changeset
|
135 `("" |
944e6b68a0de
Display "@" in mode-lines of Emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents:
83414
diff
changeset
|
136 (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" ""))) |
105798
0ad1fc06bfc8
* puresize.h (BASE_PURESIZE): Increase to 1470000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105765
diff
changeset
|
137 help-echo ,(purecopy "emacsclient frame"))) |
100837
46065363a5a6
* bindings.el (mode-line-eol-desc): Fix typo in help message.
Juanma Barranquero <lekktu@gmail.com>
parents:
100586
diff
changeset
|
138 "Mode-line control for identifying emacsclient frames.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
139 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
140 (put 'mode-line-client 'risky-local-variable t) |
83434
944e6b68a0de
Display "@" in mode-lines of Emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents:
83414
diff
changeset
|
141 |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
142 (defvar mode-line-mule-info |
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
143 `("" |
27616
18b19e347f65
(mode-line-mule-info): Fix/extend last change.
Dave Love <fx@gnu.org>
parents:
27238
diff
changeset
|
144 (current-input-method |
44205
999568e4ea2c
(mode-line-mule-info): Use :propertize, not :eval.
Richard M. Stallman <rms@gnu.org>
parents:
43942
diff
changeset
|
145 (:propertize ("" current-input-method-title) |
999568e4ea2c
(mode-line-mule-info): Use :propertize, not :eval.
Richard M. Stallman <rms@gnu.org>
parents:
43942
diff
changeset
|
146 help-echo (concat |
105939
a0f778f4a995
* term/x-win.el (x-gtk-stock-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105798
diff
changeset
|
147 ,(purecopy "Current input method: ") |
44205
999568e4ea2c
(mode-line-mule-info): Use :propertize, not :eval.
Richard M. Stallman <rms@gnu.org>
parents:
43942
diff
changeset
|
148 current-input-method |
105939
a0f778f4a995
* term/x-win.el (x-gtk-stock-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105798
diff
changeset
|
149 ,(purecopy "\n\ |
91859
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
150 mouse-2: Disable input method\n\ |
105939
a0f778f4a995
* term/x-win.el (x-gtk-stock-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105798
diff
changeset
|
151 mouse-3: Describe current input method")) |
62651
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
152 local-map ,mode-line-input-method-map |
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
153 mouse-face mode-line-highlight)) |
30309
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
154 ,(propertize |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
155 "%z" |
39840
68ca5f31c24d
(completion-ignored-extensions): CL-related
Sam Steingold <sds@gnu.org>
parents:
39587
diff
changeset
|
156 'help-echo |
43942
fc8561532c81
(mode-line-mule-info): In computing help-echo prop,
Richard M. Stallman <rms@gnu.org>
parents:
43267
diff
changeset
|
157 #'(lambda (window object point) |
fc8561532c81
(mode-line-mule-info): In computing help-echo prop,
Richard M. Stallman <rms@gnu.org>
parents:
43267
diff
changeset
|
158 (with-current-buffer (window-buffer window) |
fc8561532c81
(mode-line-mule-info): In computing help-echo prop,
Richard M. Stallman <rms@gnu.org>
parents:
43267
diff
changeset
|
159 ;; Don't show this tip if the coding system is nil, |
fc8561532c81
(mode-line-mule-info): In computing help-echo prop,
Richard M. Stallman <rms@gnu.org>
parents:
43267
diff
changeset
|
160 ;; it reads like a bug, and is not useful anyway. |
fc8561532c81
(mode-line-mule-info): In computing help-echo prop,
Richard M. Stallman <rms@gnu.org>
parents:
43267
diff
changeset
|
161 (when buffer-file-coding-system |
91859
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
162 (format "Buffer coding system %s\nmouse-1: describe coding system" |
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
163 (if enable-multibyte-characters |
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
164 (concat "(multi-byte): " |
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
165 (symbol-name buffer-file-coding-system)) |
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
166 (concat "(unibyte): " |
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
167 (symbol-name buffer-file-coding-system))))))) |
62651
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
168 'mouse-face 'mode-line-highlight |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
169 'local-map mode-line-coding-system-map) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
170 (:eval (mode-line-eol-desc))) |
18303
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
171 "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
|
172 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
|
173 mnemonics of the following coding systems: |
8d8d4aa12426
(mode-line-mule-info): Change style for showing
Kenichi Handa <handa@m17n.org>
parents:
18225
diff
changeset
|
174 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
|
175 coding system for keyboard input (if Emacs is running on terminal) |
25282 | 176 coding system for terminal output (if Emacs is running on terminal)" |
48124
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
177 ;; Currently not: |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
178 ;; coding system for decoding output of buffer process (if any) |
110ec10bd1ea
(mode-line-change-eol, mode-line-eol-desc-cache, mode-line-eol-desc): New.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46991
diff
changeset
|
179 ;; coding system for encoding text to send to buffer process (if any)." |
25282 | 180 ) |
17058
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
181 |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
182 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
183 (put 'mode-line-mule-info 'risky-local-variable t) |
17058
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
184 (make-variable-buffer-local 'mode-line-mule-info) |
8d2ff69b0c0a
(mode-line-mule-info): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
16776
diff
changeset
|
185 |
97706
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
186 ;; MSDOS frames have window-system, but want the Fn identification. |
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
187 (defun mode-line-frame-control () |
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
188 "Compute mode-line control for frame identification. |
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
189 Value is used for `mode-line-frame-identification', which see." |
97857
67484b4a5175
(mode-line-frame-control, mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97850
diff
changeset
|
190 (if (or (null window-system) |
67484b4a5175
(mode-line-frame-control, mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97850
diff
changeset
|
191 (eq window-system 'pc)) |
97706
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
192 "-%F " |
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
193 " ")) |
08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
Eli Zaretskii <eliz@gnu.org>
parents:
97142
diff
changeset
|
194 |
97850
da6fd3fcdb25
(mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97706
diff
changeset
|
195 ;; We need to defer the call to mode-line-frame-control to the time |
da6fd3fcdb25
(mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97706
diff
changeset
|
196 ;; the mode line is actually displayed. |
97857
67484b4a5175
(mode-line-frame-control, mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97850
diff
changeset
|
197 (defvar mode-line-frame-identification '(:eval (mode-line-frame-control)) |
67484b4a5175
(mode-line-frame-control, mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97850
diff
changeset
|
198 "Mode-line control to describe the current frame.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
199 ;;;###autoload |
97850
da6fd3fcdb25
(mode-line-frame-identification): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97706
diff
changeset
|
200 (put 'mode-line-frame-identification 'risky-local-variable t) |
17812
7fb38e7df85b
(mode-line-mule-info): Delete the colon.
Richard M. Stallman <rms@gnu.org>
parents:
17793
diff
changeset
|
201 |
25537
f329ed7625ee
Make some doc strings obey the make-docfile convention.
Dave Love <fx@gnu.org>
parents:
25312
diff
changeset
|
202 (defvar mode-line-process nil "\ |
f329ed7625ee
Make some doc strings obey the make-docfile convention.
Dave Love <fx@gnu.org>
parents:
25312
diff
changeset
|
203 Mode-line control for displaying info on process status. |
16164 | 204 Normally nil in most modes, since there is no process to display.") |
205 | |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
206 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
207 (put 'mode-line-process 'risky-local-variable t) |
16164 | 208 (make-variable-buffer-local 'mode-line-process) |
209 | |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
210 (defvar mode-line-modified |
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
211 (list (propertize |
30309
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
212 "%1*" |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
213 'help-echo (purecopy (lambda (window object point) |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
214 (format "Buffer is %s\nmouse-1 toggles" |
30309
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
215 (save-selected-window |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
216 (select-window window) |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
217 (if buffer-read-only |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
218 "read-only" |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
219 "writable"))))) |
38755
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
220 'local-map (purecopy (make-mode-line-mouse-map |
65524
d4001c18bf64
(mode-line-eol-desc, mode-line-coding-system-map)
Nick Roberts <nickrob@snap.net.nz>
parents:
64762
diff
changeset
|
221 'mouse-1 |
62651
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
222 #'mode-line-toggle-read-only)) |
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
223 'mouse-face 'mode-line-highlight) |
30309
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
224 (propertize |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
225 "%1+" |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
226 'help-echo (purecopy (lambda (window object point) |
91859
1a6529179b70
(mode-line-mule-info): Make the tooltips more explicit.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91858
diff
changeset
|
227 (format "Buffer is %sodified\nmouse-1 toggles modified state" |
30309
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
228 (save-selected-window |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
229 (select-window window) |
a1ed8edb10b5
(mode-line-mule-info, mode-line-modified): help-echo
Dave Love <fx@gnu.org>
parents:
30113
diff
changeset
|
230 (if (buffer-modified-p) |
103565
aeb4b2f4f239
(mode-line-modified): Fix case of "Buffer is modified".
Glenn Morris <rgm@gnu.org>
parents:
101635
diff
changeset
|
231 "m" |
aeb4b2f4f239
(mode-line-modified): Fix case of "Buffer is modified".
Glenn Morris <rgm@gnu.org>
parents:
101635
diff
changeset
|
232 "not m"))))) |
38755
2fa1afcedab9
(make-mode-line-mouse-map): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
38752
diff
changeset
|
233 'local-map (purecopy (make-mode-line-mouse-map |
65524
d4001c18bf64
(mode-line-eol-desc, mode-line-coding-system-map)
Nick Roberts <nickrob@snap.net.nz>
parents:
64762
diff
changeset
|
234 'mouse-1 #'mode-line-toggle-modified)) |
62651
8d965863dd8c
Supprot mouse-face on mode-line.
Masatake YAMATO <jet@gyve.org>
parents:
61709
diff
changeset
|
235 'mouse-face 'mode-line-highlight)) |
16164 | 236 "Mode-line control for displaying whether current buffer is modified.") |
237 | |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
238 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
239 (put 'mode-line-modified 'risky-local-variable t) |
16164 | 240 (make-variable-buffer-local 'mode-line-modified) |
241 | |
82042
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
242 (defvar mode-line-remote |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
243 (list (propertize |
82182
78ee45af2b61
(mode-line-remote): Use updated %@ construct.
Nick Roberts <nickrob@snap.net.nz>
parents:
82140
diff
changeset
|
244 "%1@" |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
245 'mouse-face 'mode-line-highlight |
82042
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
246 'help-echo (purecopy (lambda (window object point) |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
247 (format "%s" |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
248 (save-selected-window |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
249 (select-window window) |
91858
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
250 (concat |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
251 (if (file-remote-p default-directory) |
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
252 "Current directory is remote: " |
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
253 "Current directory is local: ") |
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
254 default-directory))))))) |
82042
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
255 "Mode-line flag to show if default-directory for current buffer is remote.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
256 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
257 (put 'mode-line-remote 'risky-local-variable t) |
82042
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
258 |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
259 (make-variable-buffer-local 'mode-line-remote) |
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
260 |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
261 ;; Actual initialization is below. |
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
262 (defvar mode-line-position nil |
52629
af4a74ff079d
(mode-line-position): Mention size indication in docstring.
Lute Kamstra <lute@gnu.org>
parents:
52465
diff
changeset
|
263 "Mode-line control for displaying the position in the buffer. |
af4a74ff079d
(mode-line-position): Mention size indication in docstring.
Lute Kamstra <lute@gnu.org>
parents:
52465
diff
changeset
|
264 Normally displays the buffer percentage and, optionally, the |
af4a74ff079d
(mode-line-position): Mention size indication in docstring.
Lute Kamstra <lute@gnu.org>
parents:
52465
diff
changeset
|
265 buffer size, the line number and the column number.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
266 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
267 (put 'mode-line-position 'risky-local-variable t) |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
268 |
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
269 (defvar mode-line-modes nil |
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
270 "Mode-line control for displaying major and minor modes.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
271 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
272 (put 'mode-line-modes 'risky-local-variable t) |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
273 |
93511
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
274 (defvar mode-line-mode-menu (make-sparse-keymap "Minor Modes") "\ |
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
275 Menu of mode operations in the mode line.") |
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
276 |
53463
160b4f3af303
(completion-ignored-extensions): Add .pfsl.
John Paul Wallington <jpw@pobox.com>
parents:
52815
diff
changeset
|
277 (defvar mode-line-major-mode-keymap |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
278 (let ((map (make-sparse-keymap))) |
93889
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
279 (define-key map [mode-line down-mouse-1] |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
280 `(menu-item ,(purecopy "Menu Bar") ignore |
93889
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
281 :filter (lambda (_) (mouse-menu-major-mode-map)))) |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
282 (define-key map [mode-line mouse-2] 'describe-mode) |
93511
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
283 (define-key map [mode-line down-mouse-3] mode-line-mode-menu) |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
284 map) "\ |
50354
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
285 Keymap to display on major mode.") |
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
286 |
53463
160b4f3af303
(completion-ignored-extensions): Add .pfsl.
John Paul Wallington <jpw@pobox.com>
parents:
52815
diff
changeset
|
287 (defvar mode-line-minor-mode-keymap |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
288 (let ((map (make-sparse-keymap))) |
85389
a8bff00271d4
Drew Adams <drew.adams at oracle.com>
Glenn Morris <rgm@gnu.org>
parents:
85376
diff
changeset
|
289 (define-key map [mode-line down-mouse-1] 'mouse-minor-mode-menu) |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
290 (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) |
93511
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
291 (define-key map [mode-line down-mouse-3] mode-line-mode-menu) |
13111c679e71
(mode-line-mode-menu): Move before (new) first use.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93398
diff
changeset
|
292 (define-key map [header-line down-mouse-3] mode-line-mode-menu) |
50565
cd863af50ea1
* help.el (describe-minor-mode): New function implementation.
Masatake YAMATO <jet@gyve.org>
parents:
50554
diff
changeset
|
293 map) "\ |
50354
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
294 Keymap to display on minor modes.") |
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
295 |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
296 (defvar mode-line-column-line-number-mode-map |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
297 (let ((map (make-sparse-keymap)) |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
298 (menu-map (make-sparse-keymap "Toggle Line and Column Number Display"))) |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
299 (define-key menu-map [line-number-mode] |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
300 `(menu-item ,(purecopy "Display Line Numbers") line-number-mode |
105798
0ad1fc06bfc8
* puresize.h (BASE_PURESIZE): Increase to 1470000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105765
diff
changeset
|
301 :help ,(purecopy "Toggle displaying line numbers in the mode-line") |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
302 :button (:toggle . line-number-mode))) |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
303 (define-key menu-map [column-number-mode] |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
304 `(menu-item ,(purecopy "Display Column Numbers") column-number-mode |
105798
0ad1fc06bfc8
* puresize.h (BASE_PURESIZE): Increase to 1470000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105765
diff
changeset
|
305 :help ,(purecopy "Toggle displaying column numbers in the mode-line") |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
306 :button (:toggle . column-number-mode))) |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
307 (define-key map [mode-line down-mouse-1] menu-map) |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
308 map) "\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
309 Keymap to display on column and line numbers.") |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
310 |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
311 (let* ((help-echo |
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
312 ;; The multi-line message doesn't work terribly well on the |
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
313 ;; bottom mode line... Better ideas? |
41172
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
314 ;; "\ |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
315 ;; mouse-1: select window, mouse-2: delete others, mouse-3: delete, |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
316 ;; drag-mouse-1: resize, C-mouse-2: split horizontally" |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
317 "mouse-1: Select (drag to resize)\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
318 mouse-2: Make current window occupy the whole frame\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
319 mouse-3: Remove current window from display") |
93161
e3b492a971e1
(standard-mode-line-modes): Avoid duplicating a string.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
93135
diff
changeset
|
320 (recursive-edit-help-echo "Recursive edit, type C-M-c to get out") |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
321 (dashes (propertize "--" 'help-echo help-echo)) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
322 (standard-mode-line-format |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
323 (list |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
324 "%e" |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
325 (propertize "-" 'help-echo help-echo) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
326 'mode-line-mule-info |
83541 | 327 'mode-line-client |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
328 'mode-line-modified |
82042
422bb10d6d88
(mode-line-remote): New variable.
Nick Roberts <nickrob@snap.net.nz>
parents:
75800
diff
changeset
|
329 'mode-line-remote |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
330 'mode-line-frame-identification |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
331 'mode-line-buffer-identification |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
332 (propertize " " 'help-echo help-echo) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
333 'mode-line-position |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
334 '(vc-mode vc-mode) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
335 (propertize " " 'help-echo help-echo) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
336 'mode-line-modes |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
337 `(which-func-mode ("" which-func-format ,dashes)) |
104611
d3071821d3ea
(standard-mode-line-format): Reposition dashes in which-func entry. (Bug#4217)
Glenn Morris <rgm@gnu.org>
parents:
103695
diff
changeset
|
338 `(global-mode-string ("" global-mode-string ,dashes)) |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
339 (propertize "-%-" 'help-echo help-echo))) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
340 (standard-mode-line-modes |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
341 (list |
93161
e3b492a971e1
(standard-mode-line-modes): Avoid duplicating a string.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
93135
diff
changeset
|
342 (propertize "%[" 'help-echo recursive-edit-help-echo) |
93135
c3e303fc7a15
(standard-mode-line-modes): Put special help-echo
Juri Linkov <juri@jurta.org>
parents:
92493
diff
changeset
|
343 (propertize "(" 'help-echo help-echo) |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
344 `(:propertize ("" mode-name) |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
345 help-echo "Major mode\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
346 mouse-1: Display major mode menu\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
347 mouse-2: Show help for major mode\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
348 mouse-3: Toggle minor modes" |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
349 mouse-face mode-line-highlight |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
350 local-map ,mode-line-major-mode-keymap) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
351 '("" mode-line-process) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
352 `(:propertize ("" minor-mode-alist) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
353 mouse-face mode-line-highlight |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
354 help-echo "Minor mode\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
355 mouse-1: Display minor mode menu\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
356 mouse-2: Show help for minor mode\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
357 mouse-3: Toggle minor modes" |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
358 local-map ,mode-line-minor-mode-keymap) |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
359 (propertize "%n" 'help-echo "mouse-2: Remove narrowing from the current buffer" |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
360 'mouse-face 'mode-line-highlight |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
361 'local-map (make-mode-line-mouse-map |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
362 'mouse-2 #'mode-line-widen)) |
93135
c3e303fc7a15
(standard-mode-line-modes): Put special help-echo
Juri Linkov <juri@jurta.org>
parents:
92493
diff
changeset
|
363 (propertize ")" 'help-echo help-echo) |
93161
e3b492a971e1
(standard-mode-line-modes): Avoid duplicating a string.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
93135
diff
changeset
|
364 (propertize "%]" 'help-echo recursive-edit-help-echo) |
93135
c3e303fc7a15
(standard-mode-line-modes): Put special help-echo
Juri Linkov <juri@jurta.org>
parents:
92493
diff
changeset
|
365 (propertize "--" 'help-echo help-echo))) |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
366 |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
367 (standard-mode-line-position |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
368 `((-3 ,(propertize |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
369 "%p" |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
370 'local-map mode-line-column-line-number-mode-map |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
371 'mouse-face 'mode-line-highlight |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
372 ;; XXX needs better description |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
373 'help-echo "Size indication mode\n\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
374 mouse-1: Display Line and Column Mode Menu")) |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
375 (size-indication-mode |
91858
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
376 (8 ,(propertize |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
377 " of %I" |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
378 'local-map mode-line-column-line-number-mode-map |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
379 'mouse-face 'mode-line-highlight |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
380 ;; XXX needs better description |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
381 'help-echo "Size indication mode\n\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
382 mouse-1: Display Line and Column Mode Menu"))) |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
383 (line-number-mode |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
384 ((column-number-mode |
91858
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
385 (10 ,(propertize |
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
386 " (%l,%c)" |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
387 'local-map mode-line-column-line-number-mode-map |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
388 'mouse-face 'mode-line-highlight |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
389 'help-echo "Line number and Column number\n\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
390 mouse-1: Display Line and Column Mode Menu")) |
91858
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
391 (6 ,(propertize |
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
392 " L%l" |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
393 'local-map mode-line-column-line-number-mode-map |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
394 'mouse-face 'mode-line-highlight |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
395 'help-echo "Line Number\n\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
396 mouse-1: Display Line and Column Mode Menu")))) |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
397 ((column-number-mode |
91858
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
398 (5 ,(propertize |
0a38cdf50e28
*** empty log message ***
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91855
diff
changeset
|
399 " C%c" |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
400 'local-map mode-line-column-line-number-mode-map |
92493
402ee2cfca27
* bindings.el (mode-line-remote): Add mouse-face. Improve tooltip.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
92434
diff
changeset
|
401 'mouse-face 'mode-line-highlight |
92434
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
402 'help-echo "Column number\n\ |
1fe5dc1b18dd
(mode-line-column-line-number-mode-map): New variable.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91859
diff
changeset
|
403 mouse-1: Display Line and Column Mode Menu")))))))) |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
404 |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
405 (setq-default mode-line-format standard-mode-line-format) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
406 (put 'mode-line-format 'standard-value |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
407 (list `(quote ,standard-mode-line-format))) |
40585
595d79a92c0e
(mode-line-frame-identification): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
40533
diff
changeset
|
408 |
72291
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
409 (setq-default mode-line-modes standard-mode-line-modes) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
410 (put 'mode-line-modes 'standard-value |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
411 (list `(quote ,standard-mode-line-modes))) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
412 |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
413 (setq-default mode-line-position standard-mode-line-position) |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
414 (put 'mode-line-position 'standard-value |
6425e3ef6472
* bindings.el: Give mode-line-format, mode-line-modes, and
Chong Yidong <cyd@stupidchicken.com>
parents:
72241
diff
changeset
|
415 (list `(quote ,standard-mode-line-position)))) |
16164 | 416 |
72798
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
417 (defvar mode-line-buffer-identification-keymap |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
418 ;; Add menu of buffer operations to the buffer identification part |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
419 ;; of the mode line.or header line. |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
420 (let ((map (make-sparse-keymap))) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
421 ;; Bind down- events so that the global keymap won't ``shine |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
422 ;; through''. |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
423 (define-key map [mode-line mouse-1] 'mode-line-previous-buffer) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
424 (define-key map [header-line down-mouse-1] 'ignore) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
425 (define-key map [header-line mouse-1] 'mode-line-previous-buffer) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
426 (define-key map [mode-line mouse-3] 'mode-line-next-buffer) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
427 (define-key map [header-line down-mouse-3] 'ignore) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
428 (define-key map [header-line mouse-3] 'mode-line-next-buffer) |
6e061fdbf037
(mode-line-buffer-identification-keymap):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72291
diff
changeset
|
429 map) "\ |
25537
f329ed7625ee
Make some doc strings obey the make-docfile convention.
Dave Love <fx@gnu.org>
parents:
25312
diff
changeset
|
430 Keymap for what is displayed by `mode-line-buffer-identification'.") |
24985
e4f2a5d1dc28
(make-mode-line-mouse-sensitive): Add key
Gerd Moellmann <gerd@gnu.org>
parents:
24606
diff
changeset
|
431 |
72174
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
432 (defun propertized-buffer-identification (fmt) |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
433 "Return a list suitable for `mode-line-buffer-identification'. |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
434 FMT is a format specifier such as \"%12b\". This function adds |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
435 text properties for face, help-echo, and local-map to it." |
105716
f54ffcb2681e
* bindings.el (propertized-buffer-identification): Undo previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105715
diff
changeset
|
436 (list (propertize fmt |
72174
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
437 'face 'mode-line-buffer-id |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
438 'help-echo |
105716
f54ffcb2681e
* bindings.el (propertized-buffer-identification): Undo previous change.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105715
diff
changeset
|
439 (purecopy "Buffer name\n\ |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
440 mouse-1: previous buffer\n\ |
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
441 mouse-3: next buffer") |
72174
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
442 'mouse-face 'mode-line-highlight |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
443 'local-map mode-line-buffer-identification-keymap))) |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
444 |
106032
42cdafa98c50
(mode-line-buffer-identification): Do not purecopy.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105996
diff
changeset
|
445 (defvar mode-line-buffer-identification (propertized-buffer-identification "%12b") "\ |
72174
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
446 Mode-line control for identifying the buffer being displayed. |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
447 Its default value is (\"%12b\") with some text properties added. |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
448 Major modes that edit things other than ordinary files may change this |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
449 \(e.g. Info, Dired,...)") |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
450 |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
451 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
452 (put 'mode-line-buffer-identification 'risky-local-variable t) |
72174
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
453 (make-variable-buffer-local 'mode-line-buffer-identification) |
a2038efe61ed
(mode-line-frame-identification)
Richard M. Stallman <rms@gnu.org>
parents:
72000
diff
changeset
|
454 |
41457
60f633593ee0
(last-buffer, unbury-buffer): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
41280
diff
changeset
|
455 (defun unbury-buffer () "\ |
60f633593ee0
(last-buffer, unbury-buffer): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
41280
diff
changeset
|
456 Switch to the last buffer in the buffer list." |
41280
77b1386373e0
(last-buffer, unbury-buffer): New functions.
Sam Steingold <sds@gnu.org>
parents:
41210
diff
changeset
|
457 (interactive) |
77b1386373e0
(last-buffer, unbury-buffer): New functions.
Sam Steingold <sds@gnu.org>
parents:
41210
diff
changeset
|
458 (switch-to-buffer (last-buffer))) |
77b1386373e0
(last-buffer, unbury-buffer): New functions.
Sam Steingold <sds@gnu.org>
parents:
41210
diff
changeset
|
459 |
38903
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
460 (defun mode-line-unbury-buffer (event) "\ |
41280
77b1386373e0
(last-buffer, unbury-buffer): New functions.
Sam Steingold <sds@gnu.org>
parents:
41210
diff
changeset
|
461 Call `unbury-buffer' in this window." |
38903
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
462 (interactive "e") |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
463 (save-selected-window |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
464 (select-window (posn-window (event-start event))) |
41280
77b1386373e0
(last-buffer, unbury-buffer): New functions.
Sam Steingold <sds@gnu.org>
parents:
41210
diff
changeset
|
465 (unbury-buffer))) |
38903
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
466 |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
467 (defun mode-line-bury-buffer (event) "\ |
41474 | 468 Like `bury-buffer', but temporarily select EVENT's window." |
38903
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
469 (interactive "e") |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
470 (save-selected-window |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
471 (select-window (posn-window (event-start event))) |
5653fe43d6fb
(mode-line-unbury-buffer): Add EVENT parameter.
Gerd Moellmann <gerd@gnu.org>
parents:
38757
diff
changeset
|
472 (bury-buffer))) |
24985
e4f2a5d1dc28
(make-mode-line-mouse-sensitive): Add key
Gerd Moellmann <gerd@gnu.org>
parents:
24606
diff
changeset
|
473 |
25537
f329ed7625ee
Make some doc strings obey the make-docfile convention.
Dave Love <fx@gnu.org>
parents:
25312
diff
changeset
|
474 (defun mode-line-other-buffer () "\ |
f329ed7625ee
Make some doc strings obey the make-docfile convention.
Dave Love <fx@gnu.org>
parents:
25312
diff
changeset
|
475 Switch to the most recently selected buffer other than the current one." |
24985
e4f2a5d1dc28
(make-mode-line-mouse-sensitive): Add key
Gerd Moellmann <gerd@gnu.org>
parents:
24606
diff
changeset
|
476 (interactive) |
e4f2a5d1dc28
(make-mode-line-mouse-sensitive): Add key
Gerd Moellmann <gerd@gnu.org>
parents:
24606
diff
changeset
|
477 (switch-to-buffer (other-buffer))) |
e4f2a5d1dc28
(make-mode-line-mouse-sensitive): Add key
Gerd Moellmann <gerd@gnu.org>
parents:
24606
diff
changeset
|
478 |
68215
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
479 (defun mode-line-next-buffer (event) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
480 "Like `next-buffer', but temporarily select EVENT's window." |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
481 (interactive "e") |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
482 (save-selected-window |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
483 (select-window (posn-window (event-start event))) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
484 (next-buffer))) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
485 |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
486 (defun mode-line-previous-buffer (event) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
487 "Like `previous-buffer', but temporarily select EVENT's window." |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
488 (interactive "e") |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
489 (save-selected-window |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
490 (select-window (posn-window (event-start event))) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
491 (previous-buffer))) |
d300de715fe6
(propertized-buffer-identification): Use face
Juri Linkov <juri@jurta.org>
parents:
67602
diff
changeset
|
492 |
25898 | 493 (defmacro bound-and-true-p (var) |
494 "Return the value of symbol VAR if it is bound, else nil." | |
26052
b6e77fbb182b
(completion-ignored-extensions): Added ".sparcf"
Gerd Moellmann <gerd@gnu.org>
parents:
25898
diff
changeset
|
495 `(and (boundp (quote ,var)) ,var)) |
25898 | 496 |
73493
334001e04b9b
(mode-line-mode-menu): Remove bindings for global
Nick Roberts <nickrob@snap.net.nz>
parents:
73475
diff
changeset
|
497 ;; Use mode-line-mode-menu for local minor-modes only. |
334001e04b9b
(mode-line-mode-menu): Remove bindings for global
Nick Roberts <nickrob@snap.net.nz>
parents:
73475
diff
changeset
|
498 ;; Global ones can go on the menubar (Options --> Show/Hide). |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
499 (define-key mode-line-mode-menu [overwrite-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
500 `(menu-item ,(purecopy "Overwrite (Ovwrt)") overwrite-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
501 :help ,(purecopy "Overwrite mode: typed characters replace existing text") |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
502 :button (:toggle . overwrite-mode))) |
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
503 (define-key mode-line-mode-menu [outline-minor-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
504 `(menu-item ,(purecopy "Outline (Outl)") outline-minor-mode |
91855
0ea367242241
* vc-hooks.el (vc-menu-map):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
91327
diff
changeset
|
505 ;; XXX: This needs a good, brief description. |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
506 :help ,(purecopy "") |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
507 :button (:toggle . (bound-and-true-p outline-minor-mode)))) |
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
508 (define-key mode-line-mode-menu [highlight-changes-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
509 `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
510 :help ,(purecopy "Show changes in the buffer in a distinctive color") |
59600
26b237e765bf
(mode-line-mode-menu): Use bound-and-true-p for all the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58942
diff
changeset
|
511 :button (:toggle . (bound-and-true-p highlight-changes-mode)))) |
56416
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
512 (define-key mode-line-mode-menu [hide-ifdef-mode] |
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
513 `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
514 :help ,(purecopy "Show/Hide code within #ifdef constructs") |
56416
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
515 :button (:toggle . (bound-and-true-p hide-ifdef-mode)))) |
34339
b00a4ef86bb4
(mode-line-mode-menu): Add glasses-mode.
Gerd Moellmann <gerd@gnu.org>
parents:
34337
diff
changeset
|
516 (define-key mode-line-mode-menu [glasses-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
517 `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
518 :help ,(purecopy "Insert virtual separators to make long identifiers easy to read") |
36882
595b423a9b3f
(mode-line-mode-menu): `glasses-mode' might be unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
36806
diff
changeset
|
519 :button (:toggle . (bound-and-true-p glasses-mode)))) |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
520 (define-key mode-line-mode-menu [font-lock-mode] |
44623
29ce36db46de
(mode-line-mode-menu): Update names to reflect latest changes.
Pavel Janík <Pavel@Janik.cz>
parents:
44205
diff
changeset
|
521 `(menu-item ,(purecopy "Font Lock") font-lock-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
522 :help ,(purecopy "Syntax coloring") |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
523 :button (:toggle . font-lock-mode))) |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
524 (define-key mode-line-mode-menu [flyspell-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
525 `(menu-item ,(purecopy "Flyspell (Fly)") flyspell-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
526 :help ,(purecopy "Spell checking on the fly") |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
527 :button (:toggle . (bound-and-true-p flyspell-mode)))) |
56416
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
528 (define-key mode-line-mode-menu [auto-revert-tail-mode] |
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
529 `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
530 :help ,(purecopy "Revert the tail of the buffer when buffer grows") |
73453
c4f0807660f6
(mode-line-mode-menu): Disable auto-revert-tail-mode
Nick Roberts <nickrob@snap.net.nz>
parents:
73050
diff
changeset
|
531 :enable (buffer-file-name) |
59600
26b237e765bf
(mode-line-mode-menu): Use bound-and-true-p for all the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58942
diff
changeset
|
532 :button (:toggle . (bound-and-true-p auto-revert-tail-mode)))) |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
533 (define-key mode-line-mode-menu [auto-revert-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
534 `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
535 :help ,(purecopy "Revert the buffer when the file on disk changes") |
59600
26b237e765bf
(mode-line-mode-menu): Use bound-and-true-p for all the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58942
diff
changeset
|
536 :button (:toggle . (bound-and-true-p auto-revert-mode)))) |
56416
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
537 (define-key mode-line-mode-menu [auto-fill-mode] |
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
538 `(menu-item ,(purecopy "Auto fill (Fill)") auto-fill-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
539 :help ,(purecopy "Automatically insert new lines") |
56416
5b6d3a196c92
(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
56049
diff
changeset
|
540 :button (:toggle . auto-fill-function))) |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
541 (define-key mode-line-mode-menu [abbrev-mode] |
43267
a98ecf783878
(mode-line-minor-mode-keymap): Definition moved up.
Richard M. Stallman <rms@gnu.org>
parents:
42911
diff
changeset
|
542 `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode |
105016
8604318df7f9
* bindings.el (mode-line-mode-menu): Add purecopy calls for :help.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104937
diff
changeset
|
543 :help ,(purecopy "Automatically expand abbreviations") |
34337
b7ae6305e6eb
(mode-line-mode-menu): Reverse the order
Gerd Moellmann <gerd@gnu.org>
parents:
33585
diff
changeset
|
544 :button (:toggle . abbrev-mode))) |
27238
bfb9906d58b5
(make-mode-line-mouse2-map): New function.
Dave Love <fx@gnu.org>
parents:
27151
diff
changeset
|
545 |
50354
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
546 (defun mode-line-minor-mode-help (event) |
85389
a8bff00271d4
Drew Adams <drew.adams at oracle.com>
Glenn Morris <rgm@gnu.org>
parents:
85376
diff
changeset
|
547 "Describe minor mode for EVENT on minor modes area of the mode line." |
50354
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
548 (interactive "@e") |
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
549 (let ((indicator (car (nth 4 (car (cdr event)))))) |
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
550 (describe-minor-mode-from-indicator indicator))) |
e1b13a2263f8
(mode-line-major-mode-keymap): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
48916
diff
changeset
|
551 |
38757
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
552 (defvar minor-mode-alist nil "\ |
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
553 Alist saying how to show minor modes in the mode line. |
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
554 Each element looks like (VARIABLE STRING); |
78492
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
555 STRING is included in the mode line if VARIABLE's value is non-nil. |
38757
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
556 |
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
557 Actually, STRING need not be a string; any possible mode-line element |
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
558 is okay. See `mode-line-format'.") |
105609
bdcd73244f19
Convert comments about autoloads into autoload comments.
Glenn Morris <rgm@gnu.org>
parents:
105016
diff
changeset
|
559 ;;;###autoload |
104612
c220a29e75fd
Define risky-local-variable property here rather than in files.el.
Glenn Morris <rgm@gnu.org>
parents:
104611
diff
changeset
|
560 (put 'minor-mode-alist 'risky-local-variable t) |
38757
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
561 ;; Don't use purecopy here--some people want to change these strings. |
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
562 (setq minor-mode-alist |
93889
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
563 '((abbrev-mode " Abbrev") |
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
564 (overwrite-mode overwrite-mode) |
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
565 (auto-fill-function " Fill") |
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
566 ;; not really a minor mode... |
a22fbbd18c59
* mouse.el (mouse-menu-major-mode-map): New fun extracted from
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93511
diff
changeset
|
567 (defining-kbd-macro " Def"))) |
38757
75666bd5d498
(minor-mode-alist): Use mode-line-minor-mode-keymap
Gerd Moellmann <gerd@gnu.org>
parents:
38755
diff
changeset
|
568 |
16164 | 569 ;; These variables are used by autoloadable packages. |
570 ;; They are defined here so that they do not get overridden | |
571 ;; by the loading of those packages. | |
572 | |
573 ;; Names in directory that end in one of these | |
574 ;; are ignored in completion, | |
575 ;; making it more likely you will get a unique match. | |
576 (setq completion-ignored-extensions | |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
577 (append |
39930
2e2351633c8e
(completion-ignored-extensions) [ms-dos, windows-nt]:
Eli Zaretskii <eliz@gnu.org>
parents:
39903
diff
changeset
|
578 (cond ((memq system-type '(ms-dos windows-nt)) |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
579 (mapcar 'purecopy |
39930
2e2351633c8e
(completion-ignored-extensions) [ms-dos, windows-nt]:
Eli Zaretskii <eliz@gnu.org>
parents:
39903
diff
changeset
|
580 '(".o" "~" ".bin" ".bak" ".obj" ".map" ".ico" ".pif" ".lnk" |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
581 ".a" ".ln" ".blg" ".bbl" ".dll" ".drv" ".vxd" ".386"))) |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
582 (t |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
583 (mapcar 'purecopy |
39930
2e2351633c8e
(completion-ignored-extensions) [ms-dos, windows-nt]:
Eli Zaretskii <eliz@gnu.org>
parents:
39903
diff
changeset
|
584 '(".o" "~" ".bin" ".lbin" ".so" |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
585 ".a" ".ln" ".blg" ".bbl")))) |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
586 (mapcar 'purecopy |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
587 '(".elc" ".lof" |
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
588 ".glo" ".idx" ".lot" |
101635
929f3ad94b86
Exclude VCS metadata dirs from completion.
Juanma Barranquero <lekktu@gmail.com>
parents:
101578
diff
changeset
|
589 ;; VCS metadata directories |
929f3ad94b86
Exclude VCS metadata dirs from completion.
Juanma Barranquero <lekktu@gmail.com>
parents:
101578
diff
changeset
|
590 ".svn/" ".hg/" ".git/" ".bzr/" "CVS/" "_darcs/" "_MTN/" |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
591 ;; TeX-related |
85369
5b96a46cc08a
* bindings.el (completion-ignored-extensions): Remove pdf and dvi
Reiner Steib <Reiner.Steib@gmx.de>
parents:
85070
diff
changeset
|
592 ".fmt" ".tfm" |
21309
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
593 ;; Java compiled |
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
594 ".class" |
39840
68ca5f31c24d
(completion-ignored-extensions): CL-related
Sam Steingold <sds@gnu.org>
parents:
39587
diff
changeset
|
595 ;; CLISP |
68ca5f31c24d
(completion-ignored-extensions): CL-related
Sam Steingold <sds@gnu.org>
parents:
39587
diff
changeset
|
596 ".fas" ".lib" ".mem" |
21309
dfa28803a4aa
(completion-ignored-extensions): Add a few.
Richard M. Stallman <rms@gnu.org>
parents:
20798
diff
changeset
|
597 ;; CMUCL |
26052
b6e77fbb182b
(completion-ignored-extensions): Added ".sparcf"
Gerd Moellmann <gerd@gnu.org>
parents:
25898
diff
changeset
|
598 ".x86f" ".sparcf" |
53463
160b4f3af303
(completion-ignored-extensions): Add .pfsl.
John Paul Wallington <jpw@pobox.com>
parents:
52815
diff
changeset
|
599 ;; Other CL implementations (Allegro, LispWorks, OpenMCL) |
57168
b4b1dca14832
(completion-ignored-extensions): Add .dfsl.
John Paul Wallington <jpw@pobox.com>
parents:
57166
diff
changeset
|
600 ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl" ".dfsl" |
95593
54d39499f129
(completion-ignored-extensions): Add .p64fsl, .d64fsl, and .dx64fsl.
John Paul Wallington <jpw@pobox.com>
parents:
94678
diff
changeset
|
601 ".p64fsl" ".d64fsl" ".dx64fsl" |
30508
976820f4a1bb
(completion-ignored-extensions): Add `.la', `.lo',
Gerd Moellmann <gerd@gnu.org>
parents:
30309
diff
changeset
|
602 ;; Libtool |
976820f4a1bb
(completion-ignored-extensions): Add `.la', `.lo',
Gerd Moellmann <gerd@gnu.org>
parents:
30309
diff
changeset
|
603 ".lo" ".la" |
46191
ee1f09c2135a
(completion-ignored-extensions): Add .gmo and .mo.
Richard M. Stallman <rms@gnu.org>
parents:
44623
diff
changeset
|
604 ;; Gettext |
ee1f09c2135a
(completion-ignored-extensions): Add .gmo and .mo.
Richard M. Stallman <rms@gnu.org>
parents:
44623
diff
changeset
|
605 ".gmo" ".mo" |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
606 ;; Texinfo-related |
52775
cbc9675be6b0
(completion-ignored-extensions): Remove .log.
Dave Love <fx@gnu.org>
parents:
52664
diff
changeset
|
607 ;; This used to contain .log, but that's commonly used for log |
cbc9675be6b0
(completion-ignored-extensions): Remove .log.
Dave Love <fx@gnu.org>
parents:
52664
diff
changeset
|
608 ;; files you do want to see, not just TeX stuff. -- fx |
cbc9675be6b0
(completion-ignored-extensions): Remove .log.
Dave Love <fx@gnu.org>
parents:
52664
diff
changeset
|
609 ".toc" ".aux" |
16776
b998fe0016d5
(completion-ignored-extensions):
Richard M. Stallman <rms@gnu.org>
parents:
16691
diff
changeset
|
610 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" |
56049
ae7b62bc4999
(completion-ignored-extensions): Add file extensions
Eli Zaretskii <eliz@gnu.org>
parents:
55942
diff
changeset
|
611 ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" |
ae7b62bc4999
(completion-ignored-extensions): Add file extensions
Eli Zaretskii <eliz@gnu.org>
parents:
55942
diff
changeset
|
612 ;; Python byte-compiled |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
613 ".pyc" ".pyo")))) |
16164 | 614 |
39932
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
615 ;; Suffixes used for executables. |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
616 (setq exec-suffixes |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
617 (cond |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
618 ((memq system-type '(ms-dos windows-nt)) |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
619 '(".exe" ".com" ".bat" ".cmd" ".btm" "")) |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
620 (t |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
621 '("")))) |
ade54d52bb06
(exec-suffixes): Initialize to a system-dependent value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39930
diff
changeset
|
622 |
28105
763e873d5257
(mode-line-format): Fix line-number and
Dave Love <fx@gnu.org>
parents:
27783
diff
changeset
|
623 ;; Packages should add to this list appropriately when they are |
763e873d5257
(mode-line-format): Fix line-number and
Dave Love <fx@gnu.org>
parents:
27783
diff
changeset
|
624 ;; loaded, rather than listing everything here. |
16164 | 625 (setq debug-ignored-errors |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
626 `(beginning-of-line beginning-of-buffer end-of-line |
16164 | 627 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
|
628 file-supersession |
105765
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
629 ,(purecopy "^Previous command was not a yank$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
630 ,(purecopy "^Minibuffer window is not active$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
631 ,(purecopy "^No previous history search regexp$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
632 ,(purecopy "^No later matching history item$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
633 ,(purecopy "^No earlier matching history item$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
634 ,(purecopy "^End of history; no default available$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
635 ,(purecopy "^End of defaults; no next item$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
636 ,(purecopy "^Beginning of history; no preceding item$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
637 ,(purecopy "^No recursive edit is in progress$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
638 ,(purecopy "^Changes to be undone are outside visible portion of buffer$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
639 ,(purecopy "^No undo information in this buffer$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
640 ,(purecopy "^No further undo information") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
641 ,(purecopy "^Save not confirmed$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
642 ,(purecopy "^Recover-file cancelled\\.$") |
db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105716
diff
changeset
|
643 ,(purecopy "^Cannot switch buffers in a dedicated window$") |
55942
7297a6eaf64b
* bindings.el (debug-ignored-errors): Add regexps for history
Juri Linkov <juri@jurta.org>
parents:
55275
diff
changeset
|
644 )) |
16164 | 645 |
646 | |
647 (make-variable-buffer-local 'indent-tabs-mode) | |
648 | |
36806
6eaf3f2390b4
(features): Add `md5' and `overlay' to the list.
Gerd Moellmann <gerd@gnu.org>
parents:
35777
diff
changeset
|
649 ;; We have base64 and md5 functions built in now. |
41172
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
650 (provide 'base64) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
651 (provide 'md5) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
652 (provide 'overlay '(display syntax-table field)) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
653 (provide 'text-properties '(display syntax-table field point-entered)) |
23783
d015bfcaaead
(features): Add `base64' to this list.
Richard M. Stallman <rms@gnu.org>
parents:
22705
diff
changeset
|
654 |
18325
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
655 (define-key esc-map "\t" 'complete-symbol) |
65986b1a2cd6
(complete-symbol): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18303
diff
changeset
|
656 |
16164 | 657 ;; Reduce total amount of space we must allocate during this function |
658 ;; that we will not need to keep permanently. | |
659 (garbage-collect) | |
660 | |
17784
5b2fa4a13a8b
Define Latin-1, Latin-2 and Latin-3 chars as self-inserting.
Richard M. Stallman <rms@gnu.org>
parents:
17595
diff
changeset
|
661 |
16164 | 662 (setq help-event-list '(help f1)) |
663 | |
20577
46c697b88c83
(minor-mode-overriding-map-alist):
Richard M. Stallman <rms@gnu.org>
parents:
20416
diff
changeset
|
664 (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
|
665 |
41172
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
666 ;; From frame.c |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
667 (global-set-key [switch-frame] 'handle-switch-frame) |
50554
ff982d8c0772
(global-map): Bind [select-window].
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50354
diff
changeset
|
668 (global-set-key [select-window] 'handle-select-window) |
ff982d8c0772
(global-map): Bind [select-window].
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50354
diff
changeset
|
669 |
ff982d8c0772
(global-map): Bind [select-window].
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50354
diff
changeset
|
670 ;; FIXME: Do those 3 events really ever reach the global-map ? |
ff982d8c0772
(global-map): Bind [select-window].
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50354
diff
changeset
|
671 ;; It seems that they can't because they're handled via |
ff982d8c0772
(global-map): Bind [select-window].
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50354
diff
changeset
|
672 ;; special-event-map which is used at very low-level. -stef |
41172
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
673 (global-set-key [delete-frame] 'handle-delete-frame) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
674 (global-set-key [iconify-frame] 'ignore-event) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
675 (global-set-key [make-frame-visible] 'ignore-event) |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
676 |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
677 |
16164 | 678 ;These commands are defined in editfns.c |
679 ;but they are not assigned to keys there. | |
680 (put 'narrow-to-region 'disabled t) | |
96437
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
681 |
108824
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
682 ;; Moving with arrows in bidi-sensitive direction. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
683 (defun right-char (&optional n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
684 "Move point N characters to the right (to the left if N is negative). |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
685 On reaching beginning or end of buffer, stop and signal error. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
686 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
687 Depending on the bidirectional context, this may move either forward |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
688 or backward in the buffer. This is in contrast with \\[forward-char] |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
689 and \\[backward-char], which see." |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
690 (interactive "^p") |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
691 (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
692 (forward-char n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
693 (backward-char n))) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
694 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
695 (defun left-char ( &optional n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
696 "Move point N characters to the left (to the right if N is negative). |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
697 On reaching beginning or end of buffer, stop and signal error. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
698 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
699 Depending on the bidirectional context, this may move either backward |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
700 or forward in the buffer. This is in contrast with \\[backward-char] |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
701 and \\[forward-char], which see." |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
702 (interactive "^p") |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
703 (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
704 (backward-char n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
705 (forward-char n))) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
706 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
707 (defun right-word (&optional n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
708 "Move point N words to the right (to the left if N is negative). |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
709 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
710 Depending on the bidirectional context, this may move either forward |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
711 or backward in the buffer. This is in contrast with \\[forward-word] |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
712 and \\[backward-word], which see. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
713 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
714 Value is normally t. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
715 If an edge of the buffer or a field boundary is reached, point is left there |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
716 there and the function returns nil. Field boundaries are not noticed |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
717 if `inhibit-field-text-motion' is non-nil." |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
718 (interactive "^p") |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
719 (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
720 (forward-word n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
721 (backward-word n))) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
722 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
723 (defun left-word (&optional n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
724 "Move point N words to the left (to the right if N is negative). |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
725 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
726 Depending on the bidirectional context, this may move either backward |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
727 or forward in the buffer. This is in contrast with \\[backward-word] |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
728 and \\[forward-word], which see. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
729 |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
730 Value is normally t. |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
731 If an edge of the buffer or a field boundary is reached, point is left there |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
732 there and the function returns nil. Field boundaries are not noticed |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
733 if `inhibit-field-text-motion' is non-nil." |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
734 (interactive "^p") |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
735 (if (eq (current-bidi-paragraph-direction) 'left-to-right) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
736 (backward-word n) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
737 (forward-word n))) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
738 |
96437
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
739 (defvar narrow-map (make-sparse-keymap) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
740 "Keymap for narrowing commands.") |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
741 (define-key ctl-x-map "n" narrow-map) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
742 |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
743 (define-key narrow-map "n" 'narrow-to-region) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
744 (define-key narrow-map "w" 'widen) |
16164 | 745 |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
746 ;; Quitting |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
747 (define-key global-map "\e\e\e" 'keyboard-escape-quit) |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
748 (define-key global-map "\C-g" 'keyboard-quit) |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
749 |
84698
e6e2af0f00c5
Bind C-z to suspend-frame instead of suspend-emacs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
750 ;; Used to be in termdev.el: when using several terminals, make C-z |
e6e2af0f00c5
Bind C-z to suspend-frame instead of suspend-emacs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
751 ;; suspend only the relevant terminal. |
e6e2af0f00c5
Bind C-z to suspend-frame instead of suspend-emacs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
752 (substitute-key-definition 'suspend-emacs 'suspend-frame global-map) |
e6e2af0f00c5
Bind C-z to suspend-frame instead of suspend-emacs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83652
diff
changeset
|
753 |
16164 | 754 (define-key global-map "\C-j" 'newline-and-indent) |
755 (define-key global-map "\C-m" 'newline) | |
756 (define-key global-map "\C-o" 'open-line) | |
757 (define-key esc-map "\C-o" 'split-line) | |
758 (define-key global-map "\C-q" 'quoted-insert) | |
759 (define-key esc-map "^" 'delete-indentation) | |
760 (define-key esc-map "\\" 'delete-horizontal-space) | |
761 (define-key esc-map "m" 'back-to-indentation) | |
762 (define-key ctl-x-map "\C-o" 'delete-blank-lines) | |
763 (define-key esc-map " " 'just-one-space) | |
764 (define-key esc-map "z" 'zap-to-char) | |
765 (define-key esc-map "=" 'count-lines-region) | |
766 (define-key ctl-x-map "=" 'what-cursor-position) | |
767 (define-key esc-map ":" 'eval-expression) | |
768 ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. | |
769 (define-key esc-map "\M-:" 'eval-expression) | |
770 ;; Changed from C-x ESC so that function keys work following C-x. | |
771 (define-key ctl-x-map "\e\e" 'repeat-complex-command) | |
772 ;; New binding analogous to M-:. | |
773 (define-key ctl-x-map "\M-:" 'repeat-complex-command) | |
104922
c603ee2aac17
* keymap.c (QCadvertised_binding): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104612
diff
changeset
|
774 (define-key ctl-x-map "u" 'undo) |
c603ee2aac17
* keymap.c (QCadvertised_binding): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104612
diff
changeset
|
775 (put 'undo :advertised-binding [?\C-x ?u]) |
16164 | 776 ;; Many people are used to typing C-/ on X terminals and getting C-_. |
777 (define-key global-map [?\C-/] 'undo) | |
778 (define-key global-map "\C-_" 'undo) | |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
779 ;; Richard said that we should not use C-x <uppercase letter> and I have |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
780 ;; no idea whereas to bind it. Any suggestion welcome. -stef |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
781 ;; (define-key ctl-x-map "U" 'undo-only) |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
782 |
16164 | 783 (define-key esc-map "!" 'shell-command) |
784 (define-key esc-map "|" 'shell-command-on-region) | |
103695
eace56b963d4
(esc-map): Bind "&" to `async-shell-command'.
Juri Linkov <juri@jurta.org>
parents:
103565
diff
changeset
|
785 (define-key esc-map "&" 'async-shell-command) |
16164 | 786 |
96437
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
787 (define-key ctl-x-map [right] 'next-buffer) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
788 (define-key ctl-x-map [C-right] 'next-buffer) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
789 (define-key ctl-x-map [left] 'previous-buffer) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
790 (define-key ctl-x-map [C-left] 'previous-buffer) |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
791 |
39842
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
792 (let ((map minibuffer-local-map)) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
793 (define-key map "\en" 'next-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
794 (define-key map [next] 'next-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
795 (define-key map [down] 'next-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
796 (define-key map "\ep" 'previous-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
797 (define-key map [prior] 'previous-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
798 (define-key map [up] 'previous-history-element) |
12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39840
diff
changeset
|
799 (define-key map "\es" 'next-matching-history-element) |
72000
8c5ba642d479
(minibuffer-local-map): Rebind TAB so it inserts a \t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71393
diff
changeset
|
800 (define-key map "\er" 'previous-matching-history-element) |
8c5ba642d479
(minibuffer-local-map): Rebind TAB so it inserts a \t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71393
diff
changeset
|
801 ;; Override the global binding (which calls indent-relative via |
8c5ba642d479
(minibuffer-local-map): Rebind TAB so it inserts a \t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71393
diff
changeset
|
802 ;; indent-for-tab-command). The alignment that indent-relative tries to |
8c5ba642d479
(minibuffer-local-map): Rebind TAB so it inserts a \t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71393
diff
changeset
|
803 ;; do doesn't make much sense here since the prompt messes it up. |
79402
ffe5ab1e2653
(minibuffer-local-map): Bind C-tab here; moved from filecache.el.
Richard M. Stallman <rms@gnu.org>
parents:
78492
diff
changeset
|
804 (define-key map "\t" 'self-insert-command) |
93206
41abeabbef6f
(minibuffer-local-map): For the command
Juri Linkov <juri@jurta.org>
parents:
93161
diff
changeset
|
805 (define-key map [C-tab] 'file-cache-minibuffer-complete)) |
16164 | 806 |
807 (define-key global-map "\C-u" 'universal-argument) | |
808 (let ((i ?0)) | |
809 (while (<= i ?9) | |
810 (define-key esc-map (char-to-string i) 'digit-argument) | |
811 (setq i (1+ i)))) | |
812 (define-key esc-map "-" 'negative-argument) | |
813 ;; Define control-digits. | |
814 (let ((i ?0)) | |
815 (while (<= i ?9) | |
816 (define-key global-map (read (format "[?\\C-%c]" i)) 'digit-argument) | |
817 (setq i (1+ i)))) | |
818 (define-key global-map [?\C--] 'negative-argument) | |
819 ;; Define control-meta-digits. | |
820 (let ((i ?0)) | |
821 (while (<= i ?9) | |
822 (define-key esc-map (read (format "[?\\C-%c]" i)) 'digit-argument) | |
823 (setq i (1+ i)))) | |
824 (define-key global-map [?\C-\M--] 'negative-argument) | |
825 | |
109062
d8144fe7f3f8
* bindings.el (global-map): Bind delete and DEL, the former to
Chong Yidong <cyd@stupidchicken.com>
parents:
108824
diff
changeset
|
826 (define-key global-map "\177" 'delete-backward-char) |
d8144fe7f3f8
* bindings.el (global-map): Bind delete and DEL, the former to
Chong Yidong <cyd@stupidchicken.com>
parents:
108824
diff
changeset
|
827 (define-key global-map "\C-d" 'delete-forward-char) |
d8144fe7f3f8
* bindings.el (global-map): Bind delete and DEL, the former to
Chong Yidong <cyd@stupidchicken.com>
parents:
108824
diff
changeset
|
828 |
16164 | 829 (define-key global-map "\C-k" 'kill-line) |
830 (define-key global-map "\C-w" 'kill-region) | |
831 (define-key esc-map "w" 'kill-ring-save) | |
832 (define-key esc-map "\C-w" 'append-next-kill) | |
833 (define-key global-map "\C-y" 'yank) | |
834 (define-key esc-map "y" 'yank-pop) | |
835 | |
836 ;; (define-key ctl-x-map "a" 'append-to-buffer) | |
837 | |
838 (define-key global-map "\C-@" 'set-mark-command) | |
839 ;; 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
|
840 (define-key global-map [?\C- ] 'set-mark-command) |
16164 | 841 (define-key ctl-x-map "\C-x" 'exchange-point-and-mark) |
842 (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
|
843 (define-key ctl-x-map [?\C- ] 'pop-global-mark) |
16164 | 844 |
845 (define-key global-map "\C-n" 'next-line) | |
846 (define-key global-map "\C-p" 'previous-line) | |
847 (define-key ctl-x-map "\C-n" 'set-goal-column) | |
60485
6a79fa294dd4
(global-map): Bind C-a to move-beginning-of-line.
Kim F. Storm <storm@cua.dk>
parents:
60469
diff
changeset
|
848 (define-key global-map "\C-a" 'move-beginning-of-line) |
58355
7c3e2674726f
(global-map): Bind C-e to move-end-of-line.
Richard M. Stallman <rms@gnu.org>
parents:
57168
diff
changeset
|
849 (define-key global-map "\C-e" 'move-end-of-line) |
16164 | 850 |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
851 (define-key ctl-x-map "`" 'next-error) |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
852 |
96281
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
853 (defvar goto-map (make-sparse-keymap) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
854 "Keymap for navigation commands.") |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
855 (define-key esc-map "g" goto-map) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
856 |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
857 (define-key goto-map "g" 'goto-line) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
858 (define-key goto-map "\M-g" 'goto-line) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
859 (define-key goto-map "n" 'next-error) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
860 (define-key goto-map "\M-n" 'next-error) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
861 (define-key goto-map "p" 'previous-error) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
862 (define-key goto-map "\M-p" 'previous-error) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
863 |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
864 (defvar search-map (make-sparse-keymap) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
865 "Keymap for search related commands.") |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
866 (define-key esc-map "s" search-map) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
867 |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
868 (define-key search-map "o" 'occur) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
869 (define-key search-map "hr" 'highlight-regexp) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
870 (define-key search-map "hp" 'highlight-phrase) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
871 (define-key search-map "hl" 'highlight-lines-matching-regexp) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
872 (define-key search-map "hu" 'unhighlight-regexp) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
873 (define-key search-map "hf" 'hi-lock-find-patterns) |
b61f47138fd3
(goto-map): New variable. Rebind goto-related
Juri Linkov <juri@jurta.org>
parents:
95593
diff
changeset
|
874 (define-key search-map "hw" 'hi-lock-write-interactive-patterns) |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
875 |
16164 | 876 ;;(defun function-key-error () |
877 ;; (interactive) | |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
38300
diff
changeset
|
878 ;; (error "That function key is not bound to anything")) |
16164 | 879 |
880 (define-key global-map [menu] 'execute-extended-command) | |
881 (define-key global-map [find] 'search-forward) | |
882 | |
35347
696e854064c5
Bind <backspace> and <delete> via function-key-map.
Gerd Moellmann <gerd@gnu.org>
parents:
35164
diff
changeset
|
883 ;; Don't do this. We define <delete> in function-key-map instead. |
696e854064c5
Bind <backspace> and <delete> via function-key-map.
Gerd Moellmann <gerd@gnu.org>
parents:
35164
diff
changeset
|
884 ;(define-key global-map [delete] 'backward-delete-char) |
30113
44717f85a62c
Bind ?[delete]' to delete-char.
Gerd Moellmann <gerd@gnu.org>
parents:
29216
diff
changeset
|
885 |
16164 | 886 ;; natural bindings for terminal keycaps --- defined in X keysym order |
51541
0b97efe4ae23
(global-map): Bind `kill-whole-line' to C-S-<backspace>.
Luc Teirlinck <teirllm@auburn.edu>
parents:
51420
diff
changeset
|
887 (define-key global-map [C-S-backspace] 'kill-whole-line) |
65844
d5c276f89641
(global-map): Resync [home] and [end] bindings with C-a and C-e.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65524
diff
changeset
|
888 (define-key global-map [home] 'move-beginning-of-line) |
35164
b3365833b164
(global-map): Bind <home> to beginning-of-line,
Gerd Moellmann <gerd@gnu.org>
parents:
34830
diff
changeset
|
889 (define-key global-map [C-home] 'beginning-of-buffer) |
16164 | 890 (define-key global-map [M-home] 'beginning-of-buffer-other-window) |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
891 (define-key esc-map [home] 'beginning-of-buffer-other-window) |
108824
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
892 (define-key global-map [left] 'left-char) |
16164 | 893 (define-key global-map [up] 'previous-line) |
108824
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
894 (define-key global-map [right] 'right-char) |
16164 | 895 (define-key global-map [down] 'next-line) |
107784
45b05d993766
Scrolling commands which does not signal errors at top/bottom.
Juri Linkov <juri@jurta.org>
parents:
106815
diff
changeset
|
896 (define-key global-map [prior] 'scroll-down-command) |
45b05d993766
Scrolling commands which does not signal errors at top/bottom.
Juri Linkov <juri@jurta.org>
parents:
106815
diff
changeset
|
897 (define-key global-map [next] 'scroll-up-command) |
16164 | 898 (define-key global-map [C-up] 'backward-paragraph) |
899 (define-key global-map [C-down] 'forward-paragraph) | |
900 (define-key global-map [C-prior] 'scroll-right) | |
57166
229978f30136
(scroll-left): Make it disabled.
Richard M. Stallman <rms@gnu.org>
parents:
56416
diff
changeset
|
901 (put 'scroll-left 'disabled t) |
16164 | 902 (define-key global-map [C-next] 'scroll-left) |
903 (define-key global-map [M-next] 'scroll-other-window) | |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
904 (define-key esc-map [next] 'scroll-other-window) |
16164 | 905 (define-key global-map [M-prior] 'scroll-other-window-down) |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
906 (define-key esc-map [prior] 'scroll-other-window-down) |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
907 (define-key esc-map [?\C-\S-v] 'scroll-other-window-down) |
65844
d5c276f89641
(global-map): Resync [home] and [end] bindings with C-a and C-e.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65524
diff
changeset
|
908 (define-key global-map [end] 'move-end-of-line) |
35164
b3365833b164
(global-map): Bind <home> to beginning-of-line,
Gerd Moellmann <gerd@gnu.org>
parents:
34830
diff
changeset
|
909 (define-key global-map [C-end] 'end-of-buffer) |
16164 | 910 (define-key global-map [M-end] 'end-of-buffer-other-window) |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
911 (define-key esc-map [end] 'end-of-buffer-other-window) |
16164 | 912 (define-key global-map [begin] 'beginning-of-buffer) |
913 (define-key global-map [M-begin] 'beginning-of-buffer-other-window) | |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
914 (define-key esc-map [begin] 'beginning-of-buffer-other-window) |
16164 | 915 ;; (define-key global-map [select] 'function-key-error) |
916 ;; (define-key global-map [print] 'function-key-error) | |
917 (define-key global-map [execute] 'execute-extended-command) | |
918 (define-key global-map [insert] 'overwrite-mode) | |
919 (define-key global-map [C-insert] 'kill-ring-save) | |
920 (define-key global-map [S-insert] 'yank) | |
63812
f4952f257c55
(global-map): Bind insertchar and its variants.
Richard M. Stallman <rms@gnu.org>
parents:
63654
diff
changeset
|
921 ;; `insertchar' is what term.c produces. Should we change term.c |
f4952f257c55
(global-map): Bind insertchar and its variants.
Richard M. Stallman <rms@gnu.org>
parents:
63654
diff
changeset
|
922 ;; to produce `insert' instead? |
f4952f257c55
(global-map): Bind insertchar and its variants.
Richard M. Stallman <rms@gnu.org>
parents:
63654
diff
changeset
|
923 (define-key global-map [insertchar] 'overwrite-mode) |
f4952f257c55
(global-map): Bind insertchar and its variants.
Richard M. Stallman <rms@gnu.org>
parents:
63654
diff
changeset
|
924 (define-key global-map [C-insertchar] 'kill-ring-save) |
f4952f257c55
(global-map): Bind insertchar and its variants.
Richard M. Stallman <rms@gnu.org>
parents:
63654
diff
changeset
|
925 (define-key global-map [S-insertchar] 'yank) |
16164 | 926 (define-key global-map [undo] 'undo) |
927 (define-key global-map [redo] 'repeat-complex-command) | |
52775
cbc9675be6b0
(completion-ignored-extensions): Remove .log.
Dave Love <fx@gnu.org>
parents:
52664
diff
changeset
|
928 (define-key global-map [again] 'repeat-complex-command) ; Sun keyboard |
cbc9675be6b0
(completion-ignored-extensions): Remove .log.
Dave Love <fx@gnu.org>
parents:
52664
diff
changeset
|
929 (define-key global-map [open] 'find-file) ; Sun |
52815 | 930 ;; The following wouldn't work to interrupt running code since C-g is |
931 ;; treated specially in the event loop. | |
932 ;; (define-key global-map [stop] 'keyboard-quit) ; Sun | |
16164 | 933 ;; (define-key global-map [clearline] 'function-key-error) |
934 (define-key global-map [insertline] 'open-line) | |
935 (define-key global-map [deleteline] 'kill-line) | |
936 (define-key global-map [deletechar] 'delete-char) | |
937 ;; (define-key global-map [backtab] 'function-key-error) | |
938 ;; (define-key global-map [f1] 'function-key-error) | |
939 ;; (define-key global-map [f2] 'function-key-error) | |
940 ;; (define-key global-map [f3] 'function-key-error) | |
941 ;; (define-key global-map [f4] 'function-key-error) | |
942 ;; (define-key global-map [f5] 'function-key-error) | |
943 ;; (define-key global-map [f6] 'function-key-error) | |
944 ;; (define-key global-map [f7] 'function-key-error) | |
945 ;; (define-key global-map [f8] 'function-key-error) | |
946 ;; (define-key global-map [f9] 'function-key-error) | |
947 ;; (define-key global-map [f10] 'function-key-error) | |
948 ;; (define-key global-map [f11] 'function-key-error) | |
949 ;; (define-key global-map [f12] 'function-key-error) | |
950 ;; (define-key global-map [f13] 'function-key-error) | |
951 ;; (define-key global-map [f14] 'function-key-error) | |
952 ;; (define-key global-map [f15] 'function-key-error) | |
953 ;; (define-key global-map [f16] 'function-key-error) | |
954 ;; (define-key global-map [f17] 'function-key-error) | |
955 ;; (define-key global-map [f18] 'function-key-error) | |
956 ;; (define-key global-map [f19] 'function-key-error) | |
957 ;; (define-key global-map [f20] 'function-key-error) | |
958 ;; (define-key global-map [f21] 'function-key-error) | |
959 ;; (define-key global-map [f22] 'function-key-error) | |
960 ;; (define-key global-map [f23] 'function-key-error) | |
961 ;; (define-key global-map [f24] 'function-key-error) | |
962 ;; (define-key global-map [f25] 'function-key-error) | |
963 ;; (define-key global-map [f26] 'function-key-error) | |
964 ;; (define-key global-map [f27] 'function-key-error) | |
965 ;; (define-key global-map [f28] 'function-key-error) | |
966 ;; (define-key global-map [f29] 'function-key-error) | |
967 ;; (define-key global-map [f30] 'function-key-error) | |
968 ;; (define-key global-map [f31] 'function-key-error) | |
969 ;; (define-key global-map [f32] 'function-key-error) | |
970 ;; (define-key global-map [f33] 'function-key-error) | |
971 ;; (define-key global-map [f34] 'function-key-error) | |
972 ;; (define-key global-map [f35] 'function-key-error) | |
973 ;; (define-key global-map [kp-backtab] 'function-key-error) | |
974 ;; (define-key global-map [kp-space] 'function-key-error) | |
975 ;; (define-key global-map [kp-tab] 'function-key-error) | |
976 ;; (define-key global-map [kp-enter] 'function-key-error) | |
977 ;; (define-key global-map [kp-f1] 'function-key-error) | |
978 ;; (define-key global-map [kp-f2] 'function-key-error) | |
979 ;; (define-key global-map [kp-f3] 'function-key-error) | |
980 ;; (define-key global-map [kp-f4] 'function-key-error) | |
981 ;; (define-key global-map [kp-multiply] 'function-key-error) | |
982 ;; (define-key global-map [kp-add] 'function-key-error) | |
983 ;; (define-key global-map [kp-separator] 'function-key-error) | |
984 ;; (define-key global-map [kp-subtract] 'function-key-error) | |
985 ;; (define-key global-map [kp-decimal] 'function-key-error) | |
986 ;; (define-key global-map [kp-divide] 'function-key-error) | |
987 ;; (define-key global-map [kp-0] 'function-key-error) | |
988 ;; (define-key global-map [kp-1] 'function-key-error) | |
989 ;; (define-key global-map [kp-2] 'function-key-error) | |
990 ;; (define-key global-map [kp-3] 'function-key-error) | |
991 ;; (define-key global-map [kp-4] 'function-key-error) | |
992 ;; (define-key global-map [kp-5] 'recenter) | |
993 ;; (define-key global-map [kp-6] 'function-key-error) | |
994 ;; (define-key global-map [kp-7] 'function-key-error) | |
995 ;; (define-key global-map [kp-8] 'function-key-error) | |
996 ;; (define-key global-map [kp-9] 'function-key-error) | |
997 ;; (define-key global-map [kp-equal] 'function-key-error) | |
998 | |
999 ;; X11R6 distinguishes these keys from the non-kp keys. | |
1000 ;; Make them behave like the non-kp keys unless otherwise bound. | |
105675
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1001 ;; FIXME: rather than list such mappings for every modifier-combination, |
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1002 ;; we should come up with a way to do it generically, something like |
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1003 ;; (define-key function-key-map [*-kp-home] [*-home]) |
16164 | 1004 (define-key function-key-map [kp-home] [home]) |
1005 (define-key function-key-map [kp-left] [left]) | |
1006 (define-key function-key-map [kp-up] [up]) | |
1007 (define-key function-key-map [kp-right] [right]) | |
1008 (define-key function-key-map [kp-down] [down]) | |
1009 (define-key function-key-map [kp-prior] [prior]) | |
1010 (define-key function-key-map [kp-next] [next]) | |
1011 (define-key function-key-map [M-kp-next] [M-next]) | |
1012 (define-key function-key-map [kp-end] [end]) | |
1013 (define-key function-key-map [kp-begin] [begin]) | |
1014 (define-key function-key-map [kp-insert] [insert]) | |
35347
696e854064c5
Bind <backspace> and <delete> via function-key-map.
Gerd Moellmann <gerd@gnu.org>
parents:
35164
diff
changeset
|
1015 (define-key function-key-map [backspace] [?\C-?]) |
696e854064c5
Bind <backspace> and <delete> via function-key-map.
Gerd Moellmann <gerd@gnu.org>
parents:
35164
diff
changeset
|
1016 (define-key function-key-map [delete] [?\C-?]) |
35777
b13d1ed54cfc
Define `kp-delete' like `delete' in function-key-map.
Gerd Moellmann <gerd@gnu.org>
parents:
35347
diff
changeset
|
1017 (define-key function-key-map [kp-delete] [?\C-?]) |
38642
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1018 (define-key function-key-map [S-kp-end] [S-end]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1019 (define-key function-key-map [S-kp-down] [S-down]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1020 (define-key function-key-map [S-kp-next] [S-next]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1021 (define-key function-key-map [S-kp-left] [S-left]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1022 (define-key function-key-map [S-kp-right] [S-right]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1023 (define-key function-key-map [S-kp-home] [S-home]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1024 (define-key function-key-map [S-kp-up] [S-up]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1025 (define-key function-key-map [S-kp-prior] [S-prior]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1026 (define-key function-key-map [C-S-kp-end] [C-S-end]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1027 (define-key function-key-map [C-S-kp-down] [C-S-down]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1028 (define-key function-key-map [C-S-kp-next] [C-S-next]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1029 (define-key function-key-map [C-S-kp-left] [C-S-left]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1030 (define-key function-key-map [C-S-kp-right] [C-S-right]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1031 (define-key function-key-map [C-S-kp-home] [C-S-home]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1032 (define-key function-key-map [C-S-kp-up] [C-S-up]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1033 (define-key function-key-map [C-S-kp-prior] [C-S-prior]) |
42482
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1034 ;; Don't bind shifted keypad numeric keys, they reportedly |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1035 ;; interfere with the feature of some keyboards to produce |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1036 ;; numbers when NumLock is off. |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1037 ;(define-key function-key-map [S-kp-1] [S-end]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1038 ;(define-key function-key-map [S-kp-2] [S-down]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1039 ;(define-key function-key-map [S-kp-3] [S-next]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1040 ;(define-key function-key-map [S-kp-4] [S-left]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1041 ;(define-key function-key-map [S-kp-6] [S-right]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1042 ;(define-key function-key-map [S-kp-7] [S-home]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1043 ;(define-key function-key-map [S-kp-8] [S-up]) |
955a445b9717
(function-key-map): Don't bind shifted keypad numeric keys.
Eli Zaretskii <eliz@gnu.org>
parents:
41826
diff
changeset
|
1044 ;(define-key function-key-map [S-kp-9] [S-prior]) |
38642
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1045 (define-key function-key-map [C-S-kp-1] [C-S-end]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1046 (define-key function-key-map [C-S-kp-2] [C-S-down]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1047 (define-key function-key-map [C-S-kp-3] [C-S-next]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1048 (define-key function-key-map [C-S-kp-4] [C-S-left]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1049 (define-key function-key-map [C-S-kp-6] [C-S-right]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1050 (define-key function-key-map [C-S-kp-7] [C-S-home]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1051 (define-key function-key-map [C-S-kp-8] [C-S-up]) |
4d538c0a8afc
Bind shifted and control-shifted kp-* keys to the
Eli Zaretskii <eliz@gnu.org>
parents:
38409
diff
changeset
|
1052 (define-key function-key-map [C-S-kp-9] [C-S-prior]) |
16164 | 1053 |
105675
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1054 ;; Hitting C-SPC on text terminals, usually sends the ascii code 0 (aka C-@), |
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1055 ;; so we can't distinguish those two keys, but usually we consider C-SPC |
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1056 ;; (rather than C-@) as the "canonical" binding. |
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1057 (define-key function-key-map [?\C-@] [?\C-\s]) |
109702
0837e4551510
* bindings.el (function-key-map): Add a S-tab => backtab fallback.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
1058 ;; Many keyboards don't have a `backtab' key, so by convention the user |
0837e4551510
* bindings.el (function-key-map): Add a S-tab => backtab fallback.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
1059 ;; can use S-tab instead to access that binding. |
0837e4551510
* bindings.el (function-key-map): Add a S-tab => backtab fallback.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
1060 (define-key function-key-map [S-tab] [backtab]) |
105675
6a84af00a480
(function-key-map): Map C-@ to C-SPC if C-@ is unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105609
diff
changeset
|
1061 |
16164 | 1062 (define-key global-map [mouse-movement] 'ignore) |
1063 | |
1064 (define-key global-map "\C-t" 'transpose-chars) | |
1065 (define-key esc-map "t" 'transpose-words) | |
1066 (define-key esc-map "\C-t" 'transpose-sexps) | |
1067 (define-key ctl-x-map "\C-t" 'transpose-lines) | |
1068 | |
29216
bc6192b0e1af
(esc-map): Change ; to comment-dwim and use the new function
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29081
diff
changeset
|
1069 (define-key esc-map ";" 'comment-dwim) |
39903
001efc29394a
(esc-map): Revert `j' and `C-j' bindings to
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39842
diff
changeset
|
1070 (define-key esc-map "j" 'indent-new-comment-line) |
001efc29394a
(esc-map): Revert `j' and `C-j' bindings to
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39842
diff
changeset
|
1071 (define-key esc-map "\C-j" 'indent-new-comment-line) |
29216
bc6192b0e1af
(esc-map): Change ; to comment-dwim and use the new function
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29081
diff
changeset
|
1072 (define-key ctl-x-map ";" 'comment-set-column) |
16164 | 1073 (define-key ctl-x-map "f" 'set-fill-column) |
1074 (define-key ctl-x-map "$" 'set-selective-display) | |
1075 | |
1076 (define-key esc-map "@" 'mark-word) | |
1077 (define-key esc-map "f" 'forward-word) | |
1078 (define-key esc-map "b" 'backward-word) | |
1079 (define-key esc-map "d" 'kill-word) | |
1080 (define-key esc-map "\177" 'backward-kill-word) | |
1081 | |
1082 (define-key esc-map "<" 'beginning-of-buffer) | |
1083 (define-key esc-map ">" 'end-of-buffer) | |
1084 (define-key ctl-x-map "h" 'mark-whole-buffer) | |
1085 (define-key esc-map "\\" 'delete-horizontal-space) | |
1086 | |
1087 (defalias 'mode-specific-command-prefix (make-sparse-keymap)) | |
16691
285f4e41d163
Change defconsts to defvars.
Richard M. Stallman <rms@gnu.org>
parents:
16523
diff
changeset
|
1088 (defvar mode-specific-map (symbol-function 'mode-specific-command-prefix) |
16164 | 1089 "Keymap for characters following C-c.") |
1090 (define-key global-map "\C-c" 'mode-specific-command-prefix) | |
1091 | |
1092 (global-set-key [M-right] 'forward-word) | |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1093 (define-key esc-map [right] 'forward-word) |
16164 | 1094 (global-set-key [M-left] 'backward-word) |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1095 (define-key esc-map [left] 'backward-word) |
16164 | 1096 ;; ilya@math.ohio-state.edu says these bindings are standard on PC editors. |
108824
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
1097 (global-set-key [C-right] 'right-word) |
8aaae2681a62
Implement bidi-sensitive word movement with arrow keys.
Eli Zaretskii <eliz@gnu.org>
parents:
108596
diff
changeset
|
1098 (global-set-key [C-left] 'left-word) |
16164 | 1099 ;; This is not quite compatible, but at least is analogous |
101578
84d629592864
Swap C-delete and C-backspace bindings here, so we don't have to do it
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
1100 (global-set-key [C-delete] 'kill-word) |
84d629592864
Swap C-delete and C-backspace bindings here, so we don't have to do it
Chong Yidong <cyd@stupidchicken.com>
parents:
100908
diff
changeset
|
1101 (global-set-key [C-backspace] 'backward-kill-word) |
16164 | 1102 ;; This is "move to the clipboard", or as close as we come. |
1103 (global-set-key [S-delete] 'kill-region) | |
1104 | |
63301
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1105 (global-set-key [C-M-left] 'backward-sexp) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1106 (define-key esc-map [C-left] 'backward-sexp) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1107 (global-set-key [C-M-right] 'forward-sexp) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1108 (define-key esc-map [C-right] 'forward-sexp) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1109 (global-set-key [C-M-up] 'backward-up-list) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1110 (define-key esc-map [C-up] 'backward-up-list) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1111 (global-set-key [C-M-down] 'down-list) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1112 (define-key esc-map [C-down] 'down-list) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1113 (global-set-key [C-M-home] 'beginning-of-defun) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1114 (define-key esc-map [C-home] 'beginning-of-defun) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1115 (global-set-key [C-M-end] 'end-of-defun) |
5a2af2a8e232
Add binding of `ESC functionkey' for every `M-functionkey'.
Andreas Schwab <schwab@suse.de>
parents:
62651
diff
changeset
|
1116 (define-key esc-map [C-end] 'end-of-defun) |
55275
1fcfb5d038a2
(propertized-buffer-identification):
Juri Linkov <juri@jurta.org>
parents:
53551
diff
changeset
|
1117 |
16164 | 1118 (define-key esc-map "\C-f" 'forward-sexp) |
1119 (define-key esc-map "\C-b" 'backward-sexp) | |
1120 (define-key esc-map "\C-u" 'backward-up-list) | |
1121 (define-key esc-map "\C-@" 'mark-sexp) | |
1122 (define-key esc-map [?\C-\ ] 'mark-sexp) | |
1123 (define-key esc-map "\C-d" 'down-list) | |
1124 (define-key esc-map "\C-k" 'kill-sexp) | |
51420
22c87cfe7fe4
(global-map): Delete C-M-delete and C-M-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
51260
diff
changeset
|
1125 ;;; These are dangerous in various situations, |
22c87cfe7fe4
(global-map): Delete C-M-delete and C-M-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
51260
diff
changeset
|
1126 ;;; so let's not encourage anyone to use them. |
22c87cfe7fe4
(global-map): Delete C-M-delete and C-M-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
51260
diff
changeset
|
1127 ;;;(define-key global-map [C-M-delete] 'backward-kill-sexp) |
22c87cfe7fe4
(global-map): Delete C-M-delete and C-M-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
51260
diff
changeset
|
1128 ;;;(define-key global-map [C-M-backspace] 'backward-kill-sexp) |
30946
0cc084d7b4a7
(esc-map): Bind `C-delete' and `C-backspace' to
Gerd Moellmann <gerd@gnu.org>
parents:
30508
diff
changeset
|
1129 (define-key esc-map [C-delete] 'backward-kill-sexp) |
0cc084d7b4a7
(esc-map): Bind `C-delete' and `C-backspace' to
Gerd Moellmann <gerd@gnu.org>
parents:
30508
diff
changeset
|
1130 (define-key esc-map [C-backspace] 'backward-kill-sexp) |
16164 | 1131 (define-key esc-map "\C-n" 'forward-list) |
1132 (define-key esc-map "\C-p" 'backward-list) | |
1133 (define-key esc-map "\C-a" 'beginning-of-defun) | |
1134 (define-key esc-map "\C-e" 'end-of-defun) | |
1135 (define-key esc-map "\C-h" 'mark-defun) | |
1136 (define-key ctl-x-map "nd" 'narrow-to-defun) | |
1137 (define-key esc-map "(" 'insert-parentheses) | |
1138 (define-key esc-map ")" 'move-past-close-and-reindent) | |
1139 | |
1140 (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
|
1141 |
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
|
1142 (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
|
1143 (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
|
1144 (define-key ctl-x-5-map "m" 'compose-mail-other-frame) |
16164 | 1145 |
96437
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1146 |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1147 (defvar ctl-x-r-map (make-sparse-keymap) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1148 "Keymap for subcommands of C-x r.") |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1149 (define-key ctl-x-map "r" ctl-x-r-map) |
16164 | 1150 |
1151 (define-key esc-map "q" 'fill-paragraph) | |
1152 (define-key ctl-x-map "." 'set-fill-prefix) | |
1153 | |
1154 (define-key esc-map "{" 'backward-paragraph) | |
1155 (define-key esc-map "}" 'forward-paragraph) | |
1156 (define-key esc-map "h" 'mark-paragraph) | |
1157 (define-key esc-map "a" 'backward-sentence) | |
1158 (define-key esc-map "e" 'forward-sentence) | |
1159 (define-key esc-map "k" 'kill-sentence) | |
1160 (define-key ctl-x-map "\177" 'backward-kill-sentence) | |
1161 | |
1162 (define-key ctl-x-map "[" 'backward-page) | |
1163 (define-key ctl-x-map "]" 'forward-page) | |
1164 (define-key ctl-x-map "\C-p" 'mark-page) | |
1165 (define-key ctl-x-map "l" 'count-lines-page) | |
1166 (define-key ctl-x-map "np" 'narrow-to-page) | |
1167 ;; (define-key ctl-x-map "p" 'narrow-to-page) | |
1168 | |
96437
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1169 (defvar abbrev-map (make-sparse-keymap) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1170 "Keymap for abbrev commands.") |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1171 (define-key ctl-x-map "a" abbrev-map) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1172 |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1173 (define-key abbrev-map "l" 'add-mode-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1174 (define-key abbrev-map "\C-a" 'add-mode-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1175 (define-key abbrev-map "g" 'add-global-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1176 (define-key abbrev-map "+" 'add-mode-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1177 (define-key abbrev-map "ig" 'inverse-add-global-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1178 (define-key abbrev-map "il" 'inverse-add-mode-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1179 ;; (define-key abbrev-map "\C-h" 'inverse-add-global-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1180 (define-key abbrev-map "-" 'inverse-add-global-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1181 (define-key abbrev-map "e" 'expand-abbrev) |
e155bd4bbeeb
(abbrev-map, narrow-map): New variables.
Juri Linkov <juri@jurta.org>
parents:
96281
diff
changeset
|
1182 (define-key abbrev-map "'" 'expand-abbrev) |
16164 | 1183 ;; (define-key ctl-x-map "\C-a" 'add-mode-abbrev) |
1184 ;; (define-key ctl-x-map "\+" 'add-global-abbrev) | |
1185 ;; (define-key ctl-x-map "\C-h" 'inverse-add-mode-abbrev) | |
1186 ;; (define-key ctl-x-map "\-" 'inverse-add-global-abbrev) | |
1187 (define-key esc-map "'" 'abbrev-prefix-mark) | |
1188 (define-key ctl-x-map "'" 'expand-abbrev) | |
1189 | |
22424
d8368e1df721
(ctl-x-map): Change vi-dot binding to repeat.
Richard M. Stallman <rms@gnu.org>
parents:
22064
diff
changeset
|
1190 (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
|
1191 |
79405
2465de5f1ff2
(esc-map): Bind C-M-l here; moved from reposition.el.
Richard M. Stallman <rms@gnu.org>
parents:
79402
diff
changeset
|
1192 (define-key esc-map "\C-l" 'reposition-window) |
2465de5f1ff2
(esc-map): Bind C-M-l here; moved from reposition.el.
Richard M. Stallman <rms@gnu.org>
parents:
79402
diff
changeset
|
1193 |
2465de5f1ff2
(esc-map): Bind C-M-l here; moved from reposition.el.
Richard M. Stallman <rms@gnu.org>
parents:
79402
diff
changeset
|
1194 (define-key ctl-x-4-map "a" 'add-change-log-entry-other-window) |
61650
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
1195 (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window) |
9a27f4097b8f
(next-buffer, prev-buffer, next-error)
Kim F. Storm <storm@cua.dk>
parents:
60822
diff
changeset
|
1196 |
74410
ae98808fc6e4
(global-map): Bind [signal t] to ignore, to have
Kim F. Storm <storm@cua.dk>
parents:
73774
diff
changeset
|
1197 ;; Signal handlers |
74752
259471a9b617
Bind sigusr1 and sigusr2 in special-event-map instead of global-map.
Kim F. Storm <storm@cua.dk>
parents:
74410
diff
changeset
|
1198 (define-key special-event-map [sigusr1] 'ignore) |
259471a9b617
Bind sigusr1 and sigusr2 in special-event-map instead of global-map.
Kim F. Storm <storm@cua.dk>
parents:
74410
diff
changeset
|
1199 (define-key special-event-map [sigusr2] 'ignore) |
74410
ae98808fc6e4
(global-map): Bind [signal t] to ignore, to have
Kim F. Storm <storm@cua.dk>
parents:
73774
diff
changeset
|
1200 |
41172
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
1201 ;; Don't look for autoload cookies in this file. |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
1202 ;; Local Variables: |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
1203 ;; no-update-autoloads: t |
138cb29c858e
(mode-line-mode-name): Only put the help-echo property
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40585
diff
changeset
|
1204 ;; End: |
16164 | 1205 |
59600
26b237e765bf
(mode-line-mode-menu): Use bound-and-true-p for all the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58942
diff
changeset
|
1206 ;; arch-tag: 23b5c7e6-e47b-49ed-8c6c-ed213c5fffe0 |
16164 | 1207 ;;; bindings.el ends here |