From 7b6fea821ad040f7e8358b2afd9c0eaead967c2c Mon Sep 17 00:00:00 2001 From: Kira Bruneau Date: Thu, 15 Oct 2020 14:46:44 -0400 Subject: [PATCH] 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 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. -- 2.39.5