[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'."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-24 01/01: * textmodes/makeinfo.el (makeinfo-buffer): Make it work also for remote `buffer-file-name'.,
Michael Albinus <=