(byte-compile-inline-expand):

[gnu-emacs] / lisp / international / iso-insert.el

diff --git a/lisp/international/iso-insert.el b/lisp/international/iso-insert.el
index efe7e0cd3c764232721df372547f960a0c0fb991..0b76fe1ea2db76b9c557db6f926c827f2c4d91d8 100644 (file)
--- a/lisp/international/iso-insert.el
+++ b/lisp/international/iso-insert.el
@@ -1,10 +1,10 @@
 ;;; iso-insert.el --- insert functions for ISO 8859/1.
 
-;; Copyright (C) 1987 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
 
 ;; Author: Howard Gayle
 ;; Maintainer: FSF
-;; Keywords: i14n
+;; Keywords: i18n
 
 ;; This file is part of GNU Emacs.
 
@@ -19,13 +19,20 @@
 ;; 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.
 
-;;; Code:
+;;; 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)
@@ -561,9 +568,8 @@
    (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)
@@ -600,9 +606,8 @@
    (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)
@@ -622,7 +627,8 @@
    (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 'iso8859-1-insert)
+(provide 'iso-insert)
 
 ;;; iso-insert.el ends here