/[emacs]/emacs/lisp/skeleton.el
ViewVC logotype

Diff of /emacs/lisp/skeleton.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by monnier, Tue May 14 14:14:11 2002 UTC revision 1.30.2.1 by miles, Fri Apr 4 06:20:11 2003 UTC
# Line 381  automatically, and you are prompted to f Line 381  automatically, and you are prompted to f
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))
# Line 432  automatically, and you are prompted to f Line 432  automatically, and you are prompted to f
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)))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.30.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26