aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-12-10 21:18:03 +0000
committerStefan Monnier2000-12-10 21:18:03 +0000
commit178917f7f2a2536757adeb6d7bfb28ed026c37dc (patch)
tree03ebe7e2ec44dbaed6d5938dab4a7278f1d5e1fe
parent4f5a9d2b27f17a00cbc7cfbde6f073bf413f5c4c (diff)
downloademacs-178917f7f2a2536757adeb6d7bfb28ed026c37dc.tar.gz
emacs-178917f7f2a2536757adeb6d7bfb28ed026c37dc.zip
Minor doc/comment changes.
-rw-r--r--lisp/pcvs-util.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index 7d81738d7e8..506d0af49aa 100644
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -5,7 +5,7 @@
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
@@ -94,14 +94,14 @@ the other elements. The ordering among elements is maintained."
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.
103If `pop-to-buffer' would have opened a new frame, this function would 103If `pop-to-buffer' would have opened a new frame, this function would
104try to split the a new window instead." 104try 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)))