mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(ebrowse-view-file-other-window): Delete function.

Browse source 
(ebrowse-view/find-file-and-search-pattern): Call view-file-other-window
instead of ebrowse-view-file-other-window.
(ebrowse-view-file-other-frame): Don't call current-window-configuration.
Fix second argument in the call to view-mode-enter.  Doc fix.
This commit is contained in:
Eli Zaretskii 2008-01-12 14:04:05 +00:00
parent 374c0cd617
commit 26a30fea51
2 changed files with 14 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/progmodes/ebrowse.el
View file

@ -1613,21 +1613,6 @@ and (b) in the directories named in `ebrowse-search-path'."
file-name))
(defun ebrowse-view-file-other-window (file)
"View a file FILE in another window.
This is a replacement for `view-file-other-window' which does not
seem to work. It should be removed when `view.el' is fixed."
(interactive)
(let ((old-arrangement (current-window-configuration))
(had-a-buf (get-file-buffer file))
(buf-to-view (find-file-noselect file)))
(switch-to-buffer-other-window buf-to-view)
(view-mode-enter old-arrangement
(and (not had-a-buf)
(not (buffer-modified-p buf-to-view))
'kill-buffer))))
(defun ebrowse-view-exit-fn (buffer)
"Function called when exiting View mode in BUFFER.
Restore frame configuration active before viewing the file,
@ -1648,10 +1633,9 @@ and possibly kill the viewed buffer."
(defun ebrowse-view-file-other-frame (file)
"View a file FILE in another frame.
The new frame is deleted when it is no longer used."
The new frame is deleted when you quit viewing the file in that frame."
(interactive)
(let ((old-frame-configuration (current-frame-configuration))
(old-arrangement (current-window-configuration))
(had-a-buf (get-file-buffer file))
(buf-to-view (find-file-noselect file)))
(switch-to-buffer-other-frame buf-to-view)
@ -1662,8 +1646,8 @@ The new frame is deleted when it is no longer used."
(and (not had-a-buf)
(not (buffer-modified-p buf-to-view))
'kill-buffer))
(view-mode-enter old-arrangement 'ebrowse-view-exit-fn)))
(view-mode-enter (cons (selected-window) (cons (selected-window) t))
'ebrowse-view-exit-fn)))
(defun ebrowse-view/find-file-and-search-pattern
(struc info file tags-file-name &optional view where)
@ -1698,7 +1682,7 @@ specifies where to find/view the result."
(setq view-mode-hook nil))
(push 'ebrowse-find-pattern view-mode-hook)
(case where
(other-window (ebrowse-view-file-other-window file))
(other-window (view-file-other-window file))
(other-frame (ebrowse-view-file-other-frame file))
(t (view-file file))))
(t