lisp/obsolete/iso-insert.el

   1 ;;; iso-insert.el --- insert functions for ISO 8859/1  -*- coding: iso-8859-1;-*-
   2
   3 ;; Copyright (C) 1987, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Howard Gayle
   7 ;; Maintainer: FSF
   8 ;; Keywords: i18n
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 3, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28
  29 ;; This file has been obsolete since Emacs 22.1.
  30
  31 ;; Provides keys for inserting ISO Latin-1 characters.  They use the
  32 ;; prefix key C-x 8.  Type C-x 8 C-h for a list.
  33
  34 ;;; Code:
  35
  36 (defun insert-no-break-space ()
  37    (interactive "*")
  38    (insert ?\ )
  39 )
  40
  41 (defun insert-inverted-exclamation-mark ()
  42    (interactive "*")
  43    (insert ?\¡)
  44 )
  45
  46 (defun insert-cent-sign ()
  47    (interactive "*")
  48    (insert ?\¢)
  49 )
  50
  51 (defun insert-pound-sign ()
  52    (interactive "*")
  53    (insert ?\£)
  54 )
  55
  56 (defun insert-general-currency-sign ()
  57    (interactive "*")
  58    (insert ?\¤)
  59 )
  60
  61 (defun insert-yen-sign ()
  62    (interactive "*")
  63    (insert ?\¥)
  64 )
  65
  66 (defun insert-broken-vertical-line ()
  67    (interactive "*")
  68    (insert ?\¦)
  69 )
  70
  71 (defun insert-section-sign ()
  72    (interactive "*")
  73    (insert ?\§)
  74 )
  75
  76 (defun insert-diaeresis ()
  77    (interactive "*")
  78    (insert ?\¨)
  79 )
  80
  81 (defun insert-copyright-sign ()
  82    (interactive "*")
  83    (insert ?\©)
  84 )
  85
  86 (defun insert-ordinal-indicator-feminine ()
  87    (interactive "*")
  88    (insert ?\ª)
  89 )
  90
  91 (defun insert-angle-quotation-mark-left ()
  92    (interactive "*")
  93    (insert ?\«)
  94 )
  95
  96 (defun insert-not-sign ()
  97    (interactive "*")
  98    (insert ?\¬)
  99 )
 100
 101 (defun insert-soft-hyphen ()
 102    (interactive "*")
 103    (insert ?\)
 104 )
 105
 106 (defun insert-registered-sign ()
 107    (interactive "*")
 108    (insert ?\®)
 109 )
 110
 111 (defun insert-macron ()
 112    (interactive "*")
 113    (insert ?\¯)
 114 )
 115
 116 (defun insert-degree-sign ()
 117    (interactive "*")
 118    (insert ?\°)
 119 )
 120
 121 (defun insert-plus-or-minus-sign ()
 122    (interactive "*")
 123    (insert ?\±)
 124 )
 125
 126 (defun insert-superscript-two ()
 127    (interactive "*")
 128    (insert ?\²)
 129 )
 130
 131 (defun insert-superscript-three ()
 132    (interactive "*")
 133    (insert ?\³)
 134 )
 135
 136 (defun insert-acute-accent ()
 137    (interactive "*")
 138    (insert ?\´)
 139 )
 140
 141 (defun insert-micro-sign ()
 142    (interactive "*")
 143    (insert ?\µ)
 144 )
 145
 146 (defun insert-pilcrow ()
 147    (interactive "*")
 148    (insert ?\¶)
 149 )
 150
 151 (defun insert-middle-dot ()
 152    (interactive "*")
 153    (insert ?\·)
 154 )
 155
 156 (defun insert-cedilla ()
 157    (interactive "*")
 158    (insert ?\¸)
 159 )
 160
 161 (defun insert-superscript-one ()
 162    (interactive "*")
 163    (insert ?\¹)
 164 )
 165
 166 (defun insert-ordinal-indicator-masculine ()
 167    (interactive "*")
 168    (insert ?\º)
 169 )
 170
 171 (defun insert-angle-quotation-mark-right ()
 172    (interactive "*")
 173    (insert ?\»)
 174 )
 175
 176 (defun insert-fraction-one-quarter ()
 177    (interactive "*")
 178    (insert ?\¼)
 179 )
 180
 181 (defun insert-fraction-one-half ()
 182    (interactive "*")
 183    (insert ?\½)
 184 )
 185
 186 (defun insert-fraction-three-quarters ()
 187    (interactive "*")
 188    (insert ?\¾)
 189 )
 190
 191 (defun insert-inverted-question-mark ()
 192    (interactive "*")
 193    (insert ?\¿)
 194 )
 195
 196 (defun insert-A-grave ()
 197    (interactive "*")
 198    (insert ?\À)
 199 )
 200
 201 (defun insert-A-acute ()
 202    (interactive "*")
 203    (insert ?\Á)
 204 )
 205
 206 (defun insert-A-circumflex ()
 207    (interactive "*")
 208    (insert ?\Â)
 209 )
 210
 211 (defun insert-A-tilde ()
 212    (interactive "*")
 213    (insert ?\Ã)
 214 )
 215
 216 (defun insert-A-umlaut ()
 217    (interactive "*")
 218    (insert ?\Ä)
 219 )
 220
 221 (defun insert-A-ring ()
 222    (interactive "*")
 223    (insert ?\Å)
 224 )
 225
 226 (defun insert-AE ()
 227    (interactive "*")
 228    (insert ?\Æ)
 229 )
 230
 231 (defun insert-C-cedilla ()
 232    (interactive "*")
 233    (insert ?\Ç)
 234 )
 235
 236 (defun insert-E-grave ()
 237    (interactive "*")
 238    (insert ?\È)
 239 )
 240
 241 (defun insert-E-acute ()
 242    (interactive "*")
 243    (insert ?\É)
 244 )
 245
 246 (defun insert-E-circumflex ()
 247    (interactive "*")
 248    (insert ?\Ê)
 249 )
 250
 251 (defun insert-E-umlaut ()
 252    (interactive "*")
 253    (insert ?\Ë)
 254 )
 255
 256 (defun insert-I-grave ()
 257    (interactive "*")
 258    (insert ?\Ì)
 259 )
 260
 261 (defun insert-I-acute ()
 262    (interactive "*")
 263    (insert ?\Í)
 264 )
 265
 266 (defun insert-I-circumflex ()
 267    (interactive "*")
 268    (insert ?\Î)
 269 )
 270
 271 (defun insert-I-umlaut ()
 272    (interactive "*")
 273    (insert ?\Ï)
 274 )
 275
 276 (defun insert-D-stroke ()
 277    (interactive "*")
 278    (insert ?\Ð)
 279 )
 280
 281 (defun insert-N-tilde ()
 282    (interactive "*")
 283    (insert ?\Ñ)
 284 )
 285
 286 (defun insert-O-grave ()
 287    (interactive "*")
 288    (insert ?\Ò)
 289 )
 290
 291 (defun insert-O-acute ()
 292    (interactive "*")
 293    (insert ?\Ó)
 294 )
 295
 296 (defun insert-O-circumflex ()
 297    (interactive "*")
 298    (insert ?\Ô)
 299 )
 300
 301 (defun insert-O-tilde ()
 302    (interactive "*")
 303    (insert ?\Õ)
 304 )
 305
 306 (defun insert-O-umlaut ()
 307    (interactive "*")
 308    (insert ?\Ö)
 309 )
 310
 311 (defun insert-multiplication-sign ()
 312    (interactive "*")
 313    (insert ?\×)
 314 )
 315
 316 (defun insert-O-slash ()
 317    (interactive "*")
 318    (insert ?\Ø)
 319 )
 320
 321 (defun insert-U-grave ()
 322    (interactive "*")
 323    (insert ?\Ù)
 324 )
 325
 326 (defun insert-U-acute ()
 327    (interactive "*")
 328    (insert ?\Ú)
 329 )
 330
 331 (defun insert-U-circumflex ()
 332    (interactive "*")
 333    (insert ?\Û)
 334 )
 335
 336 (defun insert-U-umlaut ()
 337    (interactive "*")
 338    (insert ?\Ü)
 339 )
 340
 341 (defun insert-Y-acute ()
 342    (interactive "*")
 343    (insert ?\Ý)
 344 )
 345
 346 (defun insert-THORN ()
 347    (interactive "*")
 348    (insert ?\Þ)
 349 )
 350
 351 (defun insert-ss ()
 352    (interactive "*")
 353    (insert ?\ß)
 354 )
 355
 356 (defun insert-a-grave ()
 357    (interactive "*")
 358    (insert ?\à)
 359 )
 360
 361 (defun insert-a-acute ()
 362    (interactive "*")
 363    (insert ?\á)
 364 )
 365
 366 (defun insert-a-circumflex ()
 367    (interactive "*")
 368    (insert ?\â)
 369 )
 370
 371 (defun insert-a-tilde ()
 372    (interactive "*")
 373    (insert ?\ã)
 374 )
 375
 376 (defun insert-a-umlaut ()
 377    (interactive "*")
 378    (insert ?\ä)
 379 )
 380
 381 (defun insert-a-ring ()
 382    (interactive "*")
 383    (insert ?\å)
 384 )
 385
 386 (defun insert-ae ()
 387    (interactive "*")
 388    (insert ?\æ)
 389 )
 390
 391 (defun insert-c-cedilla ()
 392    (interactive "*")
 393    (insert ?\ç)
 394 )
 395
 396 (defun insert-e-grave ()
 397    (interactive "*")
 398    (insert ?\è)
 399 )
 400
 401 (defun insert-e-acute ()
 402    (interactive "*")
 403    (insert ?\é)
 404 )
 405
 406 (defun insert-e-circumflex ()
 407    (interactive "*")
 408    (insert ?\ê)
 409 )
 410
 411 (defun insert-e-umlaut ()
 412    (interactive "*")
 413    (insert ?\ë)
 414 )
 415
 416 (defun insert-i-grave ()
 417    (interactive "*")
 418    (insert ?\ì)
 419 )
 420
 421 (defun insert-i-acute ()
 422    (interactive "*")
 423    (insert ?\í)
 424 )
 425
 426 (defun insert-i-circumflex ()
 427    (interactive "*")
 428    (insert ?\î)
 429 )
 430
 431 (defun insert-i-umlaut ()
 432    (interactive "*")
 433    (insert ?\ï)
 434 )
 435
 436 (defun insert-d-stroke ()
 437    (interactive "*")
 438    (insert ?\ð)
 439 )
 440
 441 (defun insert-n-tilde ()
 442    (interactive "*")
 443    (insert ?\ñ)
 444 )
 445
 446 (defun insert-o-grave ()
 447    (interactive "*")
 448    (insert ?\ò)
 449 )
 450
 451 (defun insert-o-acute ()
 452    (interactive "*")
 453    (insert ?\ó)
 454 )
 455
 456 (defun insert-o-circumflex ()
 457    (interactive "*")
 458    (insert ?\ô)
 459 )
 460
 461 (defun insert-o-tilde ()
 462    (interactive "*")
 463    (insert ?\õ)
 464 )
 465
 466 (defun insert-o-umlaut ()
 467    (interactive "*")
 468    (insert ?\ö)
 469 )
 470
 471 (defun insert-division-sign ()
 472    (interactive "*")
 473    (insert ?\÷)
 474 )
 475
 476 (defun insert-o-slash ()
 477    (interactive "*")
 478    (insert ?\ø)
 479 )
 480
 481 (defun insert-u-grave ()
 482    (interactive "*")
 483    (insert ?\ù)
 484 )
 485
 486 (defun insert-u-acute ()
 487    (interactive "*")
 488    (insert ?\ú)
 489 )
 490
 491 (defun insert-u-circumflex ()
 492    (interactive "*")
 493    (insert ?\û)
 494 )
 495
 496 (defun insert-u-umlaut ()
 497    (interactive "*")
 498    (insert ?\ü)
 499 )
 500
 501 (defun insert-y-acute ()
 502    (interactive "*")
 503    (insert ?\ý)
 504 )
 505
 506 (defun insert-thorn ()
 507    (interactive "*")
 508    (insert ?\þ)
 509 )
 510
 511 (defun insert-y-umlaut ()
 512    (interactive "*")
 513    (insert ?\ÿ)
 514 )
 515
 516 (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.")
 517 (if 8859-1-map nil
 518    (setq 8859-1-map (make-keymap))
 519    (define-key 8859-1-map " "    'insert-no-break-space)
 520    (define-key 8859-1-map "!"    'insert-inverted-exclamation-mark)
 521    (define-key 8859-1-map "\""   (make-sparse-keymap))
 522    (define-key 8859-1-map "\"\"" 'insert-diaeresis)
 523    (define-key 8859-1-map "\"A"  'insert-A-umlaut)
 524    (define-key 8859-1-map "\"E"  'insert-E-umlaut)
 525    (define-key 8859-1-map "\"I"  'insert-I-umlaut)
 526    (define-key 8859-1-map "\"O"  'insert-O-umlaut)
 527    (define-key 8859-1-map "\"U"  'insert-U-umlaut)
 528    (define-key 8859-1-map "\"a"  'insert-a-umlaut)
 529    (define-key 8859-1-map "\"e"  'insert-e-umlaut)
 530    (define-key 8859-1-map "\"i"  'insert-i-umlaut)
 531    (define-key 8859-1-map "\"o"  'insert-o-umlaut)
 532    (define-key 8859-1-map "\"u"  'insert-u-umlaut)
 533    (define-key 8859-1-map "\"y"  'insert-y-umlaut)
 534    (define-key 8859-1-map "'"    (make-sparse-keymap))
 535    (define-key 8859-1-map "''"   'insert-acute-accent)
 536    (define-key 8859-1-map "'A"   'insert-A-acute)
 537    (define-key 8859-1-map "'E"   'insert-E-acute)
 538    (define-key 8859-1-map "'I"   'insert-I-acute)
 539    (define-key 8859-1-map "'O"   'insert-O-acute)
 540    (define-key 8859-1-map "'U"   'insert-U-acute)
 541    (define-key 8859-1-map "'Y"   'insert-Y-acute)
 542    (define-key 8859-1-map "'a"   'insert-a-acute)
 543    (define-key 8859-1-map "'e"   'insert-e-acute)
 544    (define-key 8859-1-map "'i"   'insert-i-acute)
 545    (define-key 8859-1-map "'o"   'insert-o-acute)
 546    (define-key 8859-1-map "'u"   'insert-u-acute)
 547    (define-key 8859-1-map "'y"   'insert-y-acute)
 548    (define-key 8859-1-map "$"    'insert-general-currency-sign)
 549    (define-key 8859-1-map "+"    'insert-plus-or-minus-sign)
 550    (define-key 8859-1-map ","    (make-sparse-keymap))
 551    (define-key 8859-1-map ",,"   'insert-cedilla)
 552    (define-key 8859-1-map ",C"   'insert-C-cedilla)
 553    (define-key 8859-1-map ",c"   'insert-c-cedilla)
 554    (define-key 8859-1-map "-"    'insert-soft-hyphen)
 555    (define-key 8859-1-map "."    'insert-middle-dot)
 556    (define-key 8859-1-map "/"    (make-sparse-keymap))
 557    (define-key 8859-1-map "//"   'insert-division-sign)
 558    (define-key 8859-1-map "/O"   'insert-O-slash)
 559    (define-key 8859-1-map "/o"   'insert-o-slash)
 560    (define-key 8859-1-map "1"    (make-sparse-keymap))
 561    (define-key 8859-1-map "1/"   (make-sparse-keymap))
 562    (define-key 8859-1-map "1/2"  'insert-fraction-one-half)
 563    (define-key 8859-1-map "1/4"  'insert-fraction-one-quarter)
 564    (define-key 8859-1-map "3"    (make-sparse-keymap))
 565    (define-key 8859-1-map "3/"   (make-sparse-keymap))
 566    (define-key 8859-1-map "3/4"  'insert-fraction-three-quarters)
 567    (define-key 8859-1-map "<"    'insert-angle-quotation-mark-left)
 568    (define-key 8859-1-map "="    'insert-macron)
 569    (define-key 8859-1-map ">"    'insert-angle-quotation-mark-right)
 570    (define-key 8859-1-map "?"    'insert-inverted-question-mark)
 571    (define-key 8859-1-map "A"    'insert-A-ring)
 572    (define-key 8859-1-map "E"    'insert-AE)
 573    (define-key 8859-1-map "C"    'insert-copyright-sign)
 574    (define-key 8859-1-map "D"    'insert-D-stroke)
 575    (define-key 8859-1-map "L"    'insert-pound-sign)
 576    (define-key 8859-1-map "P"    'insert-pilcrow)
 577    (define-key 8859-1-map "R"    'insert-registered-sign)
 578    (define-key 8859-1-map "S"    'insert-section-sign)
 579    (define-key 8859-1-map "T"    'insert-THORN)
 580    (define-key 8859-1-map "Y"    'insert-yen-sign)
 581    (define-key 8859-1-map "^"    (make-sparse-keymap))
 582    (define-key 8859-1-map "^1"   'insert-superscript-one)
 583    (define-key 8859-1-map "^2"   'insert-superscript-two)
 584    (define-key 8859-1-map "^3"   'insert-superscript-three)
 585    (define-key 8859-1-map "^A"   'insert-A-circumflex)
 586    (define-key 8859-1-map "^E"   'insert-E-circumflex)
 587    (define-key 8859-1-map "^I"   'insert-I-circumflex)
 588    (define-key 8859-1-map "^O"   'insert-O-circumflex)
 589    (define-key 8859-1-map "^U"   'insert-U-circumflex)
 590    (define-key 8859-1-map "^a"   'insert-a-circumflex)
 591    (define-key 8859-1-map "^e"   'insert-e-circumflex)
 592    (define-key 8859-1-map "^i"   'insert-i-circumflex)
 593    (define-key 8859-1-map "^o"   'insert-o-circumflex)
 594    (define-key 8859-1-map "^u"   'insert-u-circumflex)
 595    (define-key 8859-1-map "_"    (make-sparse-keymap))
 596    (define-key 8859-1-map "_a"   'insert-ordinal-indicator-feminine)
 597    (define-key 8859-1-map "_o"   'insert-ordinal-indicator-masculine)
 598    (define-key 8859-1-map "`"    (make-sparse-keymap))
 599    (define-key 8859-1-map "`A"   'insert-A-grave)
 600    (define-key 8859-1-map "`E"   'insert-E-grave)
 601    (define-key 8859-1-map "`I"   'insert-I-grave)
 602    (define-key 8859-1-map "`O"   'insert-O-grave)
 603    (define-key 8859-1-map "`U"   'insert-U-grave)
 604    (define-key 8859-1-map "`a"   'insert-a-grave)
 605    (define-key 8859-1-map "`e"   'insert-e-grave)
 606    (define-key 8859-1-map "`i"   'insert-i-grave)
 607    (define-key 8859-1-map "`o"   'insert-o-grave)
 608    (define-key 8859-1-map "`u"   'insert-u-grave)
 609    (define-key 8859-1-map "a"    'insert-a-ring)
 610    (define-key 8859-1-map "e"    'insert-ae)
 611    (define-key 8859-1-map "c"    'insert-cent-sign)
 612    (define-key 8859-1-map "d"    'insert-d-stroke)
 613    (define-key 8859-1-map "o"    'insert-degree-sign)
 614    (define-key 8859-1-map "s"    'insert-ss)
 615    (define-key 8859-1-map "t"    'insert-thorn)
 616    (define-key 8859-1-map "u"    'insert-micro-sign)
 617    (define-key 8859-1-map "x"    'insert-multiplication-sign)
 618    (define-key 8859-1-map "|"    'insert-broken-vertical-line)
 619    (define-key 8859-1-map "~"    (make-sparse-keymap))
 620    (define-key 8859-1-map "~A"   'insert-A-tilde)
 621    (define-key 8859-1-map "~N"   'insert-N-tilde)
 622    (define-key 8859-1-map "~O"   'insert-O-tilde)
 623    (define-key 8859-1-map "~a"   'insert-a-tilde)
 624    (define-key 8859-1-map "~n"   'insert-n-tilde)
 625    (define-key 8859-1-map "~o"   'insert-o-tilde)
 626    (define-key 8859-1-map "~~"   'insert-not-sign)
 627    (if (not (lookup-key global-map "\C-x8"))
 628       (define-key global-map "\C-x8" 8859-1-map))
 629 )
 630 (defalias '8859-1-map 8859-1-map)
 631
 632 (provide 'iso-insert)
 633
 634 ;; arch-tag: eb5f97bd-a034-4851-92ff-ab1f1bf92814
 635 ;;; iso-insert.el ends here