diff options
| author | Vibhav Pant | 2017-01-30 19:22:09 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-01-30 19:22:09 +0530 |
| commit | f441451658ecb8d0d8ba386d9fd3eebf3b17d549 (patch) | |
| tree | 24729e6310593ba75156881b0bc71c6df194f224 | |
| parent | bf7f7c0d82a56ed1b76358657e74ca2833b19fe2 (diff) | |
| download | emacs-f441451658ecb8d0d8ba386d9fd3eebf3b17d549.tar.gz emacs-f441451658ecb8d0d8ba386d9fd3eebf3b17d549.zip | |
* lisp/emacs-lisp/bytecomp.el: Create jump tables with :purecopy t
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 1 |
1 files changed, 1 insertions, 0 deletions
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) ...))" | |||
| 4028 | jump-table test-obj body tag donetag default-tag default-case) | 4028 | jump-table test-obj body tag donetag default-tag default-case) |
| 4029 | (when (and cases (not (= (length cases) 1))) | 4029 | (when (and cases (not (= (length cases) 1))) |
| 4030 | (setq jump-table (make-hash-table :test test | 4030 | (setq jump-table (make-hash-table :test test |
| 4031 | :purecopy t | ||
| 4031 | :size (if (assq 'default cases) | 4032 | :size (if (assq 'default cases) |
| 4032 | (1- (length cases)) | 4033 | (1- (length cases)) |
| 4033 | (length cases))) | 4034 | (length cases))) |