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

locals-and-roots
Björn Lindqvist 2016-03-28 00:17:01 +02:00
parent 1dd9a73ae8
commit 0bb00921d9
1 changed files with 3 additions and 3 deletions

View File

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