2016-10-14 14:03:30 +02:00
|
|
|
;; Texinfo
|
|
|
|
|
|
|
|
|
|
;; We use the TeX setup.
|
2014-02-27 10:27:47 +01:00
|
|
|
(require 'tex-mode)
|
2014-02-21 15:23:25 +01:00
|
|
|
(require 'mode-tex)
|
2013-06-12 23:40:20 +02:00
|
|
|
|
2013-09-28 17:22:47 +02:00
|
|
|
(defun texinfo-menu-update ()
|
2013-06-12 23:40:20 +02:00
|
|
|
"Update texinfo node menu automatically."
|
|
|
|
|
(interactive)
|
2013-09-28 17:22:47 +02:00
|
|
|
(hack-local-variables)
|
2013-06-12 23:40:20 +02:00
|
|
|
(let
|
|
|
|
|
;; Master file.
|
2013-09-28 17:22:47 +02:00
|
|
|
((local-master (if (not masterfile) buffer-file-name masterfile)))
|
2013-06-12 23:40:20 +02:00
|
|
|
(texinfo-multiple-files-update local-master t 8)))
|
|
|
|
|
|
2014-02-27 10:27:47 +01:00
|
|
|
(add-hook-and-eval
|
2013-06-12 23:40:20 +02:00
|
|
|
'texinfo-mode-hook
|
|
|
|
|
(lambda ()
|
2014-02-21 15:23:25 +01:00
|
|
|
(setq fill-column 80) ;; Really needed?
|
2014-02-27 10:27:47 +01:00
|
|
|
(local-set-key (kbd "C-c C-b") 'texinfo-menu-update)
|
|
|
|
|
(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)))
|
|
|
|
|
|
|
|
|
|
(provide 'mode-texinfo)
|
