Mercurial > hg > xemacs-beta

comparison lisp/packages/vc.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 54cc21c15cbb
children 360340f9fd5f
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
112 112
113 (defconst vc-maximum-comment-ring-size 32 113 (defconst vc-maximum-comment-ring-size 32
114 "Maximum number of saved comments in the comment ring.") 114 "Maximum number of saved comments in the comment ring.")
115 115
116 ;;; XEmacs - This is dumped into loaddefs.el already. 116 ;;; XEmacs - This is dumped into loaddefs.el already.
117 ;; (defvar diff-switches "-c" 117 ;; Not any more! -sb
118 ;; "*A string or list of strings specifying switches to be passed to diff.") 118 (defvar diff-switches "-c"
119 "*A string or list of strings specifying switches to be passed to diff.")
119 120
120 ;;;###autoload 121 ;;;###autoload
121 (defvar vc-checkin-hook nil 122 (defvar vc-checkin-hook nil
122 "*List of functions called after a checkin is done. See `run-hooks'.") 123 "*List of functions called after a checkin is done. See `run-hooks'.")
123 124
2018 ;; Print change log associated with FILE to buffer *vc*. 2019 ;; Print change log associated with FILE to buffer *vc*.
2019 (vc-backend-dispatch 2020 (vc-backend-dispatch
2020 file 2021 file
2021 (vc-do-command 0 "prs" file 'MASTER) 2022 (vc-do-command 0 "prs" file 'MASTER)
2022 (vc-do-command 0 "rlog" file 'MASTER) 2023 (vc-do-command 0 "rlog" file 'MASTER)
2023 (vc-do-command 0 "cvs" file 'WORKFILE "rlog") 2024 (vc-do-command 0 "cvs" file 'WORKFILE "log")
2024 (vc-do-command 0 "cleartool" file 'WORKFILE "lshistory"))) 2025 (vc-do-command 0 "cleartool" file 'WORKFILE "lshistory")))
2025 2026
2026 (defun vc-backend-assign-name (file name) 2027 (defun vc-backend-assign-name (file name)
2027 ;; Assign to a FILE's latest version a given NAME. 2028 ;; Assign to a FILE's latest version a given NAME.
2028 (vc-backend-dispatch file 2029 (vc-backend-dispatch file