diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2014-11-23 11:49:31 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2014-11-23 11:49:31 +0100 |
| commit | 4de28b1a76a6b5fe86122ab4dea9c7764d8b5866 (patch) | |
| tree | 111679d034920777ff4c862ea4aa9e17d3691539 /lisp/textmodes/makeinfo.el | |
| parent | b7b18c73f98aa429151f8dafc949774d1eb8807b (diff) | |
| download | emacs-4de28b1a76a6b5fe86122ab4dea9c7764d8b5866.tar.gz emacs-4de28b1a76a6b5fe86122ab4dea9c7764d8b5866.tar.bz2 emacs-4de28b1a76a6b5fe86122ab4dea9c7764d8b5866.zip | |
* textmodes/makeinfo.el (makeinfo-buffer): Make it work also for
remote `buffer-file-name'.
Diffstat (limited to 'lisp/textmodes/makeinfo.el')
| -rw-r--r-- | lisp/textmodes/makeinfo.el | 11 |
1 files changed, 6 insertions, 5 deletions
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'." |