X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fx-win-sun.el;h=b59dd827585e3f2c77f586a232132f0e6cabc6ef;hp=0bebfaa0747ec419548574ea2a54ec39dad7d48c;hb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac

diff --git a/lisp/x-win-sun.el b/lisp/x-win-sun.el
index 0bebfaa..b59dd82 100644
--- a/lisp/x-win-sun.el
+++ b/lisp/x-win-sun.el
@@ -64,19 +64,9 @@
 
 ;;; Code:
 
+;;;###autoload
 (defun x-win-init-sun ()
 
-  (defun x-remap-keysyms-using-function-key-map (from-key to-key)
-    (dolist (prefix '(() (shift) (control) (meta) (alt)
-		      (shift control) (shift alt) (shift meta)
-		      (control alt) (control meta) (alt meta)
-		      (shift control alt) (shift control meta)
-		      (shift alt meta) (control alt meta)
-		      (shift control alt meta)))
-      (define-key function-key-map
-	(append prefix (list from-key))
-	(vector (append prefix (list to-key))))))
-
   ;; help is ok
   ;; num_lock is ok
   ;; up is ok
@@ -164,9 +154,15 @@
 		 (f12    again))))
       )
     do (when (x-keysym-on-keyboard-sans-modifiers-p from-key)
-	 (x-remap-keysyms-using-function-key-map from-key to-key)))
-
-  (unintern 'x-remap-keysyms-using-function-key-map)
+	 (dolist (prefix '(() (shift) (control) (meta) (alt)
+			   (shift control) (shift alt) (shift meta)
+			   (control alt) (control meta) (alt meta)
+			   (shift control alt) (shift control meta)
+			   (shift alt meta) (control alt meta)
+			   (shift control alt meta)))
+	   (define-key function-key-map
+	     (append prefix (list from-key))
+	     (vector (append prefix (list to-key)))))))
 
   ;; for each element in the left column of the above table, alias it
   ;; to the thing in the right column.  Then do the same for many, but