Commit 2025ddca authored by Gerd Moellmann's avatar Gerd Moellmann

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

switch, like xterm, and concat resource strings, with a newline
between them.
parent 6961e0c1
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment