diff -cr /tmp/old/tabular.sty ./tabular.sty *** /tmp/old/tabular.sty Thu Jun 21 21:13:49 1990 — ./tabular.sty Thu Jun 21 21:11:49 1990 *************** *** 0 **** — 1 —- + diff -cr /tmp/old/tolatexinfo.el ./tolatexinfo.el *** /tmp/old/tolatexinfo.el Tue Jun 19 12:48:26 1990 — ./tolatexinfo.el Thu Jun 21 21:11:56 1990 *************** *** 1,7 **** — 1,35 —- + (defun tex-to-latexinfo () (interactive) (let ((case-fold-search nil) (alist latex-alist)) + ;; Input the @input files + (if (yes-or-no-p + "Would you like to do the @input files now, to do it all at once?") + + (while (re-search-forward "^@input" nil t) + (save-excursion + (skip-chars-forward " ") + (let ((file-name + (buffer-substring + (point) + (progn + (skip-chars-forward "^ ") + (point))))) + (setq file-name + (expand-file-name + (if (file-readable-p (expand-file-name file-name)) + file-name + (concat file-name ".texinfo")))) + (beginning-of-line 1) + (if (file-readable-p file-name) + (progn + (delete-region (point) (progn (forward-line 1) (point))) + (message "Inserting file + (insert-file file-name) + (message "Inserting file + (error "I can't find the file + )))) ;; Fix the header for LaTeX (goto-char (point-min)) (if (re-search-forward "^
% =texinfo
(.*
)" nil t) *************** *** 35,43 **** (delete-matching-lines (car alist)) (setq alist (cdr alist))) (if (re-search-forward "^@appendix" nil t nil) ! (progn ! (beginning-of-line 1) ! (insert "
apendix"))) (setq alist latex-alist) (while alist (goto-char (point-min)) — 63,71 —- (delete-matching-lines (car alist)) (setq alist (cdr alist))) (if (re-search-forward "^@appendix" nil t nil) ! (progn ! (beginning-of-line 1) ! (insert "
apendix"))) (setq alist latex-alist) (while alist (goto-char (point-min)) *************** *** 50,55 **** — 78,85 —- '( ;; begin end environments ("^@defcv" . "

begindefcv") + ("^@defcmd" . "

begindefcmd") + ("^@defconst" . "

begindefconst") ("^@deffn" . "

begindeffn") ("^@defivar" . "

begindefivar") ("^@defmac" . "

begindefmac") *************** *** 111,116 **** — 141,152 —-

;; commands with arguments on the rest of the line ("^@end[ ]+
(.+
)" . "

end
1") + ;; The elisp manual has some @ifinfo 2**24 - 1@end ifinfo + ;; and @tex 224 - 1@end tex with the @end on the smae line + ("@end[ ]+ifinfo" . "

endifinfo") + ("@end[ ]+tex" . "

endtex") + ("@end[ ]+iftex" . "

endiftex") + ("@end[ ]+defvar" . "

enddefvar") ("^@printindex[ ]+
(.+
)" . "

printindex
1")

;; Sections and chanpters are done LaTeX style *************** *** 161,167 **** ("@emph" . "

emph")

("@defn" . "

defn") ! ("@dfn" . "

dfn") ("@ctrl" . "

ctrl") ("@var" . "

var") ("@cite" . "

cite") — 197,203 —- ("@emph" . "

emph")

("@defn" . "

defn") ! ("@dfn[ ]͡*" . "

dfn") ("@ctrl" . "

ctrl") ("@var" . "

var") ("@cite" . "

cite") *************** *** 177,184 **** ("@noindent" . "

noindent") ("@comment" . "

comment") ("@bullet" . "

bullet") ! ("@c[ ]" . "

c ") ("@arrow" . "

arrow")

("@page" . "

clearpage") ("^@bye" . "

enddocument;''