Commits

aidan  committed 2211985

Use a renamed version of the ascii-character property if appropriate.

  • Participants
  • Parent commits 418cc54

Comments (0)

Files changed (2)

+2005-05-20  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* latin-euro-latin9.el:
+	* latin-euro-latin9.el (define-keysym-as-char): Define the
+	character-of-keysym property as well as the ascii-character
+	property for relevant X11 keysyms. 
+
 2005-04-03  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.04 released.

File latin-euro-latin9.el

 (flet ((define-keysym-as-char (keysym character)
 	 (unless (lookup-key global-map (vector keysym))
 	   (define-key global-map (vector keysym) #'self-insert-command))
+	 ;; Belt and braces ... 
+	 (unless (get keysym 'character-of-keysym)
+	   (put keysym 'character-of-keysym character))
 	 (unless (get keysym 'ascii-character)
 	   (put keysym 'ascii-character character)))
        (foo (k o)
   (foo 'oe         #x3D)
   (foo 'Ydiaeresis #x3E))
 
-
 (provide 'latin-euro-latin9)
 
 ;;; end of latin-euro-latin9.el