From: Kim F. Storm <storm@cua.dk>
Date: Sat, 25 May 2002 00:06:56 +0000 (+0000)
Subject: (cua--self-insert-char-p): New function.
X-Git-Tag: ttn-vms-21-2-B4~14886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20023b9cb448aa6e766a0dc73ab08d1aecf3cbf5;p=emacs.git

(cua--self-insert-char-p): New function.
---

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.")