| Fred Drake | c58f346 | 1999-01-08 15:27:17 +0000 | [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") |
| Fred Drake | ffc4811 | 1999-01-27 18:40:36 +0000 | [diff] [blame] | 7 | (mark-whole-buffer) |
| 8 | (texinfo-master-menu 'update-all-nodes) |
| Fred Drake | c58f346 | 1999-01-08 15:27:17 +0000 | [diff] [blame] | 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) |