Mercurial > hg > xemacs-beta

comparison lisp/x11/x-compose.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents ac2d302a0011
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
47 ;;; can, for example, turn the right "Meta" key into a "Compose" key with 47 ;;; can, for example, turn the right "Meta" key into a "Compose" key with
48 ;;; this command: 48 ;;; this command:
49 ;;; 49 ;;;
50 ;;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key" 50 ;;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key"
51 ;;; 51 ;;;
52 ;;; Multi_key is the name that X (and emacs) know the "Compose" key by. 52 ;;; Multi-key is the name that X (and emacs) know the "Compose" key by.
53 ;;; The "remove..." command is necessary because the "Compose" key must not 53 ;;; The "remove..." command is necessary because the "Compose" key must not
54 ;;; have any modifier bits associated with it. This exact command may not 54 ;;; have any modifier bits associated with it. This exact command may not
55 ;;; work, depending on what system and keyboard you are using. If it 55 ;;; work, depending on what system and keyboard you are using. If it
56 ;;; doesn't, you'll have to read the man page for xmodmap. You might want 56 ;;; doesn't, you'll have to read the man page for xmodmap. You might want
57 ;;; to get the "xkeycaps" program from the host export.lcs.mit.edu in the 57 ;;; to get the "xkeycaps" program from the host export.lcs.mit.edu in the
98 98
99 ;; The "Compose" key: 99 ;; The "Compose" key:
100 ;; (keysym is lower case because we downcase everything in the Symbol font...) 100 ;; (keysym is lower case because we downcase everything in the Symbol font...)
101 ;; 101 ;;
102 ;;;this doesn't work yet###autoload 102 ;;;this doesn't work yet###autoload
103 (define-key global-map [multi_key] 'compose-key) 103 (define-key global-map [multi-key] 'compose-key)
104 104
105 ;; The "Dead" keys: 105 ;; The "Dead" keys:
106 ;; 106 ;;
107 (define-key global-map [acute] compose-acute-map) 107 (define-key global-map [acute] compose-acute-map)
108 (define-key global-map [cedilla] compose-cedilla-map) 108 (define-key global-map [cedilla] compose-cedilla-map)
662 (setq mod-char c)) 662 (setq mod-char c))
663 (while (> count 0) 663 (while (> count 0)
664 (insert mod-char) 664 (insert mod-char)
665 (setq count (1- count)))))) 665 (setq count (1- count))))))
666 666
667 ;; should "::" mean "¨" and ": " mean ":"? 667 ;; should "::" mean ",A((B" and ": " mean ":"?
668 ;; should we also do 668 ;; should we also do
669 ;; (?~ 669 ;; (?~
670 ;; (?A "\303") 670 ;; (?A "\303")
671 ;; (?C "\307") 671 ;; (?C "\307")
672 ;; (?D "\320") 672 ;; (?D "\320")