blob: a050d11992dd8c21088d69ce7b67a801c62db257 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;; -*- Emacs-Lisp -*-
;;; PORT_TEXIFMT.MK --- for texinfo-format
;;; Code:
(defun port-texinfo-format (file &optional coding-system)
(let (obuf)
(find-file (expand-file-name file))
(setq obuf (current-buffer))
(require 'texinfmt)
(texinfo-format-buffer t)
(if coding-system
(set-buffer-file-coding-system coding-system))
(save-buffer)
(kill-buffer (current-buffer))
(kill-buffer obuf)))
;;; PORT_TEXIFMT.MK ends here
|