381 |
opoint) |
opoint) |
382 |
(or str |
(or str |
383 |
(setq str `(setq str (skeleton-read ',(car skeleton) nil ,recursive)))) |
(setq str `(setq str (skeleton-read ',(car skeleton) nil ,recursive)))) |
384 |
(when (and (eq (cadr skeleton) '\n) |
(when (and (eq (cadr skeleton) '\n) (not recursive) |
385 |
(save-excursion (skip-chars-backward " \t") (bolp))) |
(save-excursion (skip-chars-backward " \t") (bolp))) |
386 |
(setq skeleton (cons nil (cons '> (cddr skeleton))))) |
(setq skeleton (cons nil (cons '> (cddr skeleton))))) |
387 |
(while (setq skeleton-modified (eq opoint (point)) |
(while (setq skeleton-modified (eq opoint (point)) |
432 |
(indent-region (line-beginning-position) |
(indent-region (line-beginning-position) |
433 |
(car skeleton-regions) nil)) |
(car skeleton-regions) nil)) |
434 |
;; \n as last element only inserts \n if not at eol. |
;; \n as last element only inserts \n if not at eol. |
435 |
((and (null (cdr skeleton)) (eolp)) |
((and (null (cdr skeleton)) (not recursive) (eolp)) |
436 |
(if pos (indent-according-to-mode))) |
(if pos (indent-according-to-mode))) |
437 |
(skeleton-newline-indent-rigidly |
(skeleton-newline-indent-rigidly |
438 |
(let ((pt (point))) |
(let ((pt (point))) |