Mercurial > hg > xemacs-beta

comparison lisp/packages/generic-sc.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
34 ;; (eric@snark.thyrsus.com) which was distantly derived from an rcs 34 ;; (eric@snark.thyrsus.com) which was distantly derived from an rcs
35 ;; mode written by Ed Simpson ({decvax, seismo}!mcnc!duke!dukecdu!evs) 35 ;; mode written by Ed Simpson ({decvax, seismo}!mcnc!duke!dukecdu!evs)
36 ;; in years gone by and revised at MIT's Project Athena. 36 ;; in years gone by and revised at MIT's Project Athena.
37 37
38 ;;; This can be customized by the user 38 ;;; This can be customized by the user
39 (defvar sc-diff-command '("diff") 39
40 "*The command/flags list to be used in constructing diff commands.") 40 (defgroup generic-sc nil
41 "Generic interface to source control systems"
42 :prefix "sc-"
43 :group 'tools)
44
45
46 (defcustom sc-diff-command '("diff")
47 "*The command/flags list to be used in constructing diff commands."
48 :type '(repeat string)
49 :group 'generic-sc)
41 50
42 ;; Duplicated from pcl-cvs. 51 ;; Duplicated from pcl-cvs.
43 (defvar cvs-program "cvs" 52 (defvar cvs-program "cvs"
44 "*The command name of the cvs program.") 53 "*The command name of the cvs program.")
45 54
46 (defvar sc-mode-expert () 55 (defcustom sc-mode-expert ()
47 "*Treat user as expert; suppress yes-no prompts on some things.") 56 "*Treat user as expert; suppress yes-no prompts on some things."
48 57 :type 'boolean
49 (defvar sc-max-log-size 510 58 :group 'generic-sc)
50 "*Maximum allowable size of a source control log message.") 59
51 60 (defcustom sc-max-log-size 510
52 (defvar sc-ccase-comment-on '(checkout checkout-dir checkin-dir rename 61 "*Maximum allowable size of a source control log message."
62 :type 'integer
63 :group 'generic-sc)
64
65 (defcustom sc-ccase-comment-on '(checkout checkout-dir checkin-dir rename
53 new-brtype new-branch checkin-merge 66 new-brtype new-branch checkin-merge
54 create-label label-sources) 67 create-label label-sources)
55 "*Operations on which comments would be appreciated. 68 "*Operations on which comments would be appreciated.
56 We check the values checkout, checkout-dir, checkin-dir, 69 We check the values checkout, checkout-dir, checkin-dir,
57 rename, new-brtype, new-branch, create-label, 70 rename, new-brtype, new-branch, create-label,
58 and label-sources as symbols.") 71 and label-sources as symbols."
72 :type '(repeat symbol)
73 :group 'generic-sc)
59 74
60 (defvar sc-ccase-reserve nil 75 (defvar sc-ccase-reserve nil
61 "Whether to reserve checkouts or not. By default, this is nil - don't. 76 "Whether to reserve checkouts or not. By default, this is nil - don't.
62 Other values are t - do, and anything else, eg. 'ask - ask.") 77 Other values are t - do, and anything else, eg. 'ask - ask.")
63 78