;ELC ;;; compiled by jwz@thalidomide on Mon Nov 8 12:21:51 1993 ;;; from file /th/jwz/emacs19/lisp/packages/detexinfo.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 20-oct-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (global-set-key "\\" 'detexinfo) (defvar detexinfo-buffer-name "*detexinfo*" "\ *Name of the temporary buffer used by \\[detexinfo].") (byte-code "!  # # # # # # # #‡" [boundp detexinfo-syntax-table nil make-syntax-table modify-syntax-entry 91 "." 93 34 92 40 41 123 "(}" 125 "){"] 4) (fset 'detexinfo #[nil "p !!! !eb#!seb#u!!chu!c\\eb#!seb#͉#q eb#!seb#!seb#!seb#!`S`T|l!g`S`|`eb!)" [input-buffer switch-to-buffer get-buffer-create detexinfo-buffer-name detexinfo-mode major-mode set-syntax-table detexinfo-syntax-table erase-buffer insert-buffer-substring search-forward "@{" nil t replace-match "%#*" "@}" -3 looking-at "@" delete-char 2 "%&%#" 1 "*#%" "@refill" "" "@TeX{}" "TeX" detexinfo-remove-line-cmds-without-arg detexinfo-remove-inline-cmds-without-arg detexinfo-remove-inline-cmds-keep-arg detexinfo-remove-line-cmds-deletable-arg detexinfo-remove-line-cmds-maybe-delete-arg detexinfo-remove-line-cmds-keep-arg "{" "}" "@@" "[*:]" "[{}@.'`]" message "Done...removed Texinfo commands from buffer. You may save it."] 4 "\ Remove Texinfo commands from current buffer, copying result to new buffer. BUG: Fails if Texinfo source file contains formatting errors." nil]) (fset 'detexinfo-remove-whole-line #[(cmd) "eb\nQd#Ŕb``T)|f" [re-search-forward "^@" cmd "[ \n]+" t 0 nil] 4 "\ Delete Texinfo line command CMD at beginning of line and rest of line."]) (fset 'detexinfo-remove-inline-cmd #[(cmd) "eb\nQd#u!!)`ɔ|b" [re-search-forward "@" cmd "{" t -1 forward-sexp 1 delete-char 0] 4 "\ Delete Texinfo inline command CMD, eg. @point, @code."]) (defvar detexinfo-line-cmds-deletable-arg '("enumerate" "ftable" "vtable" "itemize" "table" "setfilename" "settitle" "setchapternewpage" "footnotestyle" "paragraphindent" "include" "need" "sp" "clear" "ifclear" "ifset" "set" "defcodeindex" "defindex" "syncodeindex" "synindex") "\ List of Texinfo commands whose arguments should be deleted.") (fset 'detexinfo-remove-line-cmds-deletable-arg #[nil "! \"" [message "Removing commands such as @enumerate...with their arguments..." mapcar detexinfo-remove-whole-line detexinfo-line-cmds-deletable-arg] 3 "\ Delete Texinfo line commands together with their args, eg @setfilename."]) (defvar detexinfo-line-cmds-maybe-delete-arg '("cindex" "findex" "kindex" "pindex" "tindex" "vindex" "node" "c" "comment" "end" "headings" "printindex" "vskip" "evenfooting" "evenheading" "everyfooting" "everyheading" "oddfooting" "oddheading") "\ List of Texinfo commands whose arguments may possibly be deleted.") (fset 'detexinfo-remove-line-cmds-maybe-delete-arg #[nil "! \"" [message "Removing commands such as @cindex...with their arguments..." mapcar detexinfo-remove-whole-line detexinfo-line-cmds-maybe-delete-arg] 3 "\ Delete Texinfo line commands together with their arguments, eg, @cindex."]) (defvar detexinfo-line-cmds-keep-arg '("top" "chapter" "section" "subsection" "subsubsection" "unnumbered" "unnumberedsec" "unnumberedsubsec" "unnumberedsubsubsec" "majorheading" "chapheading" "heading" "subheading" "subsubheading" "appendix" "appendixsec" "appendixsubsec" "appendixsubsubsec" "item" "itemx" "title" "subtitle" "center" "author" "exdent" "defcv" "deffn" "defivar" "defmac" "defmethod" "defop" "defopt" "defspec" "deftp" "deftypefn" "deftypefun" "deftypvr" "deftypevar" "defun" "defvar" "defvr") "\ List of Texinfo line commands whose arguments should be kept.") (fset 'detexinfo-remove-line-cmds-keep-arg #[nil "! \"" [message "Removing commands such as @chapter...but not their arguments..." mapcar detexinfo-remove-line-cmd-keep-arg detexinfo-line-cmds-keep-arg] 3 "\ Delete Texinfo line commands but keep their arguments, eg @chapter."]) (fset 'detexinfo-remove-line-cmd-keep-arg #[(cmd) "eb\nQd#Ŕŕ|n" [re-search-forward "^@" cmd "[ \n]+" t 0] 4 "\ Delete Texinfo line command CMD but keep its argument, eg @chapter."]) (defvar detexinfo-line-cmds-without-arg '("bye" "contents" "display" "example" "finalout" "flushleft" "flushright" "format" "group" "ifinfo" "iftex" "ignore" "lisp" "menu" "noindent" "page" "quotation" "shortcontents" "smallbook" "smallexample" "smalllisp" "summarycontents" "tex" "thischapter" "thischaptername" "thisfile" "thispage" "thissection" "thistitle" "titlepage") "\ List of Texinfo commands without arguments that should be deleted.") (fset 'detexinfo-remove-line-cmds-without-arg #[nil "! \"" [message "Removing commands such as @example...that lack arguments..." mapcar detexinfo-remove-whole-line detexinfo-line-cmds-without-arg] 3 "\ Delete line Texinfo commands that lack args, eg. @example."]) (defvar detexinfo-inline-cmds-without-arg '("equiv" "error" "expansion" "point" "print" "result" "asis" "br" "bullet" "dots" "minus" "today") "\ List of Texinfo inline commands without arguments that should be deleted.") (fset 'detexinfo-remove-inline-cmds-without-arg #[nil "! \"" [message "Removing within line commands such as @result..." mapcar detexinfo-remove-inline-cmd detexinfo-inline-cmds-without-arg] 3 "\ Delete Texinfo inline commands in that lack arguments."]) (defvar detexinfo-inline-cmds-keep-arg '("b" "cartouche" "cite" "code" "copyright" "ctrl" "dfn" "dmn" "emph" "file" "footnote" "i" "inforef" "kbd" "key" "pxref" "r" "ref" "samp" "sc" "titlefont" "strong" "t" "var" "w" "xref") "\ List of Texinfo inline commands with arguments that should be kept.") (fset 'detexinfo-remove-inline-cmds-keep-arg #[nil "! \"" [message "Removing within line commands such as @code...but not their arguments..." mapcar detexinfo-remove-inline-cmd detexinfo-inline-cmds-keep-arg] 3 "\ Delete Texinfo inline commands but keep its arg, eg. @code."])