mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(texinfo-environment-regexp): Match @menu and

Browse Source 
@titlepage --- they require @ends.  Don't match @defunx commands; they don't.
(texinfo-insert-@end): Don't put a command name after the @end
if we ran off the top of the buffer looking for its mate.
This commit is contained in:
Richard M. Stallman 1995-02-06 03:26:35 +00:00
parent 81841847d1
commit c066ae5ca0
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/textmodes/texinfo.el
View File

@ -399,15 +399,11 @@ value of texinfo-mode-hook."
(defconst texinfo-environment-regexp
"^@\\(f?table\\|enumerate\\|itemize\\|ifinfo\\|iftex\\|ifset\\|ifclear\
\\|example\\|quotation\\|lisp\\|smallexample\\|smalllisp\\|display\\|format\
\\|flushleft\\|flushright\\|ignore\\|group\\|tex\\|cartouche\\|end\
\\|def[a-z]*\\)"
\\|flushleft\\|flushright\\|ignore\\|group\\|tex\\|cartouche\\|menu\
\\|titlepage\\|end\\|def[a-z]*[a-wyz]\\>\\)"
"Regexp for environment-like Texinfo list commands.
Subexpression 1 is what goes into the corresponding `@end' statement.")
;; The following texinfo-insert-@end command not only inserts a SPC
;; after the @end, but tries to find out what belongs there. It is
;; not very smart: it does not understand nested lists.
(defun texinfo-insert-@end ()
"Insert the matching `@end' for the last Texinfo command that needs one."
(interactive)
@ -419,9 +415,10 @@ Subexpression 1 is what goes into the corresponding `@end' statement.")
(setq depth (1+ depth))
(setq depth (1- depth)))))
(looking-at texinfo-environment-regexp)
(setq string
(buffer-substring (match-beginning 1)
(match-end 1))))
(if (zerop depth)
(setq string
(buffer-substring (match-beginning 1)
(match-end 1)))))
(insert "@end ")
(if string (insert string "\n"))))