[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-base.el
diff -c emacs/lisp/emulation/cua-base.el:1.7 
emacs/lisp/emulation/cua-base.el:1.8
*** emacs/lisp/emulation/cua-base.el:1.7        Mon May 13 16:35:30 2002
--- emacs/lisp/emulation/cua-base.el    Fri May 24 20:06:56 2002
***************
*** 954,959 ****
--- 954,966 ----
    (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.")