Mercurial > hg > xemacs-beta

diff lisp/x-init.el @ 229:434959a2fba3 r20-5b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b13
author cvs
date Mon, 13 Aug 2007 10:13:02 +0200
parents 0e522484dd2a
children 41f2f0e326e9
line wrap: on
line diff
--- a/lisp/x-init.el	Mon Aug 13 10:12:39 2007 +0200
+++ b/lisp/x-init.el	Mon Aug 13 10:13:02 2007 +0200
@@ -229,10 +229,12 @@
 	       (string-equal "MIT X Consortium" vendor)
 	       (string-equal "X Consortium" vendor))
            ;; Ok, we think this could be a Sun keyboard.  Load the Sun code.
-           (load "x-win-sun"))
+           ;; (load "x-win-sun"))
+	   (x-win-init-sun))
           ((string-match "XFree86" vendor)
            ;; Those XFree86 people do some weird keysym stuff, too.
-           (load "x-win-xfree86")))))
+           ;; (load "x-win-xfree86")))))
+	   (x-win-init-xfree86)))))
 
 
 (defvar pre-x-win-initted nil)