[elpa] externals/compat c37e1d1 80/99: Fix quoting in compat-macs' legacy advice installation

[ELPA Syncer]

branch: externals/compat
commit c37e1d1ac88d3078c9f9fb36b005686f0d4aadb7
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@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))