multi-line-test.el

This commit is contained in:
Ivan Malison 2015-11-21 04:44:11 -08:00
parent fc1860c09c
commit cc483ad8bd

View File

@ -0,0 +1,15 @@
(defun test-multi-line-enter ()
(interactive)
(multi-line-enter
(make-instance multi-line-forward-sexp-enter-strategy)))
(defun test-multi-line-find-next ()
(interactive)
(message "%s" (multi-line-find-next
(make-instance multi-line-forward-sexp-find-strategy))))
(defun test-multi-line-get-markers ()
(interactive)
(message "%d" (length (multi-line-get-markers
(make-instance multi-line-forward-sexp-enter-strategy)
(make-instance multi-line-forward-sexp-find-strategy)))))