aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/holes.el
diff options
context:
space:
mode:
authorGravatar Pierre Courtieu <courtieu@lri.fr>2009-01-14 12:39:11 +0000
committerGravatar Pierre Courtieu <courtieu@lri.fr>2009-01-14 12:39:11 +0000
commit91f51adb9c336cc9255152063fbc5d2baf00e1c5 (patch)
tree76cb367fb1f96599f69fc683a39f12a47390a38f /lib/holes.el
parent1501cbe4cc942b73ca50c1c2d809c6a4ec3fa8ef (diff)
Made indentation optional when replaing # by holes.
Diffstat (limited to 'lib/holes.el')
-rw-r--r--lib/holes.el5
1 files changed, 2 insertions, 3 deletions
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.