/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.100.2.1 by miles, Fri Apr 4 06:20:00 2003 UTC revision 1.100.2.2 by miles, Tue Oct 14 23:50:49 2003 UTC
# Line 251  Normally nil in most modes, since there Line 251  Normally nil in most modes, since there
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?
# Line 303  Keymap to display on minor modes.") Line 303  Keymap to display on minor modes.")
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)
# Line 313  Keymap to display on minor modes.") Line 313  Keymap to display on minor modes.")
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))
# Line 516  is okay.  See `mode-line-format'.") Line 518  is okay.  See `mode-line-format'.")
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    
# Line 640  language you are using." Line 644  language you are using."
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)
# Line 740  language you are using." Line 749  language you are using."
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)
# Line 768  language you are using." Line 778  language you are using."
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)
# Line 935  language you are using." Line 950  language you are using."
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)
# Line 1029  language you are using." Line 1046  language you are using."
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

Legend:
Removed from v.1.100.2.1  
changed lines
  Added in v.1.100.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26