comparison lisp/international/iso-insert.el @ 20101:1920690627a2

Add autoloads for `8859-1-map'.

20100:0db4553d47cc

;; Written by Howard Gayle.  See case-table.el for details.

;;; Code:

(defun insert-no-break-space ()
   (interactive "*")
   (insert 160)
)

   (define-key 8859-1-map "~o"   'insert-o-tilde)
   (define-key 8859-1-map "~~"   'insert-not-sign)
   (if (not (lookup-key global-map "\C-x8"))
      (define-key global-map "\C-x8" 8859-1-map))
)

(provide 'iso-insert)

;;; iso-insert.el ends here

20101:1920690627a2

;; 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 "~o"   'insert-o-tilde)
   (define-key 8859-1-map "~~"   'insert-not-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)

;;; iso-insert.el ends here