Mercurial > emacs

comparison lisp/pcvs-defs.el @ 33230:feebcbad81ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-menu): Add entries for tree and insert.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 06 Nov 2000 06:56:03 +0000
parents 4580fc7c0a80
children dd613770eb0f
comparison
equal deleted inserted replaced
33229:c76308387eec 33230:feebcbad81ae
3 ;; Copyright (C) 1991-2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991-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-defs.el,v 1.4 2000/06/11 22:35:19 monnier Exp $ 8 ;; Revision: $Id: pcvs-defs.el,v 1.5 2000/06/13 19:06:07 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
160 160
161 (defcustom cvs-confirm-removals t 161 (defcustom cvs-confirm-removals t
162 "*Ask for confirmation before removing files. 162 "*Ask for confirmation before removing files.
163 Non-nil means that PCL-CVS will ask confirmation before removing files 163 Non-nil means that PCL-CVS will ask confirmation before removing files
164 except for files whose content can readily be recovered from the repository. 164 except for files whose content can readily be recovered from the repository.
165 A value of LIST means that the list of files to be deleted will be 165 A value of `list' means that the list of files to be deleted will be
166 displayed when asking for confirmation." 166 displayed when asking for confirmation."
167 :group 'pcl-cvs 167 :group 'pcl-cvs
168 :type '(choice (const list) 168 :type '(choice (const list)
169 (const t) 169 (const t)
170 (const nil))) 170 (const nil)))
298 (defconst cvs-vendor-branch "1.1.1" 298 (defconst cvs-vendor-branch "1.1.1"
299 "The default branch used by CVS for vendor code.") 299 "The default branch used by CVS for vendor code.")
300 300
301 (defvar cvs-menu 301 (defvar cvs-menu
302 '("CVS" 302 '("CVS"
303 ["Open File.." cvs-mode-find-file t] 303 ["Open file.." cvs-mode-find-file t]
304 [" ..Other Window" cvs-mode-find-file-other-window t] 304 [" ..other window" cvs-mode-find-file-other-window t]
305 ["Interactive Merge" cvs-mode-imerge t] 305 ["Interactive merge" cvs-mode-imerge t]
306 ["Interactive Diff" cvs-mode-idiff t] 306 ["Interactive diff" cvs-mode-idiff t]
307 ["View Diff" cvs-mode-diff (cvs-enabledp 'diff)] 307 ["View diff" cvs-mode-diff (cvs-enabledp 'diff)]
308 ["Diff with Vendor" cvs-mode-diff-vendor t] 308 ["Diff with vendor" cvs-mode-diff-vendor t]
309 ["Diff with Backup" cvs-mode-diff-backup t] 309 ["Diff with backup" cvs-mode-diff-backup t]
310 ["View Log" cvs-mode-log t] 310 ["View log" cvs-mode-log t]
311 ["View Status" cvs-mode-status t] 311 ["View status" cvs-mode-status t]
312 ["View tag tree" cvs-mode-tree t]
312 "----" 313 "----"
314 ["Insert" cvs-mode-insert]
313 ["Update" cvs-mode-update (cvs-enabledp 'update)] 315 ["Update" cvs-mode-update (cvs-enabledp 'update)]
314 ["Re-Examine" cvs-mode-examine t] 316 ["Re-examine" cvs-mode-examine t]
315 ["Commit" cvs-mode-commit-setup (cvs-enabledp 'commit)] 317 ["Commit" cvs-mode-commit-setup (cvs-enabledp 'commit)]
316 ["Undo Changes" cvs-mode-undo (cvs-enabledp 'undo)] 318 ["Undo changes" cvs-mode-undo (cvs-enabledp 'undo)]
317 ["Add" cvs-mode-add (cvs-enabledp 'add)] 319 ["Add" cvs-mode-add (cvs-enabledp 'add)]
318 ["Remove" cvs-mode-remove (cvs-enabledp 'remove)] 320 ["Remove" cvs-mode-remove (cvs-enabledp 'remove)]
319 ["Ignore" cvs-mode-ignore (cvs-enabledp 'ignore)] 321 ["Ignore" cvs-mode-ignore (cvs-enabledp 'ignore)]
320 ["Add ChangeLog" cvs-mode-add-change-log-entry-other-window t] 322 ["Add ChangeLog" cvs-mode-add-change-log-entry-other-window t]
321 "----" 323 "----"
322 ["Mark All" cvs-mode-mark-all-files t] 324 ["Mark all" cvs-mode-mark-all-files t]
323 ["Unmark All" cvs-mode-unmark-all-files t] 325 ["Unmark all" cvs-mode-unmark-all-files t]
324 ["Hide Handled" cvs-mode-remove-handled t] 326 ["Hide handled" cvs-mode-remove-handled t]
325 "----" 327 "----"
326 ;; ["Update Directory" cvs-update t]
327 ;; ["Examine Directory" cvs-examine t]
328 ;; ["Status Directory" cvs-status t]
329 ;; ["Checkout Module" cvs-checkout t]
330 ;; "----"
331 ["Quit" cvs-mode-quit t] 328 ["Quit" cvs-mode-quit t]
332 )) 329 ))
333 330
334 (easy-mmode-defmap cvs-mode-diff-map 331 (easy-mmode-defmap cvs-mode-diff-map
335 '(("=" . cvs-mode-diff) 332 '(("=" . cvs-mode-diff)