diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-02-06 19:33:01 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-02-06 19:33:01 +0530 |
| commit | c4316a266185c4adbb8d15a04b9552882b3c34a8 (patch) | |
| tree | ed7b41fa927979d81632c5fd051866def8f91b58 /lisp/emacs-lisp | |
| parent | a12b416bca705c555ba049b18598533d3ae41ef2 (diff) | |
| download | emacs-c4316a266185c4adbb8d15a04b9552882b3c34a8.tar.gz emacs-c4316a266185c4adbb8d15a04b9552882b3c34a8.tar.bz2 emacs-c4316a266185c4adbb8d15a04b9552882b3c34a8.zip | |
; bytecomp.el (byte-compile-cond-jump-table): Add TODO note
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index c70e1bf5ed8..d5a163e5fdd 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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) |