diff options
| author | Philipp Stephani | 2018-04-01 23:33:16 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2018-04-01 23:33:16 +0200 |
| commit | 52501ec3f1e29d262844f69710a18e91f01f2326 (patch) | |
| tree | 960b31f6f0ad2ea2b7e68abff16e54cd6b95ddc5 | |
| parent | b87bd584a2dd0617ce5278db31d98339d1119d8e (diff) | |
| download | emacs-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.el | 6 |
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 |