[Emacs-diffs] feature/byte-switch f441451: * lisp/emacs-lisp/bytecomp.el: Create jump tables with :purecopy t

[Vibhav Pant]

branch: feature/byte-switch
commit f441451658ecb8d0d8ba386d9fd3eebf3b17d549
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    * lisp/emacs-lisp/bytecomp.el: Create jump tables with :purecopy t
---
 lisp/emacs-lisp/bytecomp.el |    1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index eb29728..53622a4 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4028,6 +4028,7 @@ Return a list of the form ((TEST . VAR)  ((VALUE BODY) 
...))"
          jump-table test-obj body tag donetag default-tag default-case)
     (when (and cases (not (= (length cases) 1)))
       (setq jump-table (make-hash-table :test test
+                                        :purecopy t
                                         :size (if (assq 'default cases)
                                                   (1- (length cases))
                                                 (length cases)))