procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring

Browse source
This commit is contained in:
Vibhav Pant 2017-01-26 23:03:02 +05:30
parent a7e4870f16
commit 25d38a06ec
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3983,6 +3983,13 @@ that suppresses all warnings during execution of BODY."
(and (symbolp obj2) (byte-compile-cond-valid-obj2-p obj1) (cons obj2 obj1))))
(defun byte-compile-cond-jump-table-info (clauses)
"If CLAUSES is a `cond' form where:
The condition for each clause is of the form (TEST VAR VALUE).
VAR is a variable.
TEST and VAR are the same throughtout all conditions.
VALUE is either a constant or a quoted form.
Return a list of the form ((TEST . VAR) ((VALUE BODY) ...))"
(let ((cases '())
(ok t)
prev-var prev-test)