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 a41d3a3951fdd5670177109e5b609e125b05e45b..e84fbf9168f6e951c48e57f27fd1ea668036ee95 100644 (file)
--- 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.