[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch 25d38a0: * lisp/emacs-lisp/bytecomp.el
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch 25d38a0: * lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring |
Date: |
Thu, 26 Jan 2017 17:36:01 +0000 (UTC) |
branch: feature/byte-switch
commit 25d38a06eceb0853190a2d9acf53d85686f524bd
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
* lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring
---
lisp/emacs-lisp/bytecomp.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index b955e99..eb29728 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/byte-switch 25d38a0: * lisp/emacs-lisp/bytecomp.el:(bc-cond-jump-table-info)add docstring,
Vibhav Pant <=