From 120c9d646ee095c0b06b0cd2d2d8f791ad4c24f4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sun, 13 Mar 2016 08:36:31 +0100 Subject: [PATCH] FUEL: fix factor-symbol-at-point so it counts " as a symbol character --- misc/fuel/factor-mode.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el index db311328a1..cf68ea6e3d 100644 --- a/misc/fuel/factor-mode.el +++ b/misc/fuel/factor-mode.el @@ -166,19 +166,18 @@ these lines in your .emacs: (defun factor-beginning-of-symbol () "Move point to the beginning of the current symbol." - (skip-syntax-backward "w_()")) + (skip-syntax-backward "w_()\"")) (defun factor-end-of-symbol () "Move point to the end of the current symbol." - (skip-syntax-forward "w_()")) + (skip-syntax-forward "w_()\"")) -(put 'factor-symbol 'end-op 'factor-end-of-symbol) -(put 'factor-symbol 'beginning-op 'factor-beginning-of-symbol) +(put 'symbol 'end-op 'factor-end-of-symbol) +(put 'symbol 'beginning-op 'factor-beginning-of-symbol) -(defsubst factor-symbol-at-point () - (let* ((thing (thing-at-point 'factor-symbol)) - (s (when thing (substring-no-properties thing)))) - (and (> (length s) 0) s))) +(defun factor-symbol-at-point () + (let ((thing (thing-at-point 'symbol t))) + (and (> (length thing) 0) thing))) ;;; Regexps galore: