-;; Insert functions for ISO 8859/1.
-;; Copyright (C) 1987 Free Software Foundation, Inc.
+;;; iso-insert.el --- insert functions for ISO 8859/1.
+
+;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
+
+;; Author: Howard Gayle
+;; Maintainer: FSF
+;; Keywords: i18n
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;; Commentary:
;; Written by Howard Gayle. See case-table.el for details.
+;;; Code:
+
+;;; Provide some binding for startup:
+;;;###autoload (define-key global-map "\C-x8" '8859-1-map)
+;;;###autoload (autoload '8859-1-map "iso-insert" "Keymap for ISO 8859/1 character insertion." t 'keymap)
+
(defun insert-no-break-space ()
(interactive "*")
(insert 160)
(define-key 8859-1-map "=" 'insert-macron)
(define-key 8859-1-map ">" 'insert-angle-quotation-mark-right)
(define-key 8859-1-map "?" 'insert-inverted-question-mark)
- (define-key 8859-1-map "A" (make-sparse-keymap))
- (define-key 8859-1-map "AA" 'insert-A-ring)
- (define-key 8859-1-map "AE" 'insert-AE)
+ (define-key 8859-1-map "A" 'insert-A-ring)
+ (define-key 8859-1-map "E" 'insert-AE)
(define-key 8859-1-map "C" 'insert-copyright-sign)
(define-key 8859-1-map "D" 'insert-D-stroke)
(define-key 8859-1-map "L" 'insert-pound-sign)
(define-key 8859-1-map "`i" 'insert-i-grave)
(define-key 8859-1-map "`o" 'insert-o-grave)
(define-key 8859-1-map "`u" 'insert-u-grave)
- (define-key 8859-1-map "a" (make-sparse-keymap))
- (define-key 8859-1-map "aa" 'insert-a-ring)
- (define-key 8859-1-map "ae" 'insert-ae)
+ (define-key 8859-1-map "a" 'insert-a-ring)
+ (define-key 8859-1-map "e" 'insert-ae)
(define-key 8859-1-map "c" 'insert-cent-sign)
(define-key 8859-1-map "d" 'insert-d-stroke)
(define-key 8859-1-map "o" 'insert-degree-sign)
(if (not (lookup-key global-map "\C-x8"))
(define-key global-map "\C-x8" 8859-1-map))
)
+(defalias '8859-1-map 8859-1-map)
+
+(provide 'iso-insert)
-(provide 'iso8859-1-insert)
+;;; iso-insert.el ends here