procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/tempo.el: Remove left over uses of the dynbind dialect

Browse source 
* lisp/tempo.el (tempo-define-template): Use a real closure.
(tempo-insert, tempo-build-collection): Use lexical scoping.
This commit is contained in:
Stefan Monnier 2023-09-08 19:22:16 -04:00
parent 80d0d0fe5e
commit 2e907f6df7
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/tempo.el
View file

@ -271,14 +271,13 @@ The elements in ELEMENTS can be of several types:
name)))
(command-name template-name))
(set template-name elements)
(fset command-name (list 'lambda (list '&optional 'arg)
(or documentation
(concat "Insert a " name "."))
(list 'interactive "*P")
(list 'tempo-insert-template (list 'quote
template-name)
(list 'if 'tempo-insert-region
(list 'not 'arg) 'arg))))
(fset command-name (lambda (&optional arg)
(:documentation
(or documentation (concat "Insert a " name ".")))
(interactive "*P")
(tempo-insert-template template-name
(if tempo-insert-region
(not arg) arg))))
(and tag
(tempo-add-tag tag template-name taglist))
command-name))
@ -386,7 +385,7 @@ possible."
(open-line 1)))
((null element))
(t (tempo-insert (or (tempo-is-user-element element)
(eval element))
(eval element t))
on-region))))
;;;
@ -632,7 +631,7 @@ If `tempo-dirty-collection' is nil, the old collection is reused."
; If the format for
; tempo-local-tags changes,
; change this
(eval (car tag-list)))
(eval (car tag-list) t))
tempo-local-tags))))
(setq tempo-dirty-collection nil)))