Mercurial > emacs
comparison lisp/vc-svn.el @ 94519:44d4506fa470
Comment cleanup (no code change).
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Thu, 01 May 2008 16:40:14 +0000 |
parents | ad6c174910db |
children | 2a61c5f918a5 |
comparison
equal
deleted
inserted
replaced
94518:7bd70b5b8bda | 94519:44d4506fa470 |
---|---|
298 nil | 298 nil |
299 ;; Check out a particular version (or recreate the file). | 299 ;; Check out a particular version (or recreate the file). |
300 (vc-file-setprop file 'vc-working-revision nil) | 300 (vc-file-setprop file 'vc-working-revision nil) |
301 (apply 'vc-svn-command nil 0 file | 301 (apply 'vc-svn-command nil 0 file |
302 "update" | 302 "update" |
303 ;; default for verbose checkout: clear the sticky tag so | |
304 ;; that the actual update will get the head of the trunk | |
305 (cond | 303 (cond |
306 ((null rev) "-rBASE") | 304 ((null rev) "-rBASE") |
307 ((or (eq rev t) (equal rev "")) nil) | 305 ((or (eq rev t) (equal rev "")) nil) |
308 (t (concat "-r" rev))) | 306 (t (concat "-r" rev))) |
309 switches))) | 307 switches))) |