procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quote a few backticks in docstrings.

Browse source 
* lisp/emacs-lisp/macroexp.el (macroexp-progn, macroexp-let*)
(macroexp-if): Quote backtick in docstrings.
This commit is contained in:
Philipp Stephani 2018-04-01 23:33:16 +02:00
parent b87bd584a2
commit 52501ec3f1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/macroexp.el
View file

@ -318,7 +318,7 @@ definitions to shadow the loaded ones for use in file byte-compilation."
(cons (nreverse decls) body))) (cons (nreverse decls) body)))
(defun macroexp-progn (exps) (defun macroexp-progn (exps)
"Return an expression equivalent to `(progn ,@EXPS)." "Return an expression equivalent to \\=`(progn ,@EXPS)."
(if (cdr exps) `(progn ,@exps) (car exps))) (if (cdr exps) `(progn ,@exps) (car exps)))
(defun macroexp-unprogn (exp) (defun macroexp-unprogn (exp)
@ -327,14 +327,14 @@ Never returns an empty list."
(if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp))) (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp)))
(defun macroexp-let* (bindings exp) (defun macroexp-let* (bindings exp)
"Return an expression equivalent to `(let* ,bindings ,exp)." "Return an expression equivalent to \\=`(let* ,bindings ,exp)."
(cond (cond
((null bindings) exp) ((null bindings) exp)
((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp))) ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))
(t `(let* ,bindings ,exp)))) (t `(let* ,bindings ,exp))))
(defun macroexp-if (test then else) (defun macroexp-if (test then else)
"Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)." "Return an expression equivalent to \\=`(if ,TEST ,THEN ,ELSE)."
(cond (cond
((eq (car-safe else) 'if) ((eq (car-safe else) 'if)
(cond (cond