Mercurial > hg > xemacs-beta

comparison lisp/x-init.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 41ff10fd062f
children 434959a2fba3
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
33 ;;; Code: 33 ;;; Code:
34 34
35 ;; If you want to change this variable, this is the place you must do it. 35 ;; If you want to change this variable, this is the place you must do it.
36 ;; Do not set it to a string containing periods. X doesn't like that. 36 ;; Do not set it to a string containing periods. X doesn't like that.
37 ;(setq x-emacs-application-class "Emacs") 37 ;(setq x-emacs-application-class "Emacs")
38
39 (defgroup x nil
40 "The X Window system."
41 :group 'environment)
38 42
39 ;; selections and active regions 43 ;; selections and active regions
40 44
41 ;; If and only if zmacs-regions is true: 45 ;; If and only if zmacs-regions is true:
42 46
253 257
254 ;; Open the X display when this file is loaded 258 ;; Open the X display when this file is loaded
255 ;; (Note that the first frame is created later.) 259 ;; (Note that the first frame is created later.)
256 (setq x-initial-argv-list (cons (car command-line-args) 260 (setq x-initial-argv-list (cons (car command-line-args)
257 command-line-args-left)) 261 command-line-args-left))
262 ;; Locate the app-defaults directory
263 (when (and (boundp 'x-app-defaults-directory)
264 (null x-app-defaults-directory))
265 (setq x-app-defaults-directory
266 (locate-data-directory "app-defaults")))
258 (make-x-device nil) 267 (make-x-device nil)
259 (setq command-line-args-left (cdr x-initial-argv-list)) 268 (setq command-line-args-left (cdr x-initial-argv-list))
260 (setq x-win-initted t))) 269 (setq x-win-initted t)))
261 270
262 (defvar post-x-win-initted nil) 271 (defvar post-x-win-initted nil)