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

remote `buffer-file-name'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ec822ff9999288a29546124c5161cbe4a292847..afa0c680a8b1654231b5e3690e0d69d8a7f86f83 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
        * calendar/diary-lib.el (calendar-mark-1): Fix thinko.

diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index b97c6325bf83c08afd2dc3ba174d423a95691ff8..3c8bc42cc10032609775ba013bab4af938cc84ae 100644 (file)
--- 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'."