diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-02-04 20:46:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-02-04 20:46:51 +0000 |
| commit | 02399da7a645b1aae59f863a43f82ee346a71797 (patch) | |
| tree | cb01ccab41dce1d5a3b1148a69c28ffa67388ded /lisp/skeleton.el | |
| parent | 0be908921600c52192a1cde8488e4279a4959c09 (diff) | |
| download | emacs-02399da7a645b1aae59f863a43f82ee346a71797.tar.gz | |
(skeleton-internal-1): Always push the mark for @.
Diffstat (limited to 'lisp/skeleton.el')
| -rw-r--r-- | lisp/skeleton.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/skeleton.el b/lisp/skeleton.el index 9274c3ca8c9..0733f065262 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -451,9 +451,8 @@ automatically, and you are prompted to fill in the variable parts."))) (or skeleton-modified (setq skeleton (cdr skeleton)))) ((eq element '@) - (if skeleton-point - (push (point) skeleton-positions) - (setq skeleton-point (point)))) + (push (point) skeleton-positions) + (unless skeleton-point (setq skeleton-point (point)))) ((eq 'quote (car-safe element)) (eval (nth 1 element))) ((or (stringp (car-safe element)) |