From: Vibhav Pant <vibhavp@gmail.com>
Date: Thu, 26 Jan 2017 17:33:02 +0000 (+0530)
Subject: * lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring
X-Git-Tag: emacs-26.0.90~871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25d38a06eceb0853190a2d9acf53d85686f524bd;p=emacs.git

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

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)