Avoid mutating invocation-name (tiny change)

* lisp/term/pgtk-win.el (window-system-initialization): copy invocation-name.
masm11 · Oct 15, 2020 · d24a9f9 · d24a9f9
1 parent 66c4043
commit d24a9f9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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.