Mercurial > emacs
comparison lisp/vc-hooks.el @ 11803:0e58ab232517
(vc-status): If vc-locking-user returns a number, compare it to (user-uid).
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 12 May 1995 16:39:32 +0000 |
| parents | 401afae906eb |
| children | df51559ee7f9 |
comparison
equal
deleted
inserted
replaced
| 11802:4edc46a02892 | 11803:0e58ab232517 |
|---|---|
| 1 ;;; vc-hooks.el --- resident support for version-control | 1 ;;; vc-hooks.el --- resident support for version-control |
| 2 | 2 |
| 3 ;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 6 ;; Modified by: | 6 ;; Modified by: |
| 7 ;; Per Cederqvist <ceder@lysator.liu.se> | 7 ;; Per Cederqvist <ceder@lysator.liu.se> |
| 8 ;; Andre Spiegel <spiegel@berlin.informatik.uni-stuttgart.de> | 8 ;; Andre Spiegel <spiegel@berlin.informatik.uni-stuttgart.de> |
| 722 | 722 |
| 723 (let ((locker (vc-locking-user file)) | 723 (let ((locker (vc-locking-user file)) |
| 724 (rev (vc-workfile-version file))) | 724 (rev (vc-workfile-version file))) |
| 725 (cond ((string= "0" rev) | 725 (cond ((string= "0" rev) |
| 726 " @@") | 726 " @@") |
| 727 ((not locker) | 727 ((not locker) |
| 728 (concat "-" rev)) | 728 (concat "-" rev)) |
| 729 ((string= locker (user-login-name)) | 729 ((if (stringp locker) |
| 730 (string= locker (user-login-name)) | |
| 731 (= locker (user-uid))) | |
| 730 (concat ":" rev)) | 732 (concat ":" rev)) |
| 731 (t | 733 (t |
| 732 (concat ":" locker ":" rev))))) | 734 (concat ":" locker ":" rev))))) |
| 733 | 735 |
| 734 ;;; install a call to the above as a find-file hook | 736 ;;; install a call to the above as a find-file hook |