From f441451658ecb8d0d8ba386d9fd3eebf3b17d549 Mon Sep 17 00:00:00 2001 From: Vibhav Pant Date: Mon, 30 Jan 2017 19:22:09 +0530 Subject: [PATCH] * 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 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))) -- 2.39.5