Mercurial > emacs

comparison lisp/url/vc-dav.el @ 83353:532e0a9335a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * lorentey@elte.hu--2004/emacs--cvs-trunk--0--base-0 tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-474 * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * lorentey@elte.hu--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-393
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 04 Sep 2005 03:48:17 +0000
parents 6c13700d1c13 875dcc490074
children d04d8ccb3c41
comparison
equal deleted inserted replaced
83352:b258b3492423 83353:532e0a9335a9
1 ;;; vc-dav.el --- vc.el support for WebDAV 1 ;;; vc-dav.el --- vc.el support for WebDAV
2 2
3 ;; Copyright (C) 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 2001, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Bill Perry <wmperry@gnu.org> 5 ;; Author: Bill Perry <wmperry@gnu.org>
6 ;; Maintainer: Bill Perry <wmperry@gnu.org> 6 ;; Maintainer: Bill Perry <wmperry@gnu.org>
7 ;; Keywords: url, vc 7 ;; Keywords: url, vc
8 8
55 (setq locks (cdr (assoc url locks))) 55 (setq locks (cdr (assoc url locks)))
56 (if (rassoc url-dav-lock-identifier locks) 56 (if (rassoc url-dav-lock-identifier locks)
57 ;; _WE_ have a lock 57 ;; _WE_ have a lock
58 'edited 58 'edited
59 (cdr (car locks))))))) 59 (cdr (car locks)))))))
60 60
61 (defun vc-dav-checkout-model (url) 61 (defun vc-dav-checkout-model (url)
62 "Indicate whether URL needs to be \"checked out\" before it can be edited. 62 "Indicate whether URL needs to be \"checked out\" before it can be edited.
63 See `vc-checkout-model' for a list of possible values." 63 See `vc-checkout-model' for a list of possible values."
64 ;; The only thing we can support with webdav is 'locking 64 ;; The only thing we can support with webdav is 'locking
65 'locking) 65 'locking)