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

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

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

revision 1.23 by spiegel, Mon Feb 25 22:04:29 2002 UTC revision 1.24 by spiegel, Mon Mar 18 17:17:38 2002 UTC
# Line 58  by \\[vc-rcs-register]." Line 58  by \\[vc-rcs-register]."
58    :version "21.1"    :version "21.1"
59    :group 'vc)    :group 'vc)
60    
 (defcustom vc-rcs-checkin-switches nil  
   "*A string or list of strings specifying extra switches for RCS checkin.  
 These are passed to the checkin program by \\[vc-rcs-checkin]."  
   :type '(choice (const :tag "None" nil)  
                  (string :tag "Argument String")  
                  (repeat :tag "Argument List"  
                          :value ("")  
                          string))  
   :version "21.1"  
   :group 'vc)  
   
 (defcustom vc-rcs-checkout-switches nil  
   "*A string or list of strings specifying extra switches for RCS checkout.  
 These are passed to the checkout program by \\[vc-rcs-checkout]."  
   :type '(choice (const :tag "None" nil)  
                  (string :tag "Argument String")  
                  (repeat :tag "Argument List"  
                          :value ("")  
                          string))  
   :version "21.1"  
   :group 'vc)  
   
61  (defcustom vc-rcs-diff-switches nil  (defcustom vc-rcs-diff-switches nil
62    "*A string or list of strings specifying extra switches for rcsdiff under VC."    "*A string or list of strings specifying extra switches for rcsdiff under VC."
63    :type '(choice (const :tag "None" nil)    :type '(choice (const :tag "None" nil)
# Line 254  the RCS command (in that order). Line 232  the RCS command (in that order).
232  Automatically retrieve a read-only version of the file with keywords  Automatically retrieve a read-only version of the file with keywords
233  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
234      (let ((subdir (expand-file-name "RCS" (file-name-directory file)))      (let ((subdir (expand-file-name "RCS" (file-name-directory file)))
235            (switches (list            (switches (append
236                       (if (stringp vc-register-switches)                       (if (stringp vc-register-switches)
237                           (list vc-register-switches)                           (list vc-register-switches)
238                         vc-register-switches)                         vc-register-switches)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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