Mercurial > emacs

comparison lisp/files.el @ 90375:e6bf73e43cf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-49 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 164-184) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: man/mh-e.texi (Folders): Various edits. - Update from erc--emacs--0 * gnus--rel--5.10 (patch 62-70) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 28 Mar 2006 23:08:20 +0000
parents a802c5505156 80767c00292c
children 65ca8fb66a0d
comparison
equal deleted inserted replaced
90374:cf65b3d033bb 90375:e6bf73e43cf4
987 (interactive "BSwitch to buffer in other frame: ") 987 (interactive "BSwitch to buffer in other frame: ")
988 (let ((pop-up-frames t) 988 (let ((pop-up-frames t)
989 same-window-buffer-names same-window-regexps) 989 same-window-buffer-names same-window-regexps)
990 (pop-to-buffer buffer t norecord) 990 (pop-to-buffer buffer t norecord)
991 (raise-frame (window-frame (selected-window))))) 991 (raise-frame (window-frame (selected-window)))))
992
993 (defun display-buffer-other-frame (buffer)
994 "Switch to buffer BUFFER in another frame.
995 This uses the function `display-buffer' as a subroutine; see its
996 documentation for additional customization information."
997 (interactive "BDisplay buffer in other frame: ")
998 (let ((pop-up-frames t)
999 same-window-buffer-names same-window-regexps
1000 (old-window (selected-window))
1001 new-window)
1002 (setq new-window (display-buffer buffer t))
1003 (lower-frame (window-frame new-window))
1004 (make-frame-invisible (window-frame old-window))
1005 (make-frame-visible (window-frame old-window))))
992 1006
993 (defvar find-file-default nil 1007 (defvar find-file-default nil
994 "Used within `find-file-read-args'.") 1008 "Used within `find-file-read-args'.")
995 1009
996 (defmacro minibuffer-with-setup-hook (fun &rest body) 1010 (defmacro minibuffer-with-setup-hook (fun &rest body)
5135 5149
5136 (define-key ctl-x-5-map "b" 'switch-to-buffer-other-frame) 5150 (define-key ctl-x-5-map "b" 'switch-to-buffer-other-frame)
5137 (define-key ctl-x-5-map "f" 'find-file-other-frame) 5151 (define-key ctl-x-5-map "f" 'find-file-other-frame)
5138 (define-key ctl-x-5-map "\C-f" 'find-file-other-frame) 5152 (define-key ctl-x-5-map "\C-f" 'find-file-other-frame)
5139 (define-key ctl-x-5-map "r" 'find-file-read-only-other-frame) 5153 (define-key ctl-x-5-map "r" 'find-file-read-only-other-frame)
5154 (define-key ctl-x-5-map "\C-o" 'display-buffer-other-frame)
5140 5155
5141 ;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f 5156 ;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f
5142 ;;; files.el ends here 5157 ;;; files.el ends here