How can Emacs tell if it's started with Xwindow?

How can Emacs tell if it's started with Xwindow?

[Wang Yin]

Hi,

I want to define some font in my .emacs file as:

(create-fontset-from-fontset-spec
 "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-wangyin,
	chinese-gb2312:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
       	mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1,
	korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,
        chinese-cns11643-5:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
        chinese-cns11643-6:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
        chinese-cns11643-7:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0" t)

(setq default-frame-alist
        (append
        '((font . "fontset-wangyin"))
        default-frame-alist))


I think this is more flexible than put this stuff in
.Xdefaults.

But I have a problem now. If Emacs is started with -nw
switch, it will report error.

How can I add a predicate to tell Emacs if we are in X?


-- 
Wang Yin
DA Lab, Tsinghua University,
100084
Beijing China

Re: How can Emacs tell if it's started with Xwindow?

[Lute Kamstra]

Wang Yin <wang-y01@mails.tsinghua.edu.cn> writes:

[...]

> How can I add a predicate to tell Emacs if we are in X?

,----[ C-h v window-system RET ]
| window-system's value is x
| 
| Documentation:
| A symbol naming the window-system under which Emacs is running
| (such as `x'), or nil if emacs is running on an ordinary terminal.
`----

Lute.

-- 
(spook) => "Aladdin S Key BLU-97 A/B"
(insert-file-contents "~/.signature") => (error "`~/.signature' too rude")

Re: How can Emacs tell if it's started with Xwindow?

[William D. Colburn (aka Schlake)]

Here are two different examples from my .emacs that checks for X and
does things based on what it finds:

;;;
;;; I like my windows to fit on the screen
;;;
(if (eq (framep (selected-frame)) 'x)
    (let ((val (cdr (assq 'height (frame-parameters)))))
      (set-frame-height (selected-frame) (- val 1))
      )
  )

;;;
;;; I dislike the menu bars on non-X term windows 
;;;
(let ((frame-type (framep (selected-frame))))
  (cond
   ((eq frame-type 'x) (menu-bar-mode 1))
   ((eq frame-type 'pc) (menu-bar-mode -1))
   ((eq frame-type t) (menu-bar-mode -1))
   )
  )


On Thu, May 15, 2003 at 10:43:53PM +0800, Wang Yin wrote:
>I want to define some font in my .emacs file as:
>
>(create-fontset-from-fontset-spec
> "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-wangyin,
>	chinese-gb2312:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
>       	mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1,
>	korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,
>        chinese-cns11643-5:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
>        chinese-cns11643-6:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,
>        chinese-cns11643-7:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0" t)
>
>(setq default-frame-alist
>        (append
>        '((font . "fontset-wangyin"))
>        default-frame-alist))
>
>
>I think this is more flexible than put this stuff in
>.Xdefaults.
>
>But I have a problem now. If Emacs is started with -nw
>switch, it will report error.
>
>How can I add a predicate to tell Emacs if we are in X?
>
>
>-- 
>Wang Yin
>DA Lab, Tsinghua University,
>100084
>Beijing China
>_______________________________________________
>Help-gnu-emacs mailing list
>Help-gnu-emacs@gnu.org
>http://mail.gnu.org/mailman/listinfo/help-gnu-emacs

--
William Colburn, "Sysprog" <wcolburn@nmt.edu>
Computer Center, New Mexico Institute of Mining and Technology
http://www.nmt.edu/tcc/     http://www.nmt.edu/~wcolburn

Re: How can Emacs tell if it's started with Xwindow?

[Niels Freimann]

this may also be interesting for emacs -nw:

(if window-system
    nil
        ;;
)

Re: How can Emacs tell if it's started with Xwindow?

[Benjamin Riefenstahl]

Hi,


Wang Yin <wang-y01@mails.tsinghua.edu.cn> writes:
> I want to define some font in my .emacs file as:
>
> (create-fontset-from-fontset-spec
>  "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-wangyin,
> [...]
>
> How can I add a predicate to tell Emacs if we are in X?

You may want to use "(if (display-multi-font-p) ...".

X11 is not what you really specifically want in this place, even
though it may work in your current situation.  Therefore asking the
question that way is considered bad style.


so long, benny

Re: How can Emacs tell if it's started with Xwindow?

[It's me FKtPp ;)]

不好意思,冒昧的问一句.你应改能看到中文吧,和和
定义fontset为什么不在资源文件里作呢?在.emacs里面对字体的改动是很拖累
启动时间的.本来emacs启动就很慢,这么一来,就更慢了.所以,我把定义窗口大
小,和fontset的与X相关的定义都写在了资源文件里面了.(呵呵,这个方法可能
不能让你满义,毕竟是个回避问题的方法,也许,你只是用fontset举个例子,那就
请原谅在下多嘴了. :P

I think define a fontset in Xresources *CAN SAVE YOUR INIT-TIME*
X's things should be set in Xresources :P

Yours FKtPp ;)