summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lang/elisp/interface.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lang/elisp/interface.scm b/lang/elisp/interface.scm
index fcd748f65..31864cc8e 100644
--- a/lang/elisp/interface.scm
+++ b/lang/elisp/interface.scm
@@ -20,7 +20,10 @@
(define (eval-elisp x)
"Evaluate the Elisp expression @var{x}."
- (eval x the-elisp-module))
+ (save-module-excursion
+ (lambda ()
+ (set-current-module the-elisp-module)
+ (primitive-eval x))))
(define (translate-elisp x)
"Translate the Elisp expression @var{x} to equivalent Scheme code."