From 28f83230ba3517ff0a9da37aa7dbf3557b641663 Mon Sep 17 00:00:00 2001 From: Robin Green Date: Mon, 30 Mar 2015 01:14:46 +0100 Subject: [PATCH] Continue comment (e.g. haddock) when indenting --- elisp/shm-indent.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/elisp/shm-indent.el b/elisp/shm-indent.el index 831169e..17f9d51 100644 --- a/elisp/shm-indent.el +++ b/elisp/shm-indent.el @@ -147,11 +147,21 @@ hai = do foo bar ((or (= (line-beginning-position) (line-end-position)) (not (shm-current-node))) - (if (= (line-beginning-position) - (line-end-position)) - (newline) + (cond + ((= (line-beginning-position) + (line-end-position)) + (newline)) + ((save-excursion + (move-beginning-of-line nil) + (looking-at "--")) (progn (newline) - (shm/simple-indent)))) + (shm/simple-indent) + (save-excursion + (move-beginning-of-line nil) + (insert "--") + (delete-char 2)))) + (t (progn (newline) + (shm/simple-indent))))) ((and (shm-in-string) (not (= (shm-node-start (shm-current-node)) (point))))