mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Philipp Stephani 2017-12-09 22:03:31 +01:00
parent 8b8197235f
commit ac6ea59830
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/advice.el
View file

@ -1514,7 +1514,7 @@
;; `ad-return-value' in a piece of after advice. For example: ;; `ad-return-value' in a piece of after advice. For example:
;; ;;
;; (defmacro foom (x) ;; (defmacro foom (x)
;; (` (list (, x)))) ;; `(list ,x))
;; foom ;; foom
;; ;;
;; (foom '(a)) ;; (foom '(a))
@ -1547,8 +1547,8 @@
;; (defadvice foom (after fg-print-x act) ;; (defadvice foom (after fg-print-x act)
;; "Print the value of X." ;; "Print the value of X."
;; (setq ad-return-value ;; (setq ad-return-value
;; (` (progn (print (, x)) ;; `(progn (print ,x)
;; (, ad-return-value))))) ;; ,ad-return-value)))
;; foom ;; foom
;; ;;
;; (macroexpand '(foom '(a))) ;; (macroexpand '(foom '(a)))