From 6a7de816fc783768b7f87e31408178c0317f06fa Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Thu, 8 Jan 2009 02:08:57 +0100 Subject: [PATCH] FUEL: Better region boundary adjustment in extract-word. --- misc/fuel/fuel-refactor.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/misc/fuel/fuel-refactor.el b/misc/fuel/fuel-refactor.el index 68713e1e4e..547da19552 100644 --- a/misc/fuel/fuel-refactor.el +++ b/misc/fuel/fuel-refactor.el @@ -25,9 +25,14 @@ (interactive "r") (let* ((word (read-string "New word name: ")) (begin (save-excursion - (goto-char begin) (fuel-syntax--beginning-of-symbol-pos))) + (goto-char begin) + (when (zerop (skip-syntax-backward "w")) + (skip-syntax-forward "-")) + (point))) (end (save-excursion - (goto-char end) (fuel-syntax--end-of-symbol-pos))) + (goto-char end) + (skip-syntax-forward "w") + (point))) (code (buffer-substring begin end)) (code-str (fuel--region-to-string begin end)) (stack-effect (or (fuel-stack--infer-effect code-str)