1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00

Docstring fixes.

This commit is contained in:
Stefan Monnier 2001-02-04 20:57:37 +00:00
parent 02399da7a6
commit 3bb34a0214

View File

@ -261,7 +261,7 @@ If ELEMENT is a string or a character it gets inserted (see also
`skeleton-transformation'). Other possibilities are:
\\n go to next line and indent according to mode
_ interesting point, interregion here, point after termination
_ interesting point, interregion here
> indent line (or interregion if > _) according to major mode
@ add position to `skeleton-positions'
& do next ELEMENT if previous moved point
@ -270,6 +270,9 @@ If ELEMENT is a string or a character it gets inserted (see also
resume: skipped, continue here if quit is signaled
nil skipped
After termination, point will be positioned at the first occurrence
of _ or @ or at the end of the inserted text.
Further elements can be defined via `skeleton-further-elements'. ELEMENT may
itself be a SKELETON with an INTERACTOR. The user is prompted repeatedly for
different inputs. The SKELETON is processed as often as the user enters a
@ -425,6 +428,7 @@ automatically, and you are prompted to fill in the variable parts.")))
(or (eolp) (newline))
(indent-region (line-beginning-position)
(car skeleton-regions) nil))
;; \n as last element only inserts \n if not at eol.
((and (null (cdr skeleton)) (eolp)) nil)
(skeleton-newline-indent-rigidly
(indent-to (prog1 (current-indentation) (newline))))
@ -445,11 +449,9 @@ automatically, and you are prompted to fill in the variable parts.")))
(or skeleton-point
(setq skeleton-point (point)))))
((eq element '&)
(if skeleton-modified
(setq skeleton (cdr skeleton))))
(when skeleton-modified (pop skeleton)))
((eq element '|)
(or skeleton-modified
(setq skeleton (cdr skeleton))))
(unless skeleton-modified (pop skeleton)))
((eq element '@)
(push (point) skeleton-positions)
(unless skeleton-point (setq skeleton-point (point))))