From: Kira Bruneau <kira.bruneau@gmail.com>
Date: Thu, 15 Oct 2020 18:46:44 +0000 (-0400)
Subject: Avoid mutating invocation-name (tiny change)
X-Git-Tag: emacs-29.0.90~3769
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b6fea821ad040f7e8358b2afd9c0eaead967c2c;p=emacs.git

Avoid mutating invocation-name (tiny change)

* lisp/term/pgtk-win.el (window-system-initialization): copy invocation-name.
---

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index a41d3a3951f..e84fbf9168f 100644
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -303,7 +303,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
   ;; Make sure we have a valid resource name.
   (or (stringp x-resource-name)
       (let (i)
-	(setq x-resource-name invocation-name)
+	(setq x-resource-name (copy-sequence invocation-name))
 
 	;; Change any . or * characters in x-resource-name to hyphens,
 	;; so as not to choke when we use it in X resource queries.