Mercurial > emacs
comparison lisp/bindings.el @ 104922:c603ee2aac17
* keymap.c (QCadvertised_binding): New constant.
(syms_of_keymap): Initialize it.
(Fwhere_is_internal): Try and use bindings from :advertised-binding
if applicable.
* progmodes/xscheme.el (xscheme-evaluation-commands):
Put a :advertised-binding property rather than using
advertised-xscheme-send-previous-expression.
(advertised-xscheme-send-previous-expression): Declare obsolete.
* emulation/crisp.el (crisp-mode-map): Use `undo' rather than
`advertised-undo'.
(crisp-mode): Add corresponding bindings to
undo's :advertised-binding instead.
* dired.el (dired-mode-map): Put a :advertised-binding property rather
than using dired-advertised-find-file.
(dired-advertised-find-file):
* simple.el (advertised-undo):
* wid-edit.el (advertised-widget-backward): Declare obsolete.
(widget-keymap): Put a :advertised-binding property rather
than using advertised-widget-backward.
* bindings.el (ctl-x-map): Put a :advertised-binding property rather
than using advertised-undo.
* tutorial.el (tutorial--default-keys): Adjust accordingly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 11 Sep 2009 00:58:59 +0000 |
| parents | c220a29e75fd |
| children | 1757b9590368 |
comparison
equal
deleted
inserted
replaced
| 104921:05feb973bfa0 | 104922:c603ee2aac17 |
|---|---|
| 755 (define-key esc-map "\M-:" 'eval-expression) | 755 (define-key esc-map "\M-:" 'eval-expression) |
| 756 ;; Changed from C-x ESC so that function keys work following C-x. | 756 ;; Changed from C-x ESC so that function keys work following C-x. |
| 757 (define-key ctl-x-map "\e\e" 'repeat-complex-command) | 757 (define-key ctl-x-map "\e\e" 'repeat-complex-command) |
| 758 ;; New binding analogous to M-:. | 758 ;; New binding analogous to M-:. |
| 759 (define-key ctl-x-map "\M-:" 'repeat-complex-command) | 759 (define-key ctl-x-map "\M-:" 'repeat-complex-command) |
| 760 (define-key ctl-x-map "u" 'advertised-undo) | 760 (define-key ctl-x-map "u" 'undo) |
| 761 (put 'undo :advertised-binding [?\C-x ?u]) | |
| 761 ;; Many people are used to typing C-/ on X terminals and getting C-_. | 762 ;; Many people are used to typing C-/ on X terminals and getting C-_. |
| 762 (define-key global-map [?\C-/] 'undo) | 763 (define-key global-map [?\C-/] 'undo) |
| 763 (define-key global-map "\C-_" 'undo) | 764 (define-key global-map "\C-_" 'undo) |
| 764 ;; Richard said that we should not use C-x <uppercase letter> and I have | 765 ;; Richard said that we should not use C-x <uppercase letter> and I have |
| 765 ;; no idea whereas to bind it. Any suggestion welcome. -stef | 766 ;; no idea whereas to bind it. Any suggestion welcome. -stef |