diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2007-12-13 22:15:16 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2007-12-13 22:15:16 +0000 |
commit | db414967948b2a7c7f08933af9d4de19f3c2f7bb (patch) | |
tree | c85655b59aab19ad028cf7a3ad6bc911498e823c /lib/holes.el | |
parent | 2033f94996af8bae44346ce8257446802029daa4 (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.el | 7 |
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 " |