Commit 627fa5a0 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/cedet/srecode/insert.el: Use lexical-binding

(srecode-insert-method): No need for lexical-let any more.
parent b95a5d19
Pipeline #1780 failed with stage
in 54 minutes and 16 seconds
;;; srecode/insert.el --- Insert srecode templates to an output stream.
;;; srecode/insert.el --- Insert srecode templates to an output stream -*- lexical-binding:t -*-
;; Copyright (C) 2005, 2007-2019 Free Software Foundation, Inc.
......@@ -26,9 +26,6 @@
;; Manage the insertion process for a template.
;;
(eval-when-compile
(require 'cl)) ;; for `lexical-let'
(require 'srecode/compile)
(require 'srecode/find)
(require 'srecode/dictionary)
......@@ -1049,21 +1046,20 @@ template where a ^ inserter occurs."
;; which implements the wrap insertion behavior in FUNCTION. The
;; maximum valid nesting depth is just the current depth + 1.
(let ((srecode-template-inserter-point-override
(lexical-let ((inserter1 sti))
(cons
;; DEPTH
(+ (length (oref-default 'srecode-template active)) 1)
;; FUNCTION
(lambda (dict)
(let ((srecode-template-inserter-point-override nil))
(if (srecode-dictionary-lookup-name
dict (oref inserter1 :object-name))
;; Insert our sectional part with looping.
(srecode-insert-method-helper
inserter1 dict 'template)
;; Insert our sectional part just once.
(srecode-insert-subtemplate
inserter1 dict 'template))))))))
(cons
;; DEPTH
(+ (length (oref-default 'srecode-template active)) 1)
;; FUNCTION
(lambda (dict)
(let ((srecode-template-inserter-point-override nil))
(if (srecode-dictionary-lookup-name
dict (oref sti :object-name))
;; Insert our sectional part with looping.
(srecode-insert-method-helper
sti dict 'template)
;; Insert our sectional part just once.
(srecode-insert-subtemplate
sti dict 'template)))))))
;; Do a regular insertion for an include, but with our override in
;; place.
(cl-call-next-method)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment