branch: externals/compat
commit c37e1d1ac88d3078c9f9fb36b005686f0d4aadb7
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Fix quoting in compat-macs' legacy advice installation
---
compat-macs.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index a554b70..0907bd2 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -159,12 +159,12 @@ attributes (see `compat-generate-common')."
;; FIXME consider using advice.el and `ad-add-advice'.
(let ((oldfun (make-symbol (format "compat--oldfun-%S" realname))))
`(progn
- (defvar ,oldfun (indirect-function ,name))
+ (defvar ,oldfun (indirect-function ',name))
(put ',name 'compat-advice-fn #',realname)
(defadvice ,name (around
,(intern (format "ad--%S" realname))
(&rest args) activate)
- (apply #',realname (cons oldfun args)))))))))
+ (apply #',realname (cons ,oldfun args)))))))))
(lambda ()
(cond
((memq type '(func macro))
