Mercurial > hg > xemacs-beta

comparison lisp/pcl-cvs/pcl-cvs.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 8619ce7e4c50
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
1 ;;; 1 ;;;
2 ;;;#ident "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp " 2 ;;;#ident "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp "
3 ;;; 3 ;;;
4 ;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: r20-1b9 $:$Id: pcl-cvs.el,v 1.3 1997/03/22 06:02:36 steve Exp $" 4 ;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: r20-2b5 $:$Id: pcl-cvs.el,v 1.4 1997/05/09 03:28:08 steve Exp $"
5 ;;; 5 ;;;
6 ;;; pcl-cvs.el -- A Front-end to CVS 1.3 or later. 6 ;;; pcl-cvs.el -- A Front-end to CVS 1.3 or later.
7 ;;; Release 1.05-CVS-$Name: r20-1b9 $. 7 ;;; Release 1.05-CVS-$Name: r20-2b5 $.
8 ;;; Copyright (C) 1991, 1992, 1993 Per Cederqvist 8 ;;; Copyright (C) 1991, 1992, 1993 Per Cederqvist
9 9
10 ;;; This program is free software; you can redistribute it and/or modify 10 ;;; This program is free software; you can redistribute it and/or modify
11 ;;; it under the terms of the GNU General Public License as published by 11 ;;; it under the terms of the GNU General Public License as published by
12 ;;; the Free Software Foundation; either version 2 of the License, or 12 ;;; the Free Software Foundation; either version 2 of the License, or
124 ;; delete-exited-processes is t. 124 ;; delete-exited-processes is t.
125 125
126 ;;; END OF THINGS TO CHECK WHEN INSTALLING 126 ;;; END OF THINGS TO CHECK WHEN INSTALLING
127 ;;; -------------------------------------------------------- 127 ;;; --------------------------------------------------------
128 128
129 (defconst pcl-cvs-version "1.05-CVS-$Name: r20-1b9 $" 129 (defconst pcl-cvs-version "1.05-CVS-$Name: r20-2b5 $"
130 "A string denoting the current release version of pcl-cvs.") 130 "A string denoting the current release version of pcl-cvs.")
131 131
132 ;; You are NOT allowed to disable this message by default. However, you 132 ;; You are NOT allowed to disable this message by default. However, you
133 ;; are encouraged to inform your users that by adding 133 ;; are encouraged to inform your users that by adding
134 ;; (setq cvs-inhibit-copyright-message t) 134 ;; (setq cvs-inhibit-copyright-message t)
137 (defvar cvs-inhibit-copyright-message nil 137 (defvar cvs-inhibit-copyright-message nil
138 "*Non-nil means don't display a Copyright message in the ``*cvs*'' buffer.") 138 "*Non-nil means don't display a Copyright message in the ``*cvs*'' buffer.")
139 139
140 (defconst cvs-startup-message 140 (defconst cvs-startup-message
141 (if cvs-inhibit-copyright-message 141 (if cvs-inhibit-copyright-message
142 "PCL-CVS release 1.05-CVS-$Name: r20-1b9 $" 142 "PCL-CVS release 1.05-CVS-$Name: r20-2b5 $"
143 "PCL-CVS release 1.05 from CVS release $Name: r20-1b9 $. 143 "PCL-CVS release 1.05 from CVS release $Name: r20-2b5 $.
144 Copyright (C) 1992, 1993 Per Cederqvist 144 Copyright (C) 1992, 1993 Per Cederqvist
145 Pcl-cvs comes with absolutely no warranty; for details consult the manual. 145 Pcl-cvs comes with absolutely no warranty; for details consult the manual.
146 This is free software, and you are welcome to redistribute it under certain 146 This is free software, and you are welcome to redistribute it under certain
147 conditions; again, consult the TeXinfo manual for details.") 147 conditions; again, consult the TeXinfo manual for details.")
148 "*Startup message for CVS.") 148 "*Startup message for CVS.")
505 If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." 505 If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run."
506 506
507 (interactive (list (read-file-name "CVS Update (directory): " 507 (interactive (list (read-file-name "CVS Update (directory): "
508 nil default-directory nil) 508 nil default-directory nil)
509 current-prefix-arg)) 509 current-prefix-arg))
510 (cvs-do-update directory local nil) 510 ;; If the previous prompt was in a dialog box, the save-some-buffers
511 ;; call in cvs-do-update will lose.
512 (let ((use-dialog-box nil))
513 (cvs-do-update directory local nil))
511 (switch-to-buffer cvs-buffer-name)) 514 (switch-to-buffer cvs-buffer-name))
512 515
513 ;;---------- 516 ;;----------
514 ;;;###autoload 517 ;;;###autoload
515 (defun cvs-update-other-window (directory &optional local) 518 (defun cvs-update-other-window (directory &optional local)
722 \\[cvs-mode-tag] Run ``cvs tag''. \\[cvs-mode-rtag] Run ``cvs rtag''. 725 \\[cvs-mode-tag] Run ``cvs tag''. \\[cvs-mode-rtag] Run ``cvs rtag''.
723 \\[cvs-mode-changelog-commit] Like \\[cvs-mode-commit], but get default log text from ChangeLog. 726 \\[cvs-mode-changelog-commit] Like \\[cvs-mode-commit], but get default log text from ChangeLog.
724 \\[cvs-mode-undo-local-changes] Revert the last checked in version - discard your changes to the file. 727 \\[cvs-mode-undo-local-changes] Revert the last checked in version - discard your changes to the file.
725 728
726 Entry to this mode runs cvs-mode-hook. 729 Entry to this mode runs cvs-mode-hook.
727 This description is updated for release 1.05-CVS-$Name: r20-1b9 $ of pcl-cvs. 730 This description is updated for release 1.05-CVS-$Name: r20-2b5 $ of pcl-cvs.
728 731
729 All bindings: 732 All bindings:
730 \\{cvs-mode-map}" 733 \\{cvs-mode-map}"
731 734
732 (interactive) 735 (interactive)
1011 (insert "Optional args: \"" indicator "\".\n")) 1014 (insert "Optional args: \"" indicator "\".\n"))
1012 (insert "\nEmacs-version: " (emacs-version) "\n") 1015 (insert "\nEmacs-version: " (emacs-version) "\n")
1013 (insert "Pcl-cvs Version: " 1016 (insert "Pcl-cvs Version: "
1014 "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp\n") 1017 "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp\n")
1015 (insert "CVS Version: " 1018 (insert "CVS Version: "
1016 "@(#)lisp/pcl-cvs:$Name: r20-1b9 $:$Id: pcl-cvs.el,v 1.3 1997/03/22 06:02:36 steve Exp $\n\n") 1019 "@(#)lisp/pcl-cvs:$Name: r20-2b5 $:$Id: pcl-cvs.el,v 1.4 1997/05/09 03:28:08 steve Exp $\n\n")
1017 (insert (format "--- Contents of stdout buffer (%d chars) ---\n" 1020 (insert (format "--- Contents of stdout buffer (%d chars) ---\n"
1018 (length stdout))) 1021 (length stdout)))
1019 (insert stdout) 1022 (insert stdout)
1020 (insert "--- End of stdout buffer ---\n") 1023 (insert "--- End of stdout buffer ---\n")
1021 (insert (format "--- Contents of stderr buffer (%d chars) ---\n" 1024 (insert (format "--- Contents of stderr buffer (%d chars) ---\n"