procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(texinfo-block-default): New var.

Browse source 
(texinfo-insert-block): Use it.  Insert a newline if needed.
This commit is contained in:
Stefan Monnier 2000-11-10 11:55:06 +00:00
parent 178932de25
commit d7fa3319f5
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/texinfo.el
View file

@ -624,10 +624,16 @@ value of `texinfo-mode-hook'."
"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)