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 | |
| parent | 0be908921600c52192a1cde8488e4279a4959c09 (diff) | |
| download | emacs-02399da7a645b1aae59f863a43f82ee346a71797.tar.gz | |
(skeleton-internal-1): Always push the mark for @.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <monnier@cs.yale.edu> + + * skeleton.el (skeleton-internal-1): Always push the mark for @. + 2001-02-02 Eli Zaretskii <eliz@is.elta.co.il> * 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)) |