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

FUEL: factor-previous-non-blank unused and adding doc

char-rename
Björn Lindqvist 2016-06-19 03:23:35 +02:00
parent f0836dd69d
commit de8d2fa302
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,10 +362,6 @@ these lines in your .emacs:
(format "^\\(%s:\\) " (regexp-opt (append factor-no-indent-def-starts (format "^\\(%s:\\) " (regexp-opt (append factor-no-indent-def-starts
factor-indent-def-starts)))) factor-indent-def-starts))))
(defconst factor-definition-end-regex
(format "\\(\\(^\\| +\\);\\( *%s\\)*\\($\\| +\\)\\)"
factor-declaration-words-regex))
(defconst factor-single-liner-regex (defconst factor-single-liner-regex
(regexp-opt '("ABOUT:" (regexp-opt '("ABOUT:"
"ALIAS:" "ALIAS:"
@ -390,6 +386,10 @@ these lines in your .emacs:
factor-definition-start-regex factor-definition-start-regex
factor-single-liner-regex)) factor-single-liner-regex))
(defconst factor-definition-end-regex
(format "\\(^\\| +\\);\\( *%s\\)*\\($\\| +\\)"
factor-declaration-words-regex))
(defconst factor-end-of-def-line-regex (defconst factor-end-of-def-line-regex
(format "^.*%s" factor-definition-end-regex)) (format "^.*%s" factor-definition-end-regex))
@ -591,9 +591,6 @@ these lines in your .emacs:
(defsubst factor-at-end-of-def () (defsubst factor-at-end-of-def ()
(looking-at factor-end-of-def-regex)) (looking-at factor-end-of-def-regex))
(defsubst factor-looking-at-emptiness ()
(looking-at "^[ ]*$\\|$"))
(defsubst factor-is-last-char (pos) (defsubst factor-is-last-char (pos)
(save-excursion (save-excursion
(goto-char (1+ pos)) (goto-char (1+ pos))
@ -605,11 +602,6 @@ these lines in your .emacs:
(beginning-of-line) (beginning-of-line)
(point)))) (point))))
(defun factor-previous-non-blank ()
(forward-line -1)
(while (and (not (bobp)) (factor-looking-at-emptiness))
(forward-line -1)))
(defsubst factor-beginning-of-defun (&optional times) (defsubst factor-beginning-of-defun (&optional times)
(re-search-backward factor-begin-of-def-regex nil t times)) (re-search-backward factor-begin-of-def-regex nil t times))
@ -760,9 +752,10 @@ these lines in your .emacs:
(when (factor-at-begin-of-def) 0))) (when (factor-at-begin-of-def) 0)))
(defsubst factor-previous-non-empty () (defsubst factor-previous-non-empty ()
"Move caret to the beginning of the last non-empty line."
(forward-line -1) (forward-line -1)
(while (and (not (bobp)) (while (and (not (bobp))
(factor-looking-at-emptiness)) (looking-at "^[ ]*$\\|$"))
(forward-line -1))) (forward-line -1)))
(defun factor-indent-setter-line () (defun factor-indent-setter-line ()