Mercurial > hg > xemacs-beta

diff lisp/keymap.el @ 2828:a25c824ed558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-26 18:04:49 by aidan] Rename the ascii-character property, support more keysyms.
author aidan
date Sun, 26 Jun 2005 18:05:05 +0000
parents 1b0339b048ce
children 308d34e9f07d
line wrap: on
line diff
--- a/lisp/keymap.el	Sat Jun 25 21:51:12 2005 +0000
+++ b/lisp/keymap.el	Sun Jun 26 18:05:05 2005 +0000
@@ -338,10 +338,9 @@
             ;; any ambiguity.
             (setq c (event-to-character ce))
             (if (and c
-                     character-set-property
                      (key-press-event-p ce))
                 (cond ((symbolp (event-key ce))
-                       (if (get (event-key ce) character-set-property)
+                       (if (get (event-key ce) 'character-of-keysym)
                            ;; Don't use a string for `backspace' and `tab' to
                            ;;  avoid that unpleasant little ambiguity.
                            (setq c nil)))
@@ -349,7 +348,7 @@
                             (integerp (event-key ce)))
                        (let* ((te (character-to-event c)))
                          (if (and (symbolp (event-key te))
-                                  (get (event-key te) character-set-property))
+                                  (get (event-key te) 'character-of-keysym))
                              ;; Don't "normalize" (control i) to tab
                              ;;  to avoid the ambiguity in the other direction
                              (setq c nil))