diff options
| author | Paul Eggert | 2018-03-10 18:30:54 -0800 |
|---|---|---|
| committer | Paul Eggert | 2018-03-10 18:30:54 -0800 |
| commit | a3f26048a9b115e8dabffaa768128eaccd07dfd3 (patch) | |
| tree | 1a2be0f6fbceab35f2b14f91683cff5bacdf1134 /lisp | |
| parent | ab04a0941b67a76575b99d89ba7ba3db1169b901 (diff) | |
| parent | 5c91ca8f30098cb2593ca375daa82d25aef03ad7 (diff) | |
| download | emacs-a3f26048a9b115e8dabffaa768128eaccd07dfd3.tar.gz emacs-a3f26048a9b115e8dabffaa768128eaccd07dfd3.zip | |
Merge from origin/emacs-26
5c91ca8 Fix create_process bug breaking eudc-expand-inline
e244fed Clarify that nil doesn't match itself as a cl-case clause (Bu...
df0e7e2 Improve SVG documentation
a34ef52 Document the "URL" keyword in library headers
fbc7f9a * test/lisp/international/mule-tests.el: Avoid local variable...
16faff6 ; * lisp/org/org-table.el: Replace obsolete alias in comment.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 16 | ||||
| -rw-r--r-- | lisp/org/org-table.el | 2 |
2 files changed, 10 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4d4640cbe0d..9600230c076 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -771,13 +771,15 @@ The result of the body appears to the compiler as a quoted constant." | |||
| 771 | ;;;###autoload | 771 | ;;;###autoload |
| 772 | (defmacro cl-case (expr &rest clauses) | 772 | (defmacro cl-case (expr &rest clauses) |
| 773 | "Eval EXPR and choose among clauses on that value. | 773 | "Eval EXPR and choose among clauses on that value. |
| 774 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared | 774 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and |
| 775 | against each key in each KEYLIST; the corresponding BODY is evaluated. | 775 | compared against each key in each KEYLIST; the corresponding BODY |
| 776 | If no clause succeeds, cl-case returns nil. A single atom may be used in | 776 | is evaluated. If no clause succeeds, cl-case returns nil. A |
| 777 | place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is | 777 | single non-nil atom may be used in place of a KEYLIST of one |
| 778 | allowed only in the final clause, and matches if no other keys match. | 778 | atom. A KEYLIST of t or `otherwise' is allowed only in the final |
| 779 | Key values are compared by `eql'. | 779 | clause, and matches if no other keys match. Key values are |
| 780 | \n(fn EXPR (KEYLIST BODY...)...)" | 780 | compared by `eql'. |
| 781 | |||
| 782 | \(fn EXPR (KEYLIST BODY...)...)" | ||
| 781 | (declare (indent 1) (debug (form &rest (sexp body)))) | 783 | (declare (indent 1) (debug (form &rest (sexp body)))) |
| 782 | (macroexp-let2 macroexp-copyable-p temp expr | 784 | (macroexp-let2 macroexp-copyable-p temp expr |
| 783 | (let* ((head-list nil)) | 785 | (let* ((head-list nil)) |
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 3932671e8b7..4bb5c91ce87 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el | |||
| @@ -5428,7 +5428,7 @@ which will prompt for the width." | |||
| 5428 | ;; - orgtbl-uc-draw-cont (smooth unicode) | 5428 | ;; - orgtbl-uc-draw-cont (smooth unicode) |
| 5429 | 5429 | ||
| 5430 | ;; This is best viewed with the "DejaVu Sans Mono" font | 5430 | ;; This is best viewed with the "DejaVu Sans Mono" font |
| 5431 | ;; (use M-x set-default-font). | 5431 | ;; (use M-x set-frame-font). |
| 5432 | 5432 | ||
| 5433 | (defun orgtbl-uc-draw-grid (value min max &optional width) | 5433 | (defun orgtbl-uc-draw-grid (value min max &optional width) |
| 5434 | "Draw a bar in a table using block unicode characters. | 5434 | "Draw a bar in a table using block unicode characters. |