From: timor <timor.dd@googlemail.com>
Date: Tue, 11 Jun 2019 13:17:35 +0000 (+0200)
Subject: FUEL: make `fuel-refactor-inline-word` work with hyphenated words
X-Git-Tag: 0.99~3812
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=13b0da91827403c52a9cc11243407f95e528ef9b

FUEL: make `fuel-refactor-inline-word` work with hyphenated words

The emacs command `kill-word`, used by `fuel-factor-inline-word` does not
delete the complete word if that contains hyphens.  Using `kill-sexps` instead
exhibits correct behavior.
---

diff --git a/misc/fuel/fuel-refactor.el b/misc/fuel/fuel-refactor.el
index 441160636c..b0522af647 100644
--- a/misc/fuel/fuel-refactor.el
+++ b/misc/fuel/fuel-refactor.el
@@ -195,7 +195,7 @@ The word's body is put in a new method for the generic."
     (let ((code (fuel-refactor--word-def word)))
       (unless code (error "Word's definition not found"))
       (factor-beginning-of-symbol)
-      (kill-word 1)
+      (kill-sexp 1)
       (let ((start (point)))
         (insert code)
         (save-excursion (font-lock-fontify-region start (point)))