Mercurial > emacs
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))) |