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

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

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

revision 1.1 by monnier, Mon May 5 15:40:49 2003 UTC revision 1.2 by monnier, Mon May 5 15:49:23 2003 UTC
# Line 131  by these regular expressions." Line 131  by these regular expressions."
131        (condition-case nil        (condition-case nil
132            (vc-svn-command t 0 file "status" "-v")            (vc-svn-command t 0 file "status" "-v")
133          ;; We can't find an `svn' executable.  We could also deregister SVN.          ;; We can't find an `svn' executable.  We could also deregister SVN.
134          (file-error nil)          (file-error nil))
135        (vc-svn-parse-status t)        (vc-svn-parse-status t)
136        (eq 'SVN (vc-file-getprop file 'vc-backend)))))        (eq 'SVN (vc-file-getprop file 'vc-backend)))))
137    
# Line 454  The changes are between FIRST-VERSION an Line 454  The changes are between FIRST-VERSION an
454              (diff-switches-list (vc-diff-switches-list 'SVN)))              (diff-switches-list (vc-diff-switches-list 'SVN)))
455          (apply 'vc-svn-command "*vc-diff*" 1 nil "diff"          (apply 'vc-svn-command "*vc-diff*" 1 nil "diff"
456                 (append                 (append
457                  (when oldvers                  (when rev1
458                    (list "-r"                    (list "-r"
459                          (if rev2 (concat rev1 ":" rev2) rev1)))                          (if rev2 (concat rev1 ":" rev2) rev1)))
460                  (when diff-switches-list                  (when diff-switches-list

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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