Mercurial > emacs
changeset 35877:6c557668632e
(skeleton-internal-1): Always push the mark for @.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 04 Feb 2001 20:46:39 +0000 |
| parents | 4581606f2141 |
| children | ff00d6410f39 |
| files | lisp/skeleton.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/skeleton.el Sun Feb 04 18:32:50 2001 +0000 +++ b/lisp/skeleton.el Sun Feb 04 20:46:39 2001 +0000 @@ -451,9 +451,8 @@ (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))