Mercurial > emacs
changeset 112208:f78d631cd428
* doc-view.el (doc-view-open-text): Use meaningful text buffer
name. Keep original document's directory as default-directory
(bug#6446).
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Thu, 13 Jan 2011 20:48:26 +0100 |
| parents | 86a21f19b9e6 |
| children | 4a44f74c4f7c |
| files | lisp/ChangeLog lisp/doc-view.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 13 19:58:28 2011 +0100 +++ b/lisp/ChangeLog Thu Jan 13 20:48:26 2011 +0100 @@ -1,5 +1,9 @@ 2011-01-13 Tassilo Horn <tassilo@member.fsf.org> + * doc-view.el (doc-view-open-text): Use meaningful text buffer + name. Keep original document's directory as default-directory + (bug#6446). + * simple.el (shell-command): Don't error out if shell command buffer contains text with non-nil read-only property when erasing the buffer.
--- a/lisp/doc-view.el Thu Jan 13 19:58:28 2011 +0100 +++ b/lisp/doc-view.el Thu Jan 13 20:48:26 2011 +0100 @@ -1061,7 +1061,12 @@ (message "DocView: please wait till conversion finished.") (let ((txt (expand-file-name "doc.txt" (doc-view-current-cache-dir)))) (if (file-readable-p txt) - (find-file txt) + (let ((name (concat "Text contents of " + (file-name-nondirectory buffer-file-name))) + (dir (file-name-directory buffer-file-name))) + (with-current-buffer (find-file txt) + (rename-buffer name) + (setq default-directory dir))) (doc-view-doc->txt txt 'doc-view-open-text))))) ;;;;; Toggle between editing and viewing