From 73dc586be1cc3fae122ac129a3bf20a9b71871cc Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Thu, 8 Jan 2009 01:50:35 +0100
Subject: [PATCH] FUEL: Highlight new word during fuel-refactor-extract-word.

---
 misc/fuel/fuel-refactor.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/misc/fuel/fuel-refactor.el b/misc/fuel/fuel-refactor.el
index 4bf84ad8ec..04313e4fdc 100644
--- a/misc/fuel/fuel-refactor.el
+++ b/misc/fuel/fuel-refactor.el
@@ -37,8 +37,11 @@
     (open-line 1)
     (let ((start (point)))
       (insert ": " word " " stack-effect "\n" code " ;\n")
-      (indent-region start (point)))
-    (goto-char (mark))))
+      (indent-region start (point))
+      (move-overlay fuel-stack--overlay start (point))
+      (goto-char (mark))
+      (sit-for fuel-stack-highlight-period)
+      (delete-overlay fuel-stack--overlay))))
 
 
 (provide 'fuel-refactor)