251 |
|
|
252 |
;; Actual initialization is below. |
;; Actual initialization is below. |
253 |
(defvar mode-line-position nil |
(defvar mode-line-position nil |
254 |
"Mode-line control for displaying line number, column number and fraction.") |
"Mode-line control for displaying the position in the buffer. |
255 |
|
Normally displays the buffer percentage and, optionally, the |
256 |
|
buffer size, the line number and the column number.") |
257 |
|
|
258 |
(defvar mode-line-modes nil |
(defvar mode-line-modes nil |
259 |
"Mode-line control for displaying major and minor modes.") |
"Mode-line control for displaying major and minor modes.") |
260 |
|
|
261 |
(defvar mode-line-major-mode-keymap nil "\ |
(defvar mode-line-major-mode-keymap |
262 |
|
(let ((map (make-sparse-keymap))) |
263 |
|
(define-key map [mode-line mouse-2] 'describe-mode) |
264 |
|
(define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) |
265 |
|
map) "\ |
266 |
Keymap to display on major mode.") |
Keymap to display on major mode.") |
267 |
|
|
268 |
(defvar mode-line-minor-mode-keymap nil "\ |
(defvar mode-line-minor-mode-keymap |
269 |
|
(let ((map (make-sparse-keymap))) |
270 |
|
(define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) |
271 |
|
(define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) |
272 |
|
(define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) |
273 |
|
map) "\ |
274 |
Keymap to display on minor modes.") |
Keymap to display on minor modes.") |
275 |
|
|
|
(let ((map (make-sparse-keymap))) |
|
|
(define-key map [mode-line mouse-2] 'describe-mode) |
|
|
(setq mode-line-major-mode-keymap map)) |
|
|
|
|
|
;; Menu of minor modes. |
|
|
(let ((map (make-sparse-keymap))) |
|
|
(define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) |
|
|
(define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) |
|
|
(define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) |
|
|
(setq mode-line-minor-mode-keymap map)) |
|
|
|
|
276 |
(let* ((help-echo |
(let* ((help-echo |
277 |
;; The multi-line message doesn't work terribly well on the |
;; The multi-line message doesn't work terribly well on the |
278 |
;; bottom mode line... Better ideas? |
;; bottom mode line... Better ideas? |
303 |
`(:propertize ("" mode-name) |
`(:propertize ("" mode-name) |
304 |
help-echo "mouse-2: help for current major mode" |
help-echo "mouse-2: help for current major mode" |
305 |
local-map ,mode-line-major-mode-keymap) |
local-map ,mode-line-major-mode-keymap) |
306 |
`(:propertize ("" mode-line-process)) |
'("" mode-line-process) |
307 |
`(:propertize ("" minor-mode-alist) |
`(:propertize ("" minor-mode-alist) |
308 |
help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" |
help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" |
309 |
local-map ,mode-line-minor-mode-keymap) |
local-map ,mode-line-minor-mode-keymap) |
313 |
(propertize ")%]--" 'help-echo help-echo))) |
(propertize ")%]--" 'help-echo help-echo))) |
314 |
|
|
315 |
(setq-default mode-line-position |
(setq-default mode-line-position |
316 |
`((-3 . ,(propertize "%p" 'help-echo help-echo)) |
`((-3 ,(propertize "%p" 'help-echo help-echo)) |
317 |
|
(size-indication-mode |
318 |
|
(8 ,(propertize " of %I" 'help-echo help-echo))) |
319 |
(line-number-mode |
(line-number-mode |
320 |
((column-number-mode |
((column-number-mode |
321 |
(10 ,(propertize " (%l,%c)" 'help-echo help-echo)) |
(10 ,(propertize " (%l,%c)" 'help-echo help-echo)) |
518 |
;; Gettext |
;; Gettext |
519 |
".gmo" ".mo" |
".gmo" ".mo" |
520 |
;; Texinfo-related |
;; Texinfo-related |
521 |
".toc" ".log" ".aux" |
;; This used to contain .log, but that's commonly used for log |
522 |
|
;; files you do want to see, not just TeX stuff. -- fx |
523 |
|
".toc" ".aux" |
524 |
".cp" ".fn" ".ky" ".pg" ".tp" ".vr" |
".cp" ".fn" ".ky" ".pg" ".tp" ".vr" |
525 |
".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs"))) |
".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs"))) |
526 |
|
|
644 |
|
|
645 |
;; From frame.c |
;; From frame.c |
646 |
(global-set-key [switch-frame] 'handle-switch-frame) |
(global-set-key [switch-frame] 'handle-switch-frame) |
647 |
|
(global-set-key [select-window] 'handle-select-window) |
648 |
|
|
649 |
|
;; FIXME: Do those 3 events really ever reach the global-map ? |
650 |
|
;; It seems that they can't because they're handled via |
651 |
|
;; special-event-map which is used at very low-level. -stef |
652 |
(global-set-key [delete-frame] 'handle-delete-frame) |
(global-set-key [delete-frame] 'handle-delete-frame) |
653 |
(global-set-key [iconify-frame] 'ignore-event) |
(global-set-key [iconify-frame] 'ignore-event) |
654 |
(global-set-key [make-frame-visible] 'ignore-event) |
(global-set-key [make-frame-visible] 'ignore-event) |
749 |
;(define-key global-map [delete] 'backward-delete-char) |
;(define-key global-map [delete] 'backward-delete-char) |
750 |
|
|
751 |
;; natural bindings for terminal keycaps --- defined in X keysym order |
;; natural bindings for terminal keycaps --- defined in X keysym order |
752 |
|
(define-key global-map [C-S-backspace] 'kill-whole-line) |
753 |
(define-key global-map [home] 'beginning-of-line) |
(define-key global-map [home] 'beginning-of-line) |
754 |
(define-key global-map [C-home] 'beginning-of-buffer) |
(define-key global-map [C-home] 'beginning-of-buffer) |
755 |
(define-key global-map [M-home] 'beginning-of-buffer-other-window) |
(define-key global-map [M-home] 'beginning-of-buffer-other-window) |
778 |
(define-key global-map [S-insert] 'yank) |
(define-key global-map [S-insert] 'yank) |
779 |
(define-key global-map [undo] 'undo) |
(define-key global-map [undo] 'undo) |
780 |
(define-key global-map [redo] 'repeat-complex-command) |
(define-key global-map [redo] 'repeat-complex-command) |
781 |
|
(define-key global-map [again] 'repeat-complex-command) ; Sun keyboard |
782 |
|
(define-key global-map [open] 'find-file) ; Sun |
783 |
|
;; The following wouldn't work to interrupt running code since C-g is |
784 |
|
;; treated specially in the event loop. |
785 |
|
;; (define-key global-map [stop] 'keyboard-quit) ; Sun |
786 |
;; (define-key global-map [clearline] 'function-key-error) |
;; (define-key global-map [clearline] 'function-key-error) |
787 |
(define-key global-map [insertline] 'open-line) |
(define-key global-map [insertline] 'open-line) |
788 |
(define-key global-map [deleteline] 'kill-line) |
(define-key global-map [deleteline] 'kill-line) |
950 |
(define-key esc-map [?\C-\ ] 'mark-sexp) |
(define-key esc-map [?\C-\ ] 'mark-sexp) |
951 |
(define-key esc-map "\C-d" 'down-list) |
(define-key esc-map "\C-d" 'down-list) |
952 |
(define-key esc-map "\C-k" 'kill-sexp) |
(define-key esc-map "\C-k" 'kill-sexp) |
953 |
(define-key global-map [C-M-delete] 'backward-kill-sexp) |
;;; These are dangerous in various situations, |
954 |
(define-key global-map [C-M-backspace] 'backward-kill-sexp) |
;;; so let's not encourage anyone to use them. |
955 |
|
;;;(define-key global-map [C-M-delete] 'backward-kill-sexp) |
956 |
|
;;;(define-key global-map [C-M-backspace] 'backward-kill-sexp) |
957 |
(define-key esc-map [C-delete] 'backward-kill-sexp) |
(define-key esc-map [C-delete] 'backward-kill-sexp) |
958 |
(define-key esc-map [C-backspace] 'backward-kill-sexp) |
(define-key esc-map [C-backspace] 'backward-kill-sexp) |
959 |
(define-key esc-map "\C-n" 'forward-list) |
(define-key esc-map "\C-n" 'forward-list) |
1046 |
;; no-update-autoloads: t |
;; no-update-autoloads: t |
1047 |
;; End: |
;; End: |
1048 |
|
|
1049 |
|
;;; arch-tag: 23b5c7e6-e47b-49ed-8c6c-ed213c5fffe0 |
1050 |
;;; bindings.el ends here |
;;; bindings.el ends here |