Mercurial > emacs
changeset 68352:de7cc6d3013b
(clone-buffer): Don't show the new buffer in the same window.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 23 Jan 2006 04:05:59 +0000 |
| parents | 4f0831b0d1ba |
| children | 585bb942eb2b |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jan 23 02:44:02 2006 +0000 +++ b/lisp/ChangeLog Mon Jan 23 04:05:59 2006 +0000 @@ -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
--- a/lisp/simple.el Mon Jan 23 02:44:02 2006 +0000 +++ b/lisp/simple.el Mon Jan 23 04:05:59 2006 +0000 @@ -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 @@ ;; 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))