diff options
| -rw-r--r-- | lisp/international/iso-insert.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/international/iso-insert.el b/lisp/international/iso-insert.el index 870fc1afeea..0b76fe1ea2d 100644 --- a/lisp/international/iso-insert.el +++ b/lisp/international/iso-insert.el | |||
| @@ -29,6 +29,10 @@ | |||
| 29 | 29 | ||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
| 32 | ;;; Provide some binding for startup: | ||
| 33 | ;;;###autoload (define-key global-map "\C-x8" '8859-1-map) | ||
| 34 | ;;;###autoload (autoload '8859-1-map "iso-insert" "Keymap for ISO 8859/1 character insertion." t 'keymap) | ||
| 35 | |||
| 32 | (defun insert-no-break-space () | 36 | (defun insert-no-break-space () |
| 33 | (interactive "*") | 37 | (interactive "*") |
| 34 | (insert 160) | 38 | (insert 160) |
| @@ -623,6 +627,7 @@ | |||
| 623 | (if (not (lookup-key global-map "\C-x8")) | 627 | (if (not (lookup-key global-map "\C-x8")) |
| 624 | (define-key global-map "\C-x8" 8859-1-map)) | 628 | (define-key global-map "\C-x8" 8859-1-map)) |
| 625 | ) | 629 | ) |
| 630 | (defalias '8859-1-map 8859-1-map) | ||
| 626 | 631 | ||
| 627 | (provide 'iso-insert) | 632 | (provide 'iso-insert) |
| 628 | 633 | ||