From 688f5a386f0ad907d36adea86f9a8ae45b907db3 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Fri, 12 Nov 2010 19:17:48 -0500 Subject: [PATCH] New spec head "control". --- elinstall.el | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/elinstall.el b/elinstall.el index 4798c69..2eca283 100644 --- a/elinstall.el +++ b/elinstall.el @@ -1030,10 +1030,23 @@ Recurse just if RECURSE-DIRS-P" (elinstall-actions-for-source-file (second spec) dir)) - ;;$$ADD ME control, rather than trying to bind all control - ;;variables so we can safely bind one, will use set and - ;;unwind-protect. - + ;;Rather than trying to bind all control variables each time + ;;thru, we use set and unwind-protect. + (control + ;;control TYPE DISPOSITION SPEC + (let + ((key (second spec)) + old-value) + (when (symbolp key) + (unwind-protect + (progn + (set old-value (symbol-value key)) + (set key (third spec)) + (elinstall-find-actions-by-spec-x + (second spec) + dir)) + (set key old-value))))) + (dir ;;dir FN (elinstall-actions-for-dir -- 2.11.4.GIT