(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 63ba98cd165308736d82c1cb8f10fb9917c87702..0b76fe1ea2db76b9c557db6f926c827f2c4d91d8 100644 (file)
--- a/lisp/international/iso-insert.el
+++ b/lisp/international/iso-insert.el
@@ -19,8 +19,9 @@
 ;; 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:
 
@@ -28,6 +29,10 @@
 
 ;;; 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)
@@ -622,6 +627,7 @@
    (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)