feature/pgtk 7b6fea8 091/100: Avoid mutating invocation-name (tiny change)

[Yuuki Harano]

branch: feature/pgtk
commit 7b6fea821ad040f7e8358b2afd9c0eaead967c2c
Author: Kira Bruneau <kira.bruneau@gmail.com>
Commit: Jeff Walsh <jeff.walsh@drtusers-MacBook-Pro.local>

    Avoid mutating invocation-name (tiny change)
    
    * lisp/term/pgtk-win.el (window-system-initialization): copy 
invocation-name.
---
 lisp/term/pgtk-win.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index a41d3a3..e84fbf9 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.