From bab589076e2bddbfb55962753c38e6e9f4afb02f Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 21 Nov 2015 19:46:01 -0800 Subject: [PATCH] update multi-lining testing functions --- dotfiles/emacs.d/load.d/multi-line-test.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/dotfiles/emacs.d/load.d/multi-line-test.el b/dotfiles/emacs.d/load.d/multi-line-test.el index 06fa5a3a..3232ff99 100644 --- a/dotfiles/emacs.d/load.d/multi-line-test.el +++ b/dotfiles/emacs.d/load.d/multi-line-test.el @@ -10,11 +10,16 @@ (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))))) + (let ((markers (multi-line-get-markers + (multi-line-get-enter-strategy multi-line-config) + (multi-line-get-find-strategy multi-line-config)))) + (message "%d" markers))) (defclass bars-at-markers () nil) (defmethod multi-line-respace ((respacer bars-at-markers) index markers) (insert "|")) + +(defun multiline-test-bars() + (interactive) + (multi-line-adjust-whitespace (make-instance bars-at-markers)))