Doc/tools/fixinfo.el

   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)