diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-01-26 23:03:02 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-01-26 23:03:02 +0530 |
| commit | 25d38a06eceb0853190a2d9acf53d85686f524bd (patch) | |
| tree | aef89095e6db7a11abb609a79f0f57bde463125b /lisp | |
| parent | a7e4870f165e9fd36d5cfcabb19b215b94373602 (diff) | |
| download | emacs-25d38a06eceb0853190a2d9acf53d85686f524bd.tar.gz emacs-25d38a06eceb0853190a2d9acf53d85686f524bd.tar.bz2 emacs-25d38a06eceb0853190a2d9acf53d85686f524bd.zip | |
* lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b955e9919de..eb297288c63 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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) |