comparison lisp/pcvs-util.el @ 34407:bcedf6eef407

Minor doc/comment changes.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Dec 2000 21:18:03 +0000
parents dd613770eb0f
children 45a589a4c480
comparison
equal deleted inserted replaced
34406:26b5a3053881 34407:bcedf6eef407
3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: pcl-cvs 6 ;; Keywords: pcl-cvs
7 ;; Version: $Name: $ 7 ;; Version: $Name: $
8 ;; Revision: $Id: pcvs-util.el,v 1.5 2000/11/06 06:54:16 monnier Exp $ 8 ;; Revision: $Id: pcvs-util.el,v 1.6 2000/12/06 19:53:00 fx Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
92 (and (< n m) 92 (and (< n m)
93 (progn 93 (progn
94 (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil)) 94 (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
95 x)))) 95 x))))
96 96
97 ;;;; 97 ;;;
98 ;;;; frame, window, buffer handling 98 ;;; frame, window, buffer handling
99 ;;;; 99 ;;;
100 100
101 (defun cvs-pop-to-buffer-same-frame (buf) 101 (defun cvs-pop-to-buffer-same-frame (buf)
102 "Pop to BUF like `pop-to-buffer' but staying on the same frame. 102 "Pop to BUF like `pop-to-buffer' but staying on the same frame.
103 If `pop-to-buffer' would have opened a new frame, this function would 103 If `pop-to-buffer' would have opened a new frame, this function would
104 try to split the a new window instead." 104 try to split a new window instead."
105 (let ((pop-up-windows (or pop-up-windows pop-up-frames)) 105 (let ((pop-up-windows (or pop-up-windows pop-up-frames))
106 (pop-up-frames nil)) 106 (pop-up-frames nil))
107 (or (let ((buf (get-buffer-window buf))) (and buf (select-window buf))) 107 (or (let ((buf (get-buffer-window buf))) (and buf (select-window buf)))
108 (and pop-up-windows 108 (and pop-up-windows
109 (ignore-errors (select-window (split-window-vertically))) 109 (ignore-errors (select-window (split-window-vertically)))