Commit 4de28b1a authored by Michael Albinus's avatar Michael Albinus
Browse files

* textmodes/makeinfo.el (makeinfo-buffer): Make it work also for

remote `buffer-file-name'.
parent b7b18c73
2014-11-23 Michael Albinus <michael.albinus@gmx.de>
* textmodes/makeinfo.el (makeinfo-buffer): Make it work also for
remote `buffer-file-name'.
2014-11-23 Leo Liu <sdl.web@gmail.com> 2014-11-23 Leo Liu <sdl.web@gmail.com>
   
* calendar/diary-lib.el (calendar-mark-1): Fix thinko. * calendar/diary-lib.el (calendar-mark-1): Fix thinko.
......
...@@ -253,11 +253,12 @@ Use the \\[next-error] command to move to the next error ...@@ -253,11 +253,12 @@ Use the \\[next-error] command to move to the next error
(setq makeinfo-output-node-name (makeinfo-current-node)) (setq makeinfo-output-node-name (makeinfo-current-node))
(save-excursion (save-excursion
(makeinfo-compile (let ((default-directory (file-name-directory buffer-file-name)))
(concat makeinfo-run-command " " makeinfo-options (makeinfo-compile
" " buffer-file-name) (concat makeinfo-run-command " " makeinfo-options
nil " " (file-name-nondirectory buffer-file-name))
'makeinfo-compilation-sentinel-buffer))) nil
'makeinfo-compilation-sentinel-buffer))))
(defun makeinfo-compilation-sentinel-buffer (proc msg) (defun makeinfo-compilation-sentinel-buffer (proc msg)
"Sentinel for `makeinfo-compile' run from `makeinfo-buffer'." "Sentinel for `makeinfo-compile' run from `makeinfo-buffer'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment