steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: factor-find-in returns correct vocab when point is on the IN:-line

db4
Björn Lindqvist 2014-04-18 03:06:34 +02:00 committed by John Benediktsson
parent bf060849c9
commit 693ca82648
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
misc/fuel/factor-mode.el
View File

@ -673,8 +673,11 @@ source/docs/tests file. When set to false, you'll be asked only once."
(defun factor-find-in ()
(save-excursion
(when (re-search-backward factor-current-vocab-regex nil t)
(match-string-no-properties 1))))
(beginning-of-line)
(if (re-search-backward factor-current-vocab-regex nil t)
(match-string-no-properties 1)
(when (re-search-forward factor-current-vocab-regex nil t)
(match-string-no-properties 1)))))
(defun factor-in-private? ()
"t if point is withing a PRIVATE-block, nil otherwise."