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;''