From 91f51adb9c336cc9255152063fbc5d2baf00e1c5 Mon Sep 17 00:00:00 2001 From: Pierre Courtieu Date: Wed, 14 Jan 2009 12:39:11 +0000 Subject: Made indentation optional when replaing # by holes. --- lib/holes.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lib/holes.el') diff --git a/lib/holes.el b/lib/holes.el index 3f52f057..492502b0 100644 --- a/lib/holes.el +++ b/lib/holes.el @@ -798,10 +798,10 @@ created. Return the number of holes created." -(defun holes-replace-string-by-holes-backward-jump (pos) +(defun holes-replace-string-by-holes-backward-jump (pos &optional noindent) "Put holes between POS and point, backward, indenting. \"#\" and \"@{..}\" between this positions will become holes." - (save-excursion (indent-region pos (point) nil)) + (unless noindent (save-excursion (indent-region pos (point) nil))) (let ((n (holes-replace-string-by-holes-backward pos))) (case n (0 nil) ; no hole, stay here. @@ -814,7 +814,6 @@ created. Return the number of holes created." "\\[holes-set-point-next-hole-destroy] to jump to active hole. \\[holes-short-doc] to see holes doc.")))))) - ;;;###autoload (defun holes-abbrev-complete () "Complete abbrev by putting holes and indenting. -- cgit v1.2.3