27 lines
795 B
EmacsLisp
27 lines
795 B
EmacsLisp
;;; Texinfo
|
|
|
|
;;; We use the TeX setup.
|
|
(require 'tex-mode)
|
|
(require 'init-tex)
|
|
|
|
(local-set-key (kbd "C-c C-b") 'texinfo-menu-update)
|
|
|
|
(defun texinfo-menu-update ()
|
|
"Update texinfo node menu automatically."
|
|
(interactive)
|
|
(hack-local-variables)
|
|
(texinfo-multiple-files-update (or tex-master-file buffer-file-name) t 8))
|
|
|
|
(defun texinfo-set-compiler ()
|
|
(set (make-local-variable 'tex-extension-list)
|
|
'("aux" "cp" "cps" "fn" "ky" "log" "pg" "toc" "tp" "vr" "vrs"))
|
|
(set (make-local-variable 'tex-start-options) nil)
|
|
(set (make-local-variable 'tex-command) "texi2pdf -b")
|
|
(tex-set-compiler))
|
|
|
|
;;; For some reason, Texinfo-mode forces the fill-column to 70...
|
|
(dolist (fun '(texinfo-set-compiler reset-fill-column))
|
|
(add-hook 'texinfo-mode-hook fun))
|
|
|
|
(provide 'init-texinfo)
|