From: Stefan Monnier Date: Thu, 22 Apr 2004 21:08:10 +0000 (+0000) Subject: (special-display-popup-frame, next-multiframe-window) X-Git-Tag: ttn-vms-21-2-B4~6646 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb2c34b14781830ae47d2caaac2b56beb71cff52;p=emacs.git (special-display-popup-frame, next-multiframe-window) (previous-multiframe-window): Only consider frames on same display. --- diff --git a/lisp/frame.el b/lisp/frame.el index a470fbc0f97..4a5b09ba68a 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,6 +1,6 @@ ;;; frame.el --- multi-frame management independent of window systems -;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003 +;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003, 2004 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -113,7 +113,7 @@ use (car ARGS) as a function to do the work. Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args." (if (and args (symbolp (car args))) (apply (car args) buffer (cdr args)) - (let ((window (get-buffer-window buffer t))) + (let ((window (get-buffer-window buffer 0))) (or ;; If we have a window already, make it visible. (when window @@ -131,6 +131,7 @@ Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args." (let* ((pop-up-frames nil) (pop-up-windows t) special-display-regexps special-display-buffer-names (window (display-buffer buffer))) + ;; Only do it if this is a new window: ;; (set-window-dedicated-p window t) window)) ;; If no window yet, make one in a new frame. @@ -552,7 +553,7 @@ is not considered (see `next-frame')." (interactive) (select-window (next-window (selected-window) (> (minibuffer-depth) 0) - t)) + 0)) (select-frame-set-input-focus (selected-frame))) (defun previous-multiframe-window () @@ -560,7 +561,7 @@ is not considered (see `next-frame')." (interactive) (select-window (previous-window (selected-window) (> (minibuffer-depth) 0) - t)) + 0)) (select-frame-set-input-focus (selected-frame))) (defun make-frame-on-display (display &optional parameters)