# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1022285216 0
# Node ID 3cea63601c2a67f0785af81d0053cef2c6a879e5
# Parent  2a84e110a11d016c715573203f10f324bce9748c
(cua--self-insert-char-p): New function.

diff -r 2a84e110a11d -r 3cea63601c2a lisp/emulation/cua-base.el
--- 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.")