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

FUEL: Fix for word extraction in top level forms.

db4
Jose A. Ortega Ruiz 2009-01-10 01:05:51 +01:00
parent b149a01248
commit 5c18951bf5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
misc/fuel/fuel-refactor.el
View File

@ -32,7 +32,13 @@
(insert word) (insert word)
(indent-region begin (point)) (indent-region begin (point))
(set-mark (point)) (set-mark (point))
(fuel-syntax--beginning-of-defun) (let ((beg (save-excursion (fuel-syntax--beginning-of-defun) (point)))
(end (save-excursion
(re-search-backward fuel-syntax--end-of-def-regex nil t)
(forward-line 1)
(skip-syntax-forward "-")
(point))))
(goto-char (max beg end)))
(open-line 1) (open-line 1)
(let ((start (point))) (let ((start (point)))
(insert ": " word " " stack-effect "\n" code " ;\n") (insert ": " word " " stack-effect "\n" code " ;\n")