X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fx-iso8859-1.el;h=94457d4349e538870f9ce35bbd6ead3ef1c247d5;hp=866f7617c256961f352e2c80e9b5657b0d382c79;hb=5378ab6d2bb24fd8d39025be1574d406cf91f141;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910

diff --git a/lisp/x-iso8859-1.el b/lisp/x-iso8859-1.el
index 866f761..94457d4 100644
--- a/lisp/x-iso8859-1.el
+++ b/lisp/x-iso8859-1.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1992, 1993, 1997 Free Software Foundation, Inc.
 
-;; Author: Jamie Zawinski <jwz@netscape.com>
+;; Author: Jamie Zawinski <jwz@jwz.org>
 ;; Created: 15-jun-92
 ;; Maintainer: XEmacs Development Team
 ;; Keywords: extensions, internal, dumped
@@ -44,7 +44,7 @@
 ;; keys are bound to one-character keyboard macros, so that `kp-9' will, by
 ;; default, do the same thing that `9' does, in whatever the current mode is.
 
-;; The standard case and syntax tables are set in prim/iso8859-1.el, since
+;; The standard case and syntax tables are set in iso8859-1.el, since
 ;; that is not X-specific.
 
 ;;; Code:
@@ -71,16 +71,16 @@ possible, in the interest of portability.")
 	;; the keysym symbols.
 	;; 
 	(mapcar '(lambda (sym-and-code)
-		   (list 'put (list 'quote (car sym-and-code))
-			 ''x-iso8859/1 (car (cdr sym-and-code))))
+		  (list 'put (list 'quote (car sym-and-code))
+			''x-iso8859/1 (car (cdr sym-and-code))))
 		syms-and-iso8859/1-codes)
 	;;
 	;; Then emit code that binds all of those keysym symbols to
 	;; `self-insert-command'.
 	;; 
 	(mapcar '(lambda (sym-and-code)
-		   (list 'global-set-key (list 'quote (car sym-and-code))
-			 ''self-insert-command))
+		  (list 'global-set-key (list 'quote (car sym-and-code))
+			''self-insert-command))
 		syms-and-iso8859/1-codes)
 	;;
 	;; Then emit the value of iso8859/1-code-to-x-keysym-table.
@@ -96,8 +96,8 @@ possible, in the interest of portability.")
 		  '((8 backspace) (9 tab) (10 linefeed) (13 return)
 		    (27 escape) (32 space) (127 delete)))
 	  (mapcar '(lambda (sym-and-code)
-		     (or (aref v (car (cdr sym-and-code)))
-			 (aset v (car (cdr sym-and-code)) (car sym-and-code))))
+		    (or (aref v (car (cdr sym-and-code)))
+			(aset v (car (cdr sym-and-code)) (car sym-and-code))))
 		  syms-and-iso8859/1-codes)
 	  (list (list 'setq 'iso8859/1-code-to-x-keysym-table v)))
 	))))
@@ -211,8 +211,8 @@ possible, in the interest of portability.")
 ((macro . (lambda (&rest syms-and-iso8859/1-codes)
 	    (cons 'progn
 		  (mapcar '(lambda (sym-and-code)
-			     (list 'put (list 'quote (car sym-and-code))
-				   ''x-iso8859/1 (car (cdr sym-and-code))))
+			    (list 'put (list 'quote (car sym-and-code))
+				  ''x-iso8859/1 (car (cdr sym-and-code))))
 			  syms-and-iso8859/1-codes))))
  ;;
  ;; Let's do the appropriate thing for some vendor-specific keysyms too...