ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 05:03:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

* yasnippet.el: Use lexical-binding

Browse Source
This commit is contained in:
Stefan Monnier 2023-06-28 10:39:54 -04:00
parent b09ab98419
commit 97002af846
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yasnippet.el
View File

@ -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 <pluskid@gmail.com>, ;; Authors: pluskid <pluskid@gmail.com>,
;; João Távora <joaotavora@gmail.com>, ;; João Távora <joaotavora@gmail.com>,
;; Noam Postavsky <npostavs@gmail.com> ;; Noam Postavsky <npostavs@gmail.com>
@ -1344,7 +1344,7 @@ string and TEMPLATE is a `yas--template' structure."
(save-excursion (save-excursion
(save-restriction (save-restriction
(save-match-data (save-match-data
(eval condition)))) (eval condition t))))
(error (progn (error (progn
(yas--message 1 "Error in condition evaluation: %s" (error-message-string err)) (yas--message 1 "Error in condition evaluation: %s" (error-message-string err))
nil)))) nil))))
@ -1502,7 +1502,7 @@ Also tries to work around Emacs Bug#30931."
(save-excursion (save-excursion
(yas--save-restriction-and-widen (yas--save-restriction-and-widen
(save-match-data (save-match-data
(let ((result (eval form))) (let ((result (eval form t)))
(when result (when result
(format "%s" result)))))) (format "%s" result))))))
((debug error) (error-message-string oops))))) ((debug error) (error-message-string oops)))))
@ -3208,7 +3208,7 @@ expression that evaluates to its value."
`(let ((,envvar ,env)) `(let ((,envvar ,env))
(cl-progv (cl-progv
(mapcar #'car ,envvar) (mapcar #'car ,envvar)
(mapcar (lambda (v-f) (eval (cadr v-f))) ,envvar) (mapcar (lambda (v-f) (eval (cadr v-f) t)) ,envvar)
,@body)))) ,@body))))
(defun yas--snippet-map-markers (fun snippet) (defun yas--snippet-map-markers (fun snippet)