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 |