Mercurial > emacs
changeset 49299:c7f492d5cd47
(skeleton-internal-list, skeleton-internal-1):
Don't treat \n specially in sub-skeletons.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 17 Jan 2003 20:35:48 +0000 |
| parents | bb7bf9ff7c97 |
| children | b99be2b86231 |
| files | lisp/skeleton.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/skeleton.el Fri Jan 17 14:48:15 2003 +0000 +++ b/lisp/skeleton.el Fri Jan 17 20:35:48 2003 +0000 @@ -381,7 +381,7 @@ opoint) (or str (setq str `(setq str (skeleton-read ',(car skeleton) nil ,recursive)))) - (when (and (eq (cadr skeleton) '\n) + (when (and (eq (cadr skeleton) '\n) (not recursive) (save-excursion (skip-chars-backward " \t") (bolp))) (setq skeleton (cons nil (cons '> (cddr skeleton))))) (while (setq skeleton-modified (eq opoint (point)) @@ -432,7 +432,7 @@ (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)) + ((and (null (cdr skeleton)) (not recursive) (eolp)) (if pos (indent-according-to-mode))) (skeleton-newline-indent-rigidly (let ((pt (point)))