From: Philipp Stephani <phst@google.com>
Date: Sat, 9 Dec 2017 21:03:31 +0000 (+0100)
Subject: * lisp/emacs-lisp/advice.el: Stop using old-style backquotes
X-Git-Tag: emacs-27.0.90~6060
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac6ea598302cd33014880a7a5f43d42a7e5d1f01;p=emacs.git

* lisp/emacs-lisp/advice.el: Stop using old-style backquotes
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 82867667756..d5da30fb18c 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -1514,7 +1514,7 @@
 ;; `ad-return-value' in a piece of after advice. For example:
 ;;
 ;; (defmacro foom (x)
-;;   (` (list (, x))))
+;;   `(list ,x))
 ;; foom
 ;;
 ;; (foom '(a))
@@ -1547,8 +1547,8 @@
 ;; (defadvice foom (after fg-print-x act)
 ;;   "Print the value of X."
 ;;   (setq ad-return-value
-;;         (` (progn (print (, x))
-;;                   (, ad-return-value)))))
+;;         `(progn (print ,x)
+;;                 ,ad-return-value)))
 ;; foom
 ;;
 ;; (macroexpand '(foom '(a)))