procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* doc-view.el (doc-view-open-text): Use meaningful text buffer

Browse source 
name.  Keep original document's directory as default-directory
(bug#6446).
This commit is contained in:
Tassilo Horn 2011-01-13 20:48:26 +01:00
parent 50f8cd9617
commit 5b3553158d
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

7
lisp/doc-view.el
View file

@ -1061,7 +1061,12 @@ For now these keys are useful:
(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