From: Vibhav Pant <vibhavp@gmail.com>
Date: Mon, 30 Jan 2017 13:52:09 +0000 (+0530)
Subject: * lisp/emacs-lisp/bytecomp.el: Create jump tables with :purecopy t
X-Git-Tag: emacs-26.0.90~869
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f441451658ecb8d0d8ba386d9fd3eebf3b17d549;p=emacs.git

* lisp/emacs-lisp/bytecomp.el: Create jump tables with :purecopy t
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index eb297288c63..53622a47d7a 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)))