[Emacs-diffs] Changes to emacs/lisp/international/iso-transl.el

[Dave Love]

Index: emacs/lisp/international/iso-transl.el
diff -c emacs/lisp/international/iso-transl.el:1.29 
emacs/lisp/international/iso-transl.el:1.30
*** emacs/lisp/international/iso-transl.el:1.29 Wed Oct 10 12:35:43 2001
--- emacs/lisp/international/iso-transl.el      Fri Dec  7 09:56:44 2001
***************
*** 1,4 ****
! ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1
  
  ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
  
--- 1,4 ----
! ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1  -*- coding: 
iso-8859-1 -*-
  
  ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
  
***************
*** 208,344 ****
  The sequence STRING of ASCII chars translates into the
  sequence VECTOR.  (VECTOR is normally one character long.)")
  
! (defalias 'iso-transl-no-break-space [160])
! (defalias 'iso-transl-inverted-exclamation-mark [161])
! (defalias 'iso-transl-cent-sign [162])
! (defalias 'iso-transl-pound-sign [163])
! (defalias 'iso-transl-general-currency-sign [164])
! (defalias 'iso-transl-yen-sign [165])
! (defalias 'iso-transl-broken-vertical-line [166])
! (defalias 'iso-transl-section-sign [167])
! (defalias 'iso-transl-diaeresis [168])
! (defalias 'iso-transl-copyright-sign [169])
! (defalias 'iso-transl-ordinal-indicator-feminine [170])
! (defalias 'iso-transl-angle-left [171])
! (defalias 'iso-transl-not-sign [172])
! (defalias 'iso-transl-soft-hyphen [173])
! (defalias 'iso-transl-registered-sign [174])
! (defalias 'iso-transl-macron [175])
! (defalias 'iso-transl-degree-sign [176])
! (defalias 'iso-transl-plus-or-minus-sign [177])
! (defalias 'iso-transl-superscript-2 [178])
! (defalias 'iso-transl-superscript-3 [179])
! (defalias 'iso-transl-acute-accent [180])
! (defalias 'iso-transl-micro-sign [181])
! (defalias 'iso-transl-pilcrow [182])
! (defalias 'iso-transl-middle-dot [183])
! (defalias 'iso-transl-cedilla [184])
! (defalias 'iso-transl-superscript-1 [185])
! (defalias 'iso-transl-ordinal-indicator-masculine [186])
! (defalias 'iso-transl-angle-right [187])
! (defalias 'iso-transl-one-quarter [188])
! (defalias 'iso-transl-one-half [189])
! (defalias 'iso-transl-three-quarters [190])
! (defalias 'iso-transl-inverted-question-mark [191])
! (defalias 'iso-transl-A-grave [192])
! (defalias 'iso-transl-A-acute [193])
! (defalias 'iso-transl-A-caret [194])
! (defalias 'iso-transl-A-tilde [195])
! (defalias 'iso-transl-A-umlaut [196])
! (defalias 'iso-transl-A-ring [197])
! (defalias 'iso-transl-AE [198])
! (defalias 'iso-transl-C-cedilla [199])
! (defalias 'iso-transl-E-grave [200])
! (defalias 'iso-transl-E-acute [201])
! (defalias 'iso-transl-E-caret [202])
! (defalias 'iso-transl-E-umlaut [203])
! (defalias 'iso-transl-I-grave [204])
! (defalias 'iso-transl-I-acute [205])
! (defalias 'iso-transl-I-caret [206])
! (defalias 'iso-transl-I-umlaut [207])
! (defalias 'iso-transl-D-stroke [208])
! (defalias 'iso-transl-N-tilde [209])
! (defalias 'iso-transl-O-grave [210])
! (defalias 'iso-transl-O-acute [211])
! (defalias 'iso-transl-O-caret [212])
! (defalias 'iso-transl-O-tilde [213])
! (defalias 'iso-transl-O-umlaut [214])
! (defalias 'iso-transl-multiplication-sign [215])
! (defalias 'iso-transl-O-slash [216])
! (defalias 'iso-transl-U-grave [217])
! (defalias 'iso-transl-U-acute [218])
! (defalias 'iso-transl-U-caret [219])
! (defalias 'iso-transl-U-umlaut [220])
! (defalias 'iso-transl-Y-acute [221])
! (defalias 'iso-transl-THORN [222])
! (defalias 'iso-transl-ss [223])
! (defalias 'iso-transl-a-grave [224])
! (defalias 'iso-transl-a-acute [225])
! (defalias 'iso-transl-a-caret [226])
! (defalias 'iso-transl-a-tilde [227])
! (defalias 'iso-transl-a-umlaut [228])
! (defalias 'iso-transl-a-ring [229])
! (defalias 'iso-transl-ae [230])
! (defalias 'iso-transl-c-cedilla [231])
! (defalias 'iso-transl-e-grave [232])
! (defalias 'iso-transl-e-acute [233])
! (defalias 'iso-transl-e-caret [234])
! (defalias 'iso-transl-e-umlaut [235])
! (defalias 'iso-transl-i-grave [236])
! (defalias 'iso-transl-i-acute [237])
! (defalias 'iso-transl-i-caret [238])
! (defalias 'iso-transl-i-umlaut [239])
! (defalias 'iso-transl-d-stroke [240])
! (defalias 'iso-transl-n-tilde [241])
! (defalias 'iso-transl-o-grave [242])
! (defalias 'iso-transl-o-acute [243])
! (defalias 'iso-transl-o-caret [244])
! (defalias 'iso-transl-o-tilde [245])
! (defalias 'iso-transl-o-umlaut [246])
! (defalias 'iso-transl-division-sign [247])
! (defalias 'iso-transl-o-slash [248])
! (defalias 'iso-transl-u-grave [249])
! (defalias 'iso-transl-u-acute [250])
! (defalias 'iso-transl-u-caret [251])
! (defalias 'iso-transl-u-umlaut [252])
! (defalias 'iso-transl-y-acute [253])
! (defalias 'iso-transl-thorn [254])
! (defalias 'iso-transl-y-umlaut [255])
  
  ;; Language-specific translation lists.
  (defvar iso-transl-language-alist
    '(("Esperanto"
!      ("C"  . [198])
!      ("G"  . [216])
!      ("H"  . [166])
!      ("J"  . [172])
!      ("S"  . [222])
!      ("U"  . [221])
!      ("c"  . [230])
!      ("g"  . [248])
!      ("h"  . [182])
!      ("j"  . [188])
!      ("s"  . [254])
!      ("u"  . [253]))
      ("French"
!      ("C"  . [199])
!      ("c"  . [231]))
      ("German"
!      ("A"  . [196])
!      ("O"  . [214]) 
!      ("U"  . [220])
!      ("a"  . [228])
!      ("o"  . [246])
!      ("s"  . [223])
!      ("u"  . [252]))
      ("Portuguese"
!      ("C"  . [199])
!      ("c"  . [231]))
      ("Spanish"
!      ("!"  . [161])
!      ("?"  . [191])
!      ("N"  . [209])
!      ("n"  . [241]))))
  
  (defvar iso-transl-ctl-x-8-map nil
    "Keymap for C-x 8 prefix.")
--- 208,344 ----
  The sequence STRING of ASCII chars translates into the
  sequence VECTOR.  (VECTOR is normally one character long.)")
  
! (defalias 'iso-transl-no-break-space [? ])
! (defalias 'iso-transl-inverted-exclamation-mark [?¡])
! (defalias 'iso-transl-cent-sign [?¢])
! (defalias 'iso-transl-pound-sign [?£])
! (defalias 'iso-transl-general-currency-sign [?¤])
! (defalias 'iso-transl-yen-sign [?¥])
! (defalias 'iso-transl-broken-vertical-line [?¦])
! (defalias 'iso-transl-section-sign [?§])
! (defalias 'iso-transl-diaeresis [?¨])
! (defalias 'iso-transl-copyright-sign [?©])
! (defalias 'iso-transl-ordinal-indicator-feminine [?ª])
! (defalias 'iso-transl-angle-left [?«])
! (defalias 'iso-transl-not-sign [?¬])
! (defalias 'iso-transl-soft-hyphen [?­])
! (defalias 'iso-transl-registered-sign [?®])
! (defalias 'iso-transl-macron [?¯])
! (defalias 'iso-transl-degree-sign [?°])
! (defalias 'iso-transl-plus-or-minus-sign [?±])
! (defalias 'iso-transl-superscript-2 [?²])
! (defalias 'iso-transl-superscript-3 [?³])
! (defalias 'iso-transl-acute-accent [?´])
! (defalias 'iso-transl-micro-sign [?µ])
! (defalias 'iso-transl-pilcrow [?¶])
! (defalias 'iso-transl-middle-dot [?·])
! (defalias 'iso-transl-cedilla [?¸])
! (defalias 'iso-transl-superscript-1 [?¹])
! (defalias 'iso-transl-ordinal-indicator-masculine [?º])
! (defalias 'iso-transl-angle-right [?»])
! (defalias 'iso-transl-one-quarter [?¼])
! (defalias 'iso-transl-one-half [?½])
! (defalias 'iso-transl-three-quarters [?¾])
! (defalias 'iso-transl-inverted-question-mark [?¿])
! (defalias 'iso-transl-A-grave [?À])
! (defalias 'iso-transl-A-acute [?Á])
! (defalias 'iso-transl-A-caret [?Â])
! (defalias 'iso-transl-A-tilde [?Ã])
! (defalias 'iso-transl-A-umlaut [?Ä])
! (defalias 'iso-transl-A-ring [?Å])
! (defalias 'iso-transl-AE [?Æ])
! (defalias 'iso-transl-C-cedilla [?Ç])
! (defalias 'iso-transl-E-grave [?È])
! (defalias 'iso-transl-E-acute [?É])
! (defalias 'iso-transl-E-caret [?Ê])
! (defalias 'iso-transl-E-umlaut [?Ë])
! (defalias 'iso-transl-I-grave [?Ì])
! (defalias 'iso-transl-I-acute [?Í])
! (defalias 'iso-transl-I-caret [?Î])
! (defalias 'iso-transl-I-umlaut [?Ï])
! (defalias 'iso-transl-D-stroke [?Ð])
! (defalias 'iso-transl-N-tilde [?Ñ])
! (defalias 'iso-transl-O-grave [?Ò])
! (defalias 'iso-transl-O-acute [?Ó])
! (defalias 'iso-transl-O-caret [?Ô])
! (defalias 'iso-transl-O-tilde [?Õ])
! (defalias 'iso-transl-O-umlaut [?Ö])
! (defalias 'iso-transl-multiplication-sign [?×])
! (defalias 'iso-transl-O-slash [?Ø])
! (defalias 'iso-transl-U-grave [?Ù])
! (defalias 'iso-transl-U-acute [?Ú])
! (defalias 'iso-transl-U-caret [?Û])
! (defalias 'iso-transl-U-umlaut [?Ü])
! (defalias 'iso-transl-Y-acute [?Ý])
! (defalias 'iso-transl-THORN [?Þ])
! (defalias 'iso-transl-ss [?ß])
! (defalias 'iso-transl-a-grave [?à])
! (defalias 'iso-transl-a-acute [?á])
! (defalias 'iso-transl-a-caret [?â])
! (defalias 'iso-transl-a-tilde [?ã])
! (defalias 'iso-transl-a-umlaut [?ä])
! (defalias 'iso-transl-a-ring [?å])
! (defalias 'iso-transl-ae [?æ])
! (defalias 'iso-transl-c-cedilla [?ç])
! (defalias 'iso-transl-e-grave [?è])
! (defalias 'iso-transl-e-acute [?é])
! (defalias 'iso-transl-e-caret [?ê])
! (defalias 'iso-transl-e-umlaut [?ë])
! (defalias 'iso-transl-i-grave [?ì])
! (defalias 'iso-transl-i-acute [?í])
! (defalias 'iso-transl-i-caret [?î])
! (defalias 'iso-transl-i-umlaut [?ï])
! (defalias 'iso-transl-d-stroke [?ð])
! (defalias 'iso-transl-n-tilde [?ñ])
! (defalias 'iso-transl-o-grave [?ò])
! (defalias 'iso-transl-o-acute [?ó])
! (defalias 'iso-transl-o-caret [?ô])
! (defalias 'iso-transl-o-tilde [?õ])
! (defalias 'iso-transl-o-umlaut [?ö])
! (defalias 'iso-transl-division-sign [?÷])
! (defalias 'iso-transl-o-slash [?ø])
! (defalias 'iso-transl-u-grave [?ù])
! (defalias 'iso-transl-u-acute [?ú])
! (defalias 'iso-transl-u-caret [?û])
! (defalias 'iso-transl-u-umlaut [?ü])
! (defalias 'iso-transl-y-acute [?ý])
! (defalias 'iso-transl-thorn [?þ])
! (defalias 'iso-transl-y-umlaut [?ÿ])
  
  ;; Language-specific translation lists.
  (defvar iso-transl-language-alist
    '(("Esperanto"
!      ("C"  . [?Æ])
!      ("G"  . [?Ø])
!      ("H"  . [?¦])
!      ("J"  . [?¬])
!      ("S"  . [?Þ])
!      ("U"  . [?Ý])
!      ("c"  . [?æ])
!      ("g"  . [?ø])
!      ("h"  . [?¶])
!      ("j"  . [?¼])
!      ("s"  . [?þ])
!      ("u"  . [?ý]))
      ("French"
!      ("C"  . [?Ç])
!      ("c"  . [?ç]))
      ("German"
!      ("A"  . [?Ä])
!      ("O"  . [?Ö]) 
!      ("U"  . [?Ü])
!      ("a"  . [?ä])
!      ("o"  . [?ö])
!      ("s"  . [?ß])
!      ("u"  . [?ü]))
      ("Portuguese"
!      ("C"  . [?Ç])
!      ("c"  . [?ç]))
      ("Spanish"
!      ("!"  . [?¡])
!      ("?"  . [?¿])
!      ("N"  . [?Ñ])
!      ("n"  . [?ñ]))))
  
  (defvar iso-transl-ctl-x-8-map nil
    "Keymap for C-x 8 prefix.")