Mercurial > emacs
comparison lisp/vc-hooks.el @ 13011:53b0ff7a477f
(vc-locking-user): Fixed wrong parentheses.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Fri, 08 Sep 1995 20:38:53 +0000 |
| parents | ee545522ef2a |
| children | 1f9b08a989ea |
comparison
equal
deleted
inserted
replaced
| 13010:06f8e805121d | 13011:53b0ff7a477f |
|---|---|
| 623 (vc-rcs-lock-from-diff file)))) | 623 (vc-rcs-lock-from-diff file)))) |
| 624 | 624 |
| 625 ((eq (vc-backend file) 'SCCS) | 625 ((eq (vc-backend file) 'SCCS) |
| 626 (or (vc-lock-from-permissions file) | 626 (or (vc-lock-from-permissions file) |
| 627 (vc-file-setprop file 'vc-locking-user | 627 (vc-file-setprop file 'vc-locking-user |
| 628 (vc-master-locking-user file)))))) | 628 (vc-master-locking-user file))))) |
| 629 | 629 |
| 630 ;; convert a possible 'none value | 630 ;; convert a possible 'none value |
| 631 (setq locking-user (vc-file-getprop file 'vc-locking-user)) | 631 (setq locking-user (vc-file-getprop file 'vc-locking-user)) |
| 632 (if (eq locking-user 'none) nil locking-user))) | 632 (if (eq locking-user 'none) nil locking-user)))) |
| 633 | 633 |
| 634 ;;; properties to store current and recent version numbers | 634 ;;; properties to store current and recent version numbers |
| 635 | 635 |
| 636 (defun vc-latest-version (file) | 636 (defun vc-latest-version (file) |
| 637 ;; Return version level of the latest version of FILE | 637 ;; Return version level of the latest version of FILE |