[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8fc6810: * lisp/cedet/srecode/compile.el: Fix last change
From: |
Stefan Monnier |
Subject: |
master 8fc6810: * lisp/cedet/srecode/compile.el: Fix last change |
Date: |
Sat, 6 Mar 2021 13:32:19 -0500 (EST) |
branch: master
commit 8fc6810eb640ffe7af1885166814689f5b28a65e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/cedet/srecode/compile.el: Fix last change
(srecode-compile-inserter): Call `make-instance` properly.
---
lisp/cedet/srecode/compile.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index 22cacab..36df1da 100644
--- a/lisp/cedet/srecode/compile.el
+++ b/lisp/cedet/srecode/compile.el
@@ -499,7 +499,7 @@ PROPS are additional properties that might need to be passed
to the inserter constructor."
;;(message "Compile: %s %S" name props)
(if (not key)
- (make-instance 'srecode-template-inserter-variable name props)
+ (apply #'make-instance 'srecode-template-inserter-variable name props)
(let ((classes (eieio-class-children 'srecode-template-inserter))
(new nil))
;; Loop over the various subclasses and
@@ -510,7 +510,7 @@ to the inserter constructor."
(when (and (not (class-abstract-p (car classes)))
(equal (oref-default (car classes) key) key))
;; Create the new class, and apply state.
- (setq new (apply (car classes) name props))
+ (setq new (apply #'make-instance (car classes) name props))
(srecode-inserter-apply-state new STATE)
)
(setq classes (cdr classes)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8fc6810: * lisp/cedet/srecode/compile.el: Fix last change,
Stefan Monnier <=