mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 23:10:28 -08:00
Code Issues Projects Releases Wiki Activity

; bytecomp.el (byte-compile-cond-jump-table): Add TODO note

Browse source
This commit is contained in:
Vibhav Pant 2017-02-06 19:33:01 +05:30
parent a12b416bca
commit c4316a2661
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View file

@ -4057,6 +4057,8 @@ Return a list of the form ((TEST . VAR) ((VALUE BODY) ...))"
(cases (cadr table-info))
jump-table test-obj body tag donetag default-tag default-case)
(when (and cases (not (= (length cases) 1)))
;; TODO: Once :linear-search is implemented for `make-hash-table'
;; set it to `t' for cond forms with a small number of cases.
(setq jump-table (make-hash-table :test test
:purecopy t
:size (if (assq 'default cases)