Mercurial > hg > xemacs-beta

comparison lisp/x11/x-compose.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children e121b013d1f0
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
2 2
3 ;; Copyright (C) 1992, 1993, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Jamie Zawinski <jwz@netscape.com> 5 ;; Author: Jamie Zawinski <jwz@netscape.com>
6 ;; Maintainer: XEmacs Development Team 6 ;; Maintainer: XEmacs Development Team
7 ;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de>
8 ;; The degree sign couldn't be inserted with the old version.
7 ;; Keywords: i18n 9 ;; Keywords: i18n
8 10
9 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
10 12
11 ;; XEmacs is free software; you can redistribute it and/or modify it 13 ;; XEmacs is free software; you can redistribute it and/or modify it
111 ;; The "Compose" key: 113 ;; The "Compose" key:
112 ;; (keysym is lower case because we downcase everything in the Symbol font...) 114 ;; (keysym is lower case because we downcase everything in the Symbol font...)
113 ;; 115 ;;
114 ;;;this doesn't work yet###autoload 116 ;;;this doesn't work yet###autoload
115 (define-key global-map [multi-key] 'compose-key) 117 (define-key global-map [multi-key] 'compose-key)
118
119 ;; The following is necessary, because one can't rebind [degree]
120 ;; and use it to insert the degree sign!
121 (defun compose-insert-degree ()
122 "Inserts a degree sign."
123 (interactive)
124 (insert ?\260))
116 125
117 ;; The "Dead" keys: 126 ;; The "Dead" keys:
118 ;; 127 ;;
119 (define-key global-map [acute] compose-acute-map) 128 (define-key global-map [acute] compose-acute-map)
120 (define-key global-map [cedilla] compose-cedilla-map) 129 (define-key global-map [cedilla] compose-cedilla-map)
337 (define-key compose-circumflex-map " " "^") 346 (define-key compose-circumflex-map " " "^")
338 (define-key compose-circumflex-map "/" "|") 347 (define-key compose-circumflex-map "/" "|")
339 (define-key compose-circumflex-map "!" [brokenbar]) 348 (define-key compose-circumflex-map "!" [brokenbar])
340 (define-key compose-circumflex-map "-" [macron]) 349 (define-key compose-circumflex-map "-" [macron])
341 (define-key compose-circumflex-map "_" [macron]) 350 (define-key compose-circumflex-map "_" [macron])
342 (define-key compose-circumflex-map "0" [degree]) 351 (define-key compose-circumflex-map "0" 'compose-insert-degree)
343 (define-key compose-circumflex-map "1" [onesuperior]) 352 (define-key compose-circumflex-map "1" [onesuperior])
344 (define-key compose-circumflex-map "2" [twosuperior]) 353 (define-key compose-circumflex-map "2" [twosuperior])
345 (define-key compose-circumflex-map "3" [threesuperior]) 354 (define-key compose-circumflex-map "3" [threesuperior])
346 (define-key compose-circumflex-map "." [periodcentered]) 355 (define-key compose-circumflex-map "." [periodcentered])
347 (define-key compose-circumflex-map "A" [Acircumflex]) 356 (define-key compose-circumflex-map "A" [Acircumflex])
365 (define-key compose-tilde-map "n" [ntilde]) 374 (define-key compose-tilde-map "n" [ntilde])
366 (define-key compose-tilde-map "o" [otilde]) 375 (define-key compose-tilde-map "o" [otilde])
367 376
368 (set-keymap-name compose-ring-map 'compose-ring-map) 377 (set-keymap-name compose-ring-map 'compose-ring-map)
369 (set-keymap-default-binding compose-ring-map 'self-insert-command) 378 (set-keymap-default-binding compose-ring-map 'self-insert-command)
370 (define-key compose-ring-map " " [degree]) 379 (define-key compose-ring-map " " 'compose-insert-degree)
371 (define-key compose-ring-map "A" [Aring]) 380 (define-key compose-ring-map "A" [Aring])
372 (define-key compose-ring-map "a" [aring]) 381 (define-key compose-ring-map "a" [aring])
373 382
374 383
375 ;;; The rest of the compose-map. These are the composed characters 384 ;;; The rest of the compose-map. These are the composed characters
381 (define-key compose-map " ^" "^") 390 (define-key compose-map " ^" "^")
382 (define-key compose-map " `" "`") 391 (define-key compose-map " `" "`")
383 (define-key compose-map " ~" "~") 392 (define-key compose-map " ~" "~")
384 (define-key compose-map " " [nobreakspace]) 393 (define-key compose-map " " [nobreakspace])
385 (define-key compose-map " \"" [diaeresis]) 394 (define-key compose-map " \"" [diaeresis])
386 (define-key compose-map " *" [degree]) 395 (define-key compose-map " *" 'compose-insert-degree)
387 396
388 (define-key compose-map "!!" [exclamdown]) 397 (define-key compose-map "!!" [exclamdown])
389 (define-key compose-map "!^" [brokenbar]) 398 (define-key compose-map "!^" [brokenbar])
390 (define-key compose-map "!S" [section]) 399 (define-key compose-map "!S" [section])
391 (define-key compose-map "!s" [section]) 400 (define-key compose-map "!s" [section])
435 (define-key compose-map "0s" [section]) 444 (define-key compose-map "0s" [section])
436 (define-key compose-map "0C" [copyright]) 445 (define-key compose-map "0C" [copyright])
437 (define-key compose-map "0c" [copyright]) 446 (define-key compose-map "0c" [copyright])
438 (define-key compose-map "0R" [registered]) 447 (define-key compose-map "0R" [registered])
439 (define-key compose-map "0r" [registered]) 448 (define-key compose-map "0r" [registered])
440 (define-key compose-map "0^" [degree]) 449 (define-key compose-map "0^" 'compose-insert-degree)
441 450
442 (define-key compose-map "1^" [onesuperior]) 451 (define-key compose-map "1^" [onesuperior])
443 (define-key compose-map "14" [onequarter]) 452 (define-key compose-map "14" [onequarter])
444 (define-key compose-map "12" [onehalf]) 453 (define-key compose-map "12" [onehalf])
445 454