From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 23 Jan 2006 04:05:59 +0000 (+0000)
Subject: (clone-buffer): Don't show the new buffer in the same window.
X-Git-Tag: emacs-pretest-22.0.90~4615
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a4871997c099bcc11efeb29593f0907ad1cefe7;p=emacs.git

(clone-buffer): Don't show the new buffer in the same window.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3293681e248..98cf5842e52 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (clone-buffer): Don't show the new buffer in the same window.
+
 2006-01-23  Juri Linkov  <juri@jurta.org>
 
 	* faces.el (link, link-visited): New faces based on default values
diff --git a/lisp/simple.el b/lisp/simple.el
index 346a242c042..db040afcae9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,7 +1,7 @@
 ;;; simple.el --- basic editing commands for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-;;   2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
+;;   2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -5244,7 +5244,12 @@ after it has been set up properly in other respects."
       ;; Run any hooks (typically set up by the major mode
       ;; for cloning to work properly).
       (run-hooks 'clone-buffer-hook))
-    (if display-flag (pop-to-buffer new))
+    (if display-flag
+        ;; Presumably the current buffer is shown in the selected frame, so
+        ;; we want to display the clone elsewhere.
+        (let ((same-window-regexps nil)
+              (same-window-buffer-names))
+          (pop-to-buffer new)))
     new))