FUEL: shouldn't clobber the 'symbol variable for thing-at-point, fixes #1592

diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el
index cf68ea6e3d455bc4844c2f703e67036b9a541193..7d72e7656b229fb8bb6e13d4444fdf49633be2a7 100644 (file)
--- a/misc/fuel/factor-mode.el
+++ b/misc/fuel/factor-mode.el
@@ -172,11 +172,11 @@ these lines in your .emacs:
   "Move point to the end of the current symbol."
   (skip-syntax-forward "w_()\""))
 
-(put 'symbol 'end-op 'factor-end-of-symbol)
-(put 'symbol 'beginning-op 'factor-beginning-of-symbol)
+(put 'factor-symbol 'end-op 'factor-end-of-symbol)
+(put 'factor-symbol 'beginning-op 'factor-beginning-of-symbol)
 
 (defun factor-symbol-at-point ()
-  (let ((thing (thing-at-point 'symbol t)))
+  (let ((thing (thing-at-point 'factor-symbol t)))
     (and (> (length thing) 0) thing)))
 
 \f