From 0a4871997c099bcc11efeb29593f0907ad1cefe7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 23 Jan 2006 04:05:59 +0000 Subject: [PATCH] (clone-buffer): Don't show the new buffer in the same window. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * simple.el (clone-buffer): Don't show the new buffer in the same window. + 2006-01-23 Juri Linkov * 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)) -- 2.39.2