| Jean-Paul Calderone | 897bc25 | 2008-02-18 20:50:23 -0500 | [diff] [blame^] | 1 | (defun fix-python-texinfo () |
| 2 | (goto-char (point-min)) | ||||
| 3 | (replace-regexp "\\(@setfilename \\)\\([-a-z]*\\)$" | ||||
| 4 | "\\1python-\\2.info") | ||||
| 5 | (replace-string "@node Front Matter\n@chapter Abstract\n" | ||||
| 6 | "@node Abstract\n@section Abstract\n") | ||||
| 7 | (mark-whole-buffer) | ||||
| 8 | (texinfo-master-menu 'update-all-nodes) | ||||
| 9 | (save-buffer) | ||||
| 10 | ) ;; fix-python-texinfo | ||||
| 11 | |||||
| 12 | ;; now really do it: | ||||
| 13 | (find-file (car command-line-args-left)) | ||||
| 14 | (fix-python-texinfo) | ||||
| 15 | (kill-emacs) | ||||