# HG changeset patch # User Stefan Monnier # Date 976483083 0 # Node ID bcedf6eef40771d7e5797a91d28ba46ed1102910 # Parent 26b5a3053881a32e16cac3b4c500e1728a6ac9ce Minor doc/comment changes. diff -r 26b5a3053881 -r bcedf6eef407 lisp/pcvs-util.el --- a/lisp/pcvs-util.el Sun Dec 10 21:17:14 2000 +0000 +++ b/lisp/pcvs-util.el Sun Dec 10 21:18:03 2000 +0000 @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier ;; Keywords: pcl-cvs ;; Version: $Name: $ -;; Revision: $Id: pcvs-util.el,v 1.5 2000/11/06 06:54:16 monnier Exp $ +;; Revision: $Id: pcvs-util.el,v 1.6 2000/12/06 19:53:00 fx Exp $ ;; This file is part of GNU Emacs. @@ -94,14 +94,14 @@ (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil)) x)))) -;;;; -;;;; frame, window, buffer handling -;;;; +;;; +;;; frame, window, buffer handling +;;; (defun cvs-pop-to-buffer-same-frame (buf) "Pop to BUF like `pop-to-buffer' but staying on the same frame. If `pop-to-buffer' would have opened a new frame, this function would -try to split the a new window instead." +try to split a new window instead." (let ((pop-up-windows (or pop-up-windows pop-up-frames)) (pop-up-frames nil)) (or (let ((buf (get-buffer-window buf))) (and buf (select-window buf)))