From 20023b9cb448aa6e766a0dc73ab08d1aecf3cbf5 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 25 May 2002 00:06:56 +0000 Subject: [PATCH] (cua--self-insert-char-p): New function. --- lisp/emulation/cua-base.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 5f6e966647f..cfcc333820a 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -954,6 +954,13 @@ Extra commands should be added to `cua-user-movement-commands'") (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.") -- 2.39.5