From 75b0f1e058bb0d6d8064cf7df837151fc4a3f0af Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Thu, 8 Jan 2009 02:00:04 +0100 Subject: [PATCH] FUEL: Adjust region to word boundaries if needed in fuel-refactor-extract-word. --- misc/fuel/fuel-refactor.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/misc/fuel/fuel-refactor.el b/misc/fuel/fuel-refactor.el index 04313e4fdc..68713e1e4e 100644 --- a/misc/fuel/fuel-refactor.el +++ b/misc/fuel/fuel-refactor.el @@ -24,6 +24,10 @@ "Extracts current region as a separate word." (interactive "r") (let* ((word (read-string "New word name: ")) + (begin (save-excursion + (goto-char begin) (fuel-syntax--beginning-of-symbol-pos))) + (end (save-excursion + (goto-char end) (fuel-syntax--end-of-symbol-pos))) (code (buffer-substring begin end)) (code-str (fuel--region-to-string begin end)) (stack-effect (or (fuel-stack--infer-effect code-str)