;;; 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
;; 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:
;;; 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 'iso8859-1-insert)
+(provide 'iso-insert)
;;; iso-insert.el ends here