emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-24 01/01: * textmodes/makeinfo.el (makeinfo-buffer):


From: Michael Albinus
Subject: [Emacs-diffs] emacs-24 01/01: * textmodes/makeinfo.el (makeinfo-buffer): Make it work also for remote `buffer-file-name'.
Date: Sun, 23 Nov 2014 10:50:36 +0000

branch: emacs-24
commit 4de28b1a76a6b5fe86122ab4dea9c7764d8b5866
Author: Michael Albinus <address@hidden>
Date:   Sun Nov 23 11:49:31 2014 +0100

    * 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 8ec822f..afa0c68 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-23  Michael Albinus  <address@hidden>
+
+       * textmodes/makeinfo.el (makeinfo-buffer): Make it work also for
+       remote `buffer-file-name'.
+
 2014-11-23  Leo Liu  <address@hidden>
 
        * calendar/diary-lib.el (calendar-mark-1): Fix thinko.
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el
index b97c632..3c8bc42 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'."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]