/[emacs]/emacs/lisp/vc-mcvs.el
ViewVC logotype

Diff of /emacs/lisp/vc-mcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by spiegel, Sun Jan 9 21:29:54 2005 UTC revision 1.17 by kfstorm, Wed Feb 9 15:50:40 2005 UTC
# Line 70  Line 70 
70                   (repeat :tag "Argument List"                   (repeat :tag "Argument List"
71                           :value ("")                           :value ("")
72                           string))                           string))
73    :version "21.4"    :version "22.1"
74    :group 'vc)    :group 'vc)
75    
76  (defcustom vc-mcvs-register-switches nil  (defcustom vc-mcvs-register-switches nil
# Line 82  A string or list of strings passed to th Line 82  A string or list of strings passed to th
82                   (repeat :tag "Argument List"                   (repeat :tag "Argument List"
83                           :value ("")                           :value ("")
84                           string))                           string))
85    :version "21.4"    :version "22.1"
86    :group 'vc)    :group 'vc)
87    
88  (defcustom vc-mcvs-diff-switches nil  (defcustom vc-mcvs-diff-switches nil
# Line 92  A string or list of strings passed to th Line 92  A string or list of strings passed to th
92                   (repeat :tag "Argument List"                   (repeat :tag "Argument List"
93                           :value ("")                           :value ("")
94                           string))                           string))
95    :version "21.4"    :version "22.1"
96    :group 'vc)    :group 'vc)
97    
98  (defcustom vc-mcvs-header (or (cdr (assoc 'MCVS vc-header-alist))  (defcustom vc-mcvs-header (or (cdr (assoc 'MCVS vc-header-alist))
99                                vc-cvs-header)                                vc-cvs-header)
100    "*Header keywords to be inserted by `vc-insert-headers'."    "*Header keywords to be inserted by `vc-insert-headers'."
101    :version "21.4"    :version "22.1"
102    :type '(repeat string)    :type '(repeat string)
103    :group 'vc)    :group 'vc)
104    
# Line 107  A string or list of strings passed to th Line 107  A string or list of strings passed to th
107  This is only meaningful if you don't use the implicit checkout model  This is only meaningful if you don't use the implicit checkout model
108  \(i.e. if you have $CVSREAD set)."  \(i.e. if you have $CVSREAD set)."
109    :type 'boolean    :type 'boolean
110    :version "21.4"    :version "22.1"
111    :group 'vc)    :group 'vc)
112    
113  ;;;  ;;;
# Line 447  The changes are between FIRST-VERSION an Line 447  The changes are between FIRST-VERSION an
447          ;; Even if it's empty, it's locally modified.          ;; Even if it's empty, it's locally modified.
448          1)          1)
449      (let* ((async (and (not vc-disable-async-diff)      (let* ((async (and (not vc-disable-async-diff)
450                         (vc-stay-local-p file)                         (vc-stay-local-p file)
451                         (fboundp 'start-process)))                         (fboundp 'start-process)))
452             ;; Run the command from the root dir so that `mcvs filt' returns             ;; Run the command from the root dir so that `mcvs filt' returns
453             ;; valid relative names.             ;; valid relative names.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26