diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-25 22:44:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-25 22:44:10 +0000 |
| commit | cf149bdfaeff5e9c2db5a082fad7b5a88551dda8 (patch) | |
| tree | 3657ea22d9c3f9a41892653ef58fe65748d1027b /lisp/textmodes | |
| parent | 526baa41c5af164265e6a03957e9c45f3ba31b58 (diff) | |
| download | emacs-cf149bdfaeff5e9c2db5a082fad7b5a88551dda8.tar.gz | |
(tex-common-initialization): Set skeleton-further-elements.
(tex-latex-block): Define as a skeleton.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 565a8d13e76..d410035cf84 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -556,6 +556,9 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook (setq parse-sexp-ignore-comments t) (make-local-variable 'compare-windows-whitespace) (setq compare-windows-whitespace 'tex-categorize-whitespace) + (make-local-variable 'skeleton-further-elements) + (setq skeleton-further-elements + '((indent-line-function 'indent-relative-maybe))) (make-local-variable 'facemenu-add-face-function) (make-local-variable 'facemenu-end-add-face) (make-local-variable 'facemenu-remove-face-function) @@ -728,25 +731,20 @@ A prefix arg inhibits the checking." (insert ?}))) ;;; Like tex-insert-braces, but for LaTeX. -(defun tex-latex-block (name) - "Creates a matching pair of lines `\\begin{NAME}' and `\\end{NAME}' at point. +(define-skeleton tex-latex-block + "Create a matching pair of lines \\begin[OPT]{NAME} and \\end{NAME} at point. Puts point on a blank line between them." - (interactive - (prog2 - (barf-if-buffer-read-only) - (list - (completing-read "LaTeX block name: " - (mapcar 'list - (append standard-latex-block-names - latex-block-names)))))) - (let ((col (current-column))) - (insert (format "\\begin{%s}\n" name)) - (indent-to col) - (save-excursion - (insert ?\n) - (indent-to col) - (insert-string (format "\\end{%s}" name)) - (if (eobp) (insert ?\n))))) + (completing-read "LaTeX block name: " + (mapcar 'list + (append standard-latex-block-names + latex-block-names))) + "\\begin[" + (skeleton-read "[options]: ") & ?\] | -1 + ?\{ + str + ?\} \n + _ \n + "\\end{" str ?\}) (defun tex-last-unended-begin () "Leave point at the beginning of the last `\\begin{...}' that is unended." |