Commit 48d93beb authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(view-file-other-window, view-file-other-frame): Don't kill the buffer if it

is modified.  Doc fixes.
parent 26a30fea
2008-01-12 Eli Zaretskii <eliz@gnu.org>
 
* view.el (view-file-other-window, view-file-other-frame): Don't
kill the buffer if it is modified. Doc fixes.
* progmodes/ebrowse.el (ebrowse-view-file-other-window): Delete
function.
(ebrowse-view/find-file-and-search-pattern): Call
......@@ -263,7 +263,9 @@ This command runs the normal hook `view-mode-hook'."
;;;###autoload
(defun view-file-other-window (file)
"View FILE in View mode in another window.
Return that window to its previous buffer when done.
When done, return that window to its previous buffer, and kill the
buffer visiting FILE if unmodified and if it wasn't visited before.
Emacs commands editing the buffer contents are not available; instead,
a special set of commands (mostly letters and punctuation)
are defined for moving around in the buffer.
......@@ -273,14 +275,20 @@ For list of all View commands, type H or h while viewing.
This command runs the normal hook `view-mode-hook'."
(interactive "fIn other window view file: ")
(unless (file-exists-p file) (error "%s does not exist" file))
(let ((had-a-buf (get-file-buffer file)))
(view-buffer-other-window (find-file-noselect file) nil
(and (not had-a-buf) 'kill-buffer))))
(let ((had-a-buf (get-file-buffer file))
(buf-to-view (find-file-noselect file)))
(view-buffer-other-window buf-to-view nil
(and (not had-a-buf)
(not (buffer-modified-p buf-to-view))
'kill-buffer))))
;;;###autoload
(defun view-file-other-frame (file)
"View FILE in View mode in another frame.
Maybe delete other frame and/or return to previous buffer when done.
When done, kill the buffer visiting FILE if unmodified and if it wasn't
visited before; also, maybe delete other frame and/or return to previous
buffer.
Emacs commands editing the buffer contents are not available; instead,
a special set of commands (mostly letters and punctuation)
are defined for moving around in the buffer.
......@@ -290,9 +298,12 @@ For list of all View commands, type H or h while viewing.
This command runs the normal hook `view-mode-hook'."
(interactive "fIn other frame view file: ")
(unless (file-exists-p file) (error "%s does not exist" file))
(let ((had-a-buf (get-file-buffer file)))
(view-buffer-other-frame (find-file-noselect file) nil
(and (not had-a-buf) 'kill-buffer))))
(let ((had-a-buf (get-file-buffer file))
(buf-to-view (find-file-noselect file)))
(view-buffer-other-frame buf-to-view nil
(and (not had-a-buf)
(not (buffer-modified-p buf-to-view))
'kill-buffer))))
;;;###autoload
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment