diff options
| author | Kira Bruneau <kira.bruneau@gmail.com> | 2020-10-15 14:46:44 -0400 |
|---|---|---|
| committer | Jeff Walsh <jeff.walsh@drtusers-MacBook-Pro.local> | 2020-11-24 12:24:40 +1100 |
| commit | 7b6fea821ad040f7e8358b2afd9c0eaead967c2c (patch) | |
| tree | 5f996e44a187f9a1bd9ca8c8eae86a004c106070 /lisp/term/pgtk-win.el | |
| parent | 4dbea5be1758788d9f6177ca3f7eaedc9e01ad56 (diff) | |
| download | emacs-7b6fea821ad040f7e8358b2afd9c0eaead967c2c.tar.gz | |
Avoid mutating invocation-name (tiny change)
* lisp/term/pgtk-win.el (window-system-initialization): copy invocation-name.
Diffstat (limited to 'lisp/term/pgtk-win.el')
| -rw-r--r-- | lisp/term/pgtk-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
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. |