Mercurial > emacs
comparison lisp/wid-edit.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 | afa0e028ba97 |
children | 52460c9b040f |
comparison
equal
deleted
inserted
replaced
104921:05feb973bfa0 | 104922:c603ee2aac17 |
---|---|
855 ;;; Keymap and Commands. | 855 ;;; Keymap and Commands. |
856 | 856 |
857 ;; This alias exists only so that one can choose in doc-strings (e.g. | 857 ;; This alias exists only so that one can choose in doc-strings (e.g. |
858 ;; Custom-mode) which key-binding of widget-keymap one wants to refer to. | 858 ;; Custom-mode) which key-binding of widget-keymap one wants to refer to. |
859 ;; http://lists.gnu.org/archive/html/emacs-devel/2008-11/msg00480.html | 859 ;; http://lists.gnu.org/archive/html/emacs-devel/2008-11/msg00480.html |
860 (defalias 'advertised-widget-backward 'widget-backward) | 860 (define-obsolete-function-alias 'advertised-widget-backward |
861 'widget-backward "23.2") | |
861 | 862 |
862 ;;;###autoload | 863 ;;;###autoload |
863 (defvar widget-keymap | 864 (defvar widget-keymap |
864 (let ((map (make-sparse-keymap))) | 865 (let ((map (make-sparse-keymap))) |
865 (define-key map "\t" 'widget-forward) | 866 (define-key map "\t" 'widget-forward) |
866 (define-key map "\e\t" 'widget-backward) | 867 (define-key map "\e\t" 'widget-backward) |
867 (define-key map [(shift tab)] 'advertised-widget-backward) | 868 (define-key map [(shift tab)] 'widget-backward) |
869 (put 'widget-backward :advertised-binding [(shift tab)]) | |
868 (define-key map [backtab] 'widget-backward) | 870 (define-key map [backtab] 'widget-backward) |
869 (define-key map [down-mouse-2] 'widget-button-click) | 871 (define-key map [down-mouse-2] 'widget-button-click) |
870 (define-key map [down-mouse-1] 'widget-button-click) | 872 (define-key map [down-mouse-1] 'widget-button-click) |
871 ;; The following definition needs to avoid using escape sequences that | 873 ;; The following definition needs to avoid using escape sequences that |
872 ;; might get converted to ^M when building loaddefs.el | 874 ;; might get converted to ^M when building loaddefs.el |