2000-11-10 Stefan Monnier <monnier@cs.yale.edu>
+ * textmodes/texinfo.el (texinfo-block-default): New var.
+ (texinfo-insert-block): Use it. Insert a newline if needed.
+
* textmodes/fill.el (fill-indent-according-to-mode): New var.
(fill-region-as-paragraph): Use it.
"Regexp for environment-like TexInfo list commands.
Subexpression 1 is what goes into the corresponding `@end' statement.")
+(defvar texinfo-block-default "example")
+
(define-skeleton texinfo-insert-block
"Create a matching pair @<cmd> .. @end <cmd> at point.
Puts point on a blank line between them."
- (completing-read "Block name: " (mapcar 'list texinfo-environments))
+ (setq texinfo-block-default
+ (completing-read (format "Block name [%s]: " texinfo-block-default)
+ (mapcar 'list texinfo-environments)
+ nil nil nil nil texinfo-block-default))
+ (unless (save-excursion (beginning-of-line) (looking-at "[ \t]*$")) '\n)
"@" str \n _ \n "@end " str \n)
(defun texinfo-inside-macro-p (macro &optional bound)