aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/holes.el
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2007-12-13 22:15:16 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2007-12-13 22:15:16 +0000
commitdb414967948b2a7c7f08933af9d4de19f3c2f7bb (patch)
treec85655b59aab19ad028cf7a3ad6bc911498e823c /lib/holes.el
parent2033f94996af8bae44346ce8257446802029daa4 (diff)
holes-skeleton-end-hook: no action if mmm-inside-insert-by-key bound
Diffstat (limited to 'lib/holes.el')
-rw-r--r--lib/holes.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/holes.el b/lib/holes.el
index 529637bd..b00c2a73 100644
--- a/lib/holes.el
+++ b/lib/holes.el
@@ -811,9 +811,10 @@ created. Return the number of holes created."
"Default hook after a skeleton insertion: put holes at each interesting position."
;; Not all versions of skeleton provide `skeleton-positions' and the
;; corresponding @ operation :-(
- (when (boundp 'skeleton-positions)
- (dolist (pos skeleton-positions)
- (holes-set-make-active-hole pos pos)))) ; put a hole here
+ (unless (boundp 'mmm-inside-insert-by-key)
+ (when (boundp 'skeleton-positions)
+ (dolist (pos skeleton-positions) ;; put holes here
+ (holes-set-make-active-hole pos pos)))))
(defconst holes-jump-doc
(concat "Hit \\[holes-set-point-next-hole-destroy] to jump "