diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-28 19:33:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-28 19:33:20 +0000 |
| commit | 157b7809ca8ce6126a90e962b7eef1a92aed5d89 (patch) | |
| tree | 44ceee1f4186528b39b2c4938e8e934878885872 /lisp/skeleton.el | |
| parent | a6dccb5154ff3a536709e540de0dfb8e39e38ef5 (diff) | |
| download | emacs-157b7809ca8ce6126a90e962b7eef1a92aed5d89.tar.gz | |
(skeleton-positions): Renamed from skeleton-marks.
Diffstat (limited to 'lisp/skeleton.el')
| -rw-r--r-- | lisp/skeleton.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/skeleton.el b/lisp/skeleton.el index d10f2b5a896..a5bacfeb1b0 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -100,10 +100,10 @@ skeleton elements.") (defvar skeleton-debug nil "*If non-nil `define-skeleton' will override previous definition.") -(defvar skeleton-marks nil - "Variable used to keep the list of positions marked with @ after -skeleton insertion. The list is in the reverse order of the insertion -order. This list is reseted before skeleton insertion.") +(defvar skeleton-positions nil + "List of positions marked with @, after skeleton insertion. +The list describes the most recent skeleton insertion, and its elements +are integer buffer positions in the reverse order of the insertion order.") ;; reduce the number of compiler warnings (defvar skeleton) @@ -255,7 +255,7 @@ If ELEMENT is a string or a character it gets inserted (see also \\n go to next line and indent according to mode _ interesting point, interregion here, point after termination > indent line (or interregion if > _) according to major mode - @ add position to `skeleton-marks' + @ add position to `skeleton-positions' & do next ELEMENT if previous moved point | do next ELEMENT if previous didn't move point -num delete num preceding characters (see `skeleton-untabify') @@ -305,7 +305,7 @@ When done with skeleton, but before going back to `_'-point call (setq skeleton-regions (cdr skeleton-regions))) (let ((beg (point)) skeleton-modified skeleton-point resume: help input v1 v2) - (setq skeleton-marks nil) + (setq skeleton-positions nil) (unwind-protect (eval `(let ,skeleton-further-elements (skeleton-internal-list skeleton str))) @@ -439,7 +439,7 @@ automatically, and you are prompted to fill in the variable parts."))) (or skeleton-modified (setq skeleton (cdr skeleton)))) ((eq element '@) - (setq skeleton-marks (cons (point) skeleton-marks))) + (setq skeleton-positions (cons (point) skeleton-positions))) ((eq 'quote (car-safe element)) (eval (nth 1 element))) ((or (stringp (car-safe element)) |