branch: scratch/yasnippet
commit a0bbbc6eb598db7b59e6ac77b8cbb0625017658c
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* yasnippet.el: Use `lexical-binding`
---
yasnippet.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/yasnippet.el b/yasnippet.el
index 78ef38ac39..f49563aaca 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -1,6 +1,6 @@
-;;; yasnippet.el --- Yet another snippet extension for Emacs
+;;; yasnippet.el --- Yet another snippet extension for Emacs -*-
lexical-binding: t; -*-
-;; Copyright (C) 2008-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2023 Free Software Foundation, Inc.
;; Authors: pluskid <plus...@gmail.com>,
;; João Távora <joaotav...@gmail.com>,
;; Noam Postavsky <npost...@gmail.com>
@@ -1344,7 +1344,7 @@ string and TEMPLATE is a `yas--template' structure."
(save-excursion
(save-restriction
(save-match-data
- (eval condition))))
+ (eval condition t))))
(error (progn
(yas--message 1 "Error in condition evaluation: %s"
(error-message-string err))
nil))))
@@ -1502,7 +1502,7 @@ Also tries to work around Emacs Bug#30931."
(save-excursion
(yas--save-restriction-and-widen
(save-match-data
- (let ((result (eval form)))
+ (let ((result (eval form t)))
(when result
(format "%s" result))))))
((debug error) (error-message-string oops)))))
@@ -3208,7 +3208,7 @@ expression that evaluates to its value."
`(let ((,envvar ,env))
(cl-progv
(mapcar #'car ,envvar)
- (mapcar (lambda (v-f) (eval (cadr v-f))) ,envvar)
+ (mapcar (lambda (v-f) (eval (cadr v-f) t)) ,envvar)
,@body))))
(defun yas--snippet-map-markers (fun snippet)
