diff options
| author | Stefan Monnier | 2000-12-10 21:18:03 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-12-10 21:18:03 +0000 |
| commit | 178917f7f2a2536757adeb6d7bfb28ed026c37dc (patch) | |
| tree | 03ebe7e2ec44dbaed6d5938dab4a7278f1d5e1fe | |
| parent | 4f5a9d2b27f17a00cbc7cfbde6f073bf413f5c4c (diff) | |
| download | emacs-178917f7f2a2536757adeb6d7bfb28ed026c37dc.tar.gz emacs-178917f7f2a2536757adeb6d7bfb28ed026c37dc.zip | |
Minor doc/comment changes.
| -rw-r--r-- | lisp/pcvs-util.el | 10 |
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. |
| 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))) |