Mercurial > emacs
changeset 45502:3cea63601c2a
(cua--self-insert-char-p): New function.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 25 May 2002 00:06:56 +0000 |
| parents | 2a84e110a11d |
| children | b5885da440b5 |
| files | lisp/emulation/cua-base.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el Sat May 25 00:06:30 2002 +0000 +++ b/lisp/emulation/cua-base.el Sat May 25 00:06:56 2002 +0000 @@ -954,6 +954,13 @@ (unless (listp key) (setq key (list key))) (define-key map (vector (cons (if cua-use-hyper-key 'hyper 'meta) key)) fct)) +(defun cua--self-insert-char-p (def) + ;; Return DEF if current key sequence is self-inserting in + ;; global-map. + (if (memq (global-key-binding (this-single-command-keys)) + '(self-insert-command self-insert-iso)) + def nil)) + (defvar cua-global-keymap (make-sparse-keymap) "Global keymap for cua-mode; users may add to this keymap.")