Mercurial > hg > xemacs-beta
diff lisp/x11/x-compose.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:21:54 +0200 |
parents | 1ce6082ce73f |
children | 43dd3413c7c7 |
line wrap: on
line diff
--- a/lisp/x11/x-compose.el Mon Aug 13 09:20:50 2007 +0200 +++ b/lisp/x11/x-compose.el Mon Aug 13 09:21:54 2007 +0200 @@ -269,6 +269,7 @@ ;;; compose-map. (set-keymap-name compose-acute-map 'compose-acute-map) +(set-keymap-default-binding compose-acute-map 'self-insert-command) (define-key compose-acute-map " " "'") (define-key compose-acute-map "'" [acute]) (define-key compose-acute-map "A" [Aacute]) @@ -285,6 +286,7 @@ (define-key compose-acute-map "y" [yacute]) (set-keymap-name compose-grave-map 'compose-grave-map) +(set-keymap-default-binding compose-grave-map 'self-insert-command) (define-key compose-grave-map " " [grave]) (define-key compose-grave-map "A" [Agrave]) (define-key compose-grave-map "E" [Egrave]) @@ -298,11 +300,13 @@ (define-key compose-grave-map "u" [ugrave]) (set-keymap-name compose-cedilla-map 'compose-cedilla-map) +(set-keymap-default-binding compose-cedilla-map 'self-insert-command) (define-key compose-cedilla-map "," [cedilla]) (define-key compose-cedilla-map "C" [Ccedilla]) (define-key compose-cedilla-map "c" [ccedilla]) (set-keymap-name compose-diaeresis-map 'compose-diaeresis-map) +(set-keymap-default-binding compose-diaeresis-map 'self-insert-command) (define-key compose-diaeresis-map " " [diaeresis]) (define-key compose-diaeresis-map "\"" [diaeresis]) (define-key compose-diaeresis-map "A" [Adiaeresis]) @@ -318,6 +322,7 @@ (define-key compose-diaeresis-map "y" [ydiaeresis]) (set-keymap-name compose-circumflex-map 'compose-circumflex-map) +(set-keymap-default-binding compose-circumflex-map 'self-insert-command) (define-key compose-circumflex-map " " "^") (define-key compose-circumflex-map "/" "|") (define-key compose-circumflex-map "!" [brokenbar]) @@ -340,6 +345,7 @@ (define-key compose-circumflex-map "u" [ucircumflex]) (set-keymap-name compose-tilde-map 'compose-tilde-map) +(set-keymap-default-binding compose-tilde-map 'self-insert-command) (define-key compose-tilde-map " " "~") (define-key compose-tilde-map "A" [Atilde]) (define-key compose-tilde-map "N" [Ntilde]) @@ -349,6 +355,7 @@ (define-key compose-tilde-map "o" [otilde]) (set-keymap-name compose-ring-map 'compose-ring-map) +(set-keymap-default-binding compose-ring-map 'self-insert-command) (define-key compose-ring-map " " [degree]) (define-key compose-ring-map "A" [Aring]) (define-key compose-ring-map "a" [aring]) @@ -358,6 +365,7 @@ ;;; that are not accessible via "dead" keys. (set-keymap-name compose-map 'compose-map) +(set-keymap-default-binding compose-map 'self-insert-command) (define-key compose-map " '" "'") (define-key compose-map " ^" "^") (define-key compose-map " `" "`")