Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
228:654d0f3a6a9b 229:434959a2fba3
227 ;; MIT losingly fails to tell us what hardware the X server 227 ;; MIT losingly fails to tell us what hardware the X server
228 ;; is managing, so assume all MIT displays are Suns... HA HA! 228 ;; is managing, so assume all MIT displays are Suns... HA HA!
229 (string-equal "MIT X Consortium" vendor) 229 (string-equal "MIT X Consortium" vendor)
230 (string-equal "X Consortium" vendor)) 230 (string-equal "X Consortium" vendor))
231 ;; Ok, we think this could be a Sun keyboard. Load the Sun code. 231 ;; Ok, we think this could be a Sun keyboard. Load the Sun code.
232 (load "x-win-sun")) 232 ;; (load "x-win-sun"))
233 (x-win-init-sun))
233 ((string-match "XFree86" vendor) 234 ((string-match "XFree86" vendor)
234 ;; Those XFree86 people do some weird keysym stuff, too. 235 ;; Those XFree86 people do some weird keysym stuff, too.
235 (load "x-win-xfree86"))))) 236 ;; (load "x-win-xfree86")))))
237 (x-win-init-xfree86)))))
236 238
237 239
238 (defvar pre-x-win-initted nil) 240 (defvar pre-x-win-initted nil)
239 241
240 (defun init-pre-x-win () 242 (defun init-pre-x-win ()