wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

update multi-lining testing functions

Browse Source
This commit is contained in:
Ivan Malison 2015-11-21 19:46:01 -08:00
parent 087604c693
commit bab589076e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dotfiles/emacs.d/load.d/multi-line-test.el
View File

@ -10,11 +10,16 @@
(defun test-multi-line-get-markers () (defun test-multi-line-get-markers ()
(interactive) (interactive)
(message "%d" (length (multi-line-get-markers (let ((markers (multi-line-get-markers
(make-instance multi-line-forward-sexp-enter-strategy) (multi-line-get-enter-strategy multi-line-config)
(make-instance multi-line-forward-sexp-find-strategy))))) (multi-line-get-find-strategy multi-line-config))))
(message "%d" markers)))
(defclass bars-at-markers () nil) (defclass bars-at-markers () nil)
(defmethod multi-line-respace ((respacer bars-at-markers) index markers) (defmethod multi-line-respace ((respacer bars-at-markers) index markers)
(insert "|")) (insert "|"))
(defun multiline-test-bars()
(interactive)
(multi-line-adjust-whitespace (make-instance bars-at-markers)))