aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhilipp Stephani2018-04-01 23:33:16 +0200
committerPhilipp Stephani2018-04-01 23:33:16 +0200
commit52501ec3f1e29d262844f69710a18e91f01f2326 (patch)
tree960b31f6f0ad2ea2b7e68abff16e54cd6b95ddc5
parentb87bd584a2dd0617ce5278db31d98339d1119d8e (diff)
downloademacs-52501ec3f1e29d262844f69710a18e91f01f2326.tar.gz
emacs-52501ec3f1e29d262844f69710a18e91f01f2326.zip
Quote a few backticks in docstrings.
* lisp/emacs-lisp/macroexp.el (macroexp-progn, macroexp-let*) (macroexp-if): Quote backtick in docstrings.
-rw-r--r--lisp/emacs-lisp/macroexp.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index b2ac8be53cc..93678bad7a6 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -318,7 +318,7 @@ definitions to shadow the loaded ones for use in file byte-compilation."
318 (cons (nreverse decls) body))) 318 (cons (nreverse decls) body)))
319 319
320(defun macroexp-progn (exps) 320(defun macroexp-progn (exps)
321 "Return an expression equivalent to `(progn ,@EXPS)." 321 "Return an expression equivalent to \\=`(progn ,@EXPS)."
322 (if (cdr exps) `(progn ,@exps) (car exps))) 322 (if (cdr exps) `(progn ,@exps) (car exps)))
323 323
324(defun macroexp-unprogn (exp) 324(defun macroexp-unprogn (exp)
@@ -327,14 +327,14 @@ Never returns an empty list."
327 (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp))) 327 (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp)))
328 328
329(defun macroexp-let* (bindings exp) 329(defun macroexp-let* (bindings exp)
330 "Return an expression equivalent to `(let* ,bindings ,exp)." 330 "Return an expression equivalent to \\=`(let* ,bindings ,exp)."
331 (cond 331 (cond
332 ((null bindings) exp) 332 ((null bindings) exp)
333 ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp))) 333 ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))
334 (t `(let* ,bindings ,exp)))) 334 (t `(let* ,bindings ,exp))))
335 335
336(defun macroexp-if (test then else) 336(defun macroexp-if (test then else)
337 "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)." 337 "Return an expression equivalent to \\=`(if ,TEST ,THEN ,ELSE)."
338 (cond 338 (cond
339 ((eq (car-safe else) 'if) 339 ((eq (car-safe else) 'if)
340 (cond 340 (cond