From 02399da7a645b1aae59f863a43f82ee346a71797 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 Feb 2001 20:46:51 +0000 Subject: [PATCH] (skeleton-internal-1): Always push the mark for @. --- lisp/ChangeLog | 4 ++++ lisp/skeleton.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7a7547eb8d6..1f5683ce2fd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-02-04 Stefan Monnier + + * skeleton.el (skeleton-internal-1): Always push the mark for @. + 2001-02-02 Eli Zaretskii * info.el (info-initialize): If installation-directory is nil, for 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)) -- 2.39.5