aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2018-03-10 18:30:54 -0800
committerPaul Eggert2018-03-10 18:30:54 -0800
commita3f26048a9b115e8dabffaa768128eaccd07dfd3 (patch)
tree1a2be0f6fbceab35f2b14f91683cff5bacdf1134 /lisp
parentab04a0941b67a76575b99d89ba7ba3db1169b901 (diff)
parent5c91ca8f30098cb2593ca375daa82d25aef03ad7 (diff)
downloademacs-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.el16
-rw-r--r--lisp/org/org-table.el2
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.
774Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared 774Each clause looks like (KEYLIST BODY...). EXPR is evaluated and
775against each key in each KEYLIST; the corresponding BODY is evaluated. 775compared against each key in each KEYLIST; the corresponding BODY
776If no clause succeeds, cl-case returns nil. A single atom may be used in 776is evaluated. If no clause succeeds, cl-case returns nil. A
777place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is 777single non-nil atom may be used in place of a KEYLIST of one
778allowed only in the final clause, and matches if no other keys match. 778atom. A KEYLIST of t or `otherwise' is allowed only in the final
779Key values are compared by `eql'. 779clause, and matches if no other keys match. Key values are
780\n(fn EXPR (KEYLIST BODY...)...)" 780compared 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.