FUEL: Adjust region to word boundaries if needed in fuel-refactor-extract-word.

db4
Jose A. Ortega Ruiz 2009-01-08 02:00:04 +01:00
parent c30c9f0c03
commit 75b0f1e058
1 changed files with 4 additions and 0 deletions

View File

@ -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)