mirror of
				https://github.com/python/cpython.git
				synced 2025-11-04 03:44:55 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			15 lines
		
	
	
	
		
			441 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
	
		
			441 B
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
(defun fix-python-texinfo ()
 | 
						|
  (goto-char (point-min))
 | 
						|
  (replace-regexp "\\(@setfilename \\)\\([-a-z]*\\)$"
 | 
						|
		  "\\1python-\\2.info")
 | 
						|
  (replace-string "@node Front Matter\n@chapter Abstract\n"
 | 
						|
		  "@node Abstract\n@section Abstract\n")
 | 
						|
  (mark-whole-buffer)
 | 
						|
  (texinfo-master-menu 'update-all-nodes)
 | 
						|
  (save-buffer)
 | 
						|
  )	;; fix-python-texinfo
 | 
						|
 | 
						|
;; now really do it:
 | 
						|
(find-file (car command-line-args-left))
 | 
						|
(fix-python-texinfo)
 | 
						|
(kill-emacs)
 |