martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(x-handle-xrm-switch): Accept more than one -xrm

Browse Source 
switch, like xterm, and concat resource strings, with a newline
between them.
This commit is contained in:
Gerd Moellmann
2001-03-06 14:02:02 +00:00
parent 6961e0c1c8
commit 2025ddca15
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/term/x-win.el
View File

@@ -1,6 +1,6 @@
;;; x-win.el --- parse switches controlling interface with X window system
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc.
;; Author: FSF
;; Keywords: terminals
@@ -117,9 +117,12 @@
;; Handle the -xrm option.
(defun x-handle-xrm-switch (switch)
(or (consp x-invocation-args)
(error "%s: missing argument to `%s' option" (invocation-name) switch))
(setq x-command-line-resources (car x-invocation-args))
(unless (consp x-invocation-args)
(error "%s: missing argument to `%s' option" (invocation-name) switch))
(setq x-command-line-resources
(if (null x-command-line-resources)
(car x-invocation-args)
(concat x-command-line-resources "\n" (car x-invocation-args))))
(setq x-invocation-args (cdr x-invocation-args)))
;; Handle the geometry option