From 4de28b1a76a6b5fe86122ab4dea9c7764d8b5866 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 23 Nov 2014 11:49:31 +0100 Subject: [PATCH] * textmodes/makeinfo.el (makeinfo-buffer): Make it work also for remote `buffer-file-name'. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/makeinfo.el | 11 ++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ec822ff999..afa0c680a8b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-11-23 Michael Albinus + + * textmodes/makeinfo.el (makeinfo-buffer): Make it work also for + remote `buffer-file-name'. + 2014-11-23 Leo Liu * calendar/diary-lib.el (calendar-mark-1): Fix thinko. diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el index b97c6325bf8..3c8bc42cc10 100644 --- a/lisp/textmodes/makeinfo.el +++ b/lisp/textmodes/makeinfo.el @@ -253,11 +253,12 @@ Use the \\[next-error] command to move to the next error (setq makeinfo-output-node-name (makeinfo-current-node)) (save-excursion - (makeinfo-compile - (concat makeinfo-run-command " " makeinfo-options - " " buffer-file-name) - nil - 'makeinfo-compilation-sentinel-buffer))) + (let ((default-directory (file-name-directory buffer-file-name))) + (makeinfo-compile + (concat makeinfo-run-command " " makeinfo-options + " " (file-name-nondirectory buffer-file-name)) + nil + 'makeinfo-compilation-sentinel-buffer)))) (defun makeinfo-compilation-sentinel-buffer (proc msg) "Sentinel for `makeinfo-compile' run from `makeinfo-buffer'." -- 2.11.4.GIT