diff options
| author | André Spiegel <spiegel@gnu.org> | 2006-01-22 16:10:07 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 2006-01-22 16:10:07 +0000 |
| commit | bbd883480c7711cfed104a0430c174262d9c2452 (patch) | |
| tree | 4d864f7a4df2aef461aebf62913151b9c13613a6 /lisp/vc-sccs.el | |
| parent | b010f88755f1c6db321eac9606b0464b5c660949 (diff) | |
| download | emacs-bbd883480c7711cfed104a0430c174262d9c2452.tar.gz emacs-bbd883480c7711cfed104a0430c174262d9c2452.tar.bz2 emacs-bbd883480c7711cfed104a0430c174262d9c2452.zip | |
(vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT
`string'. This allows us to get rid of `vc-user-login-name UID'.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 8f00e1df627..c4047d1b3ec 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -122,15 +122,15 @@ For a description of possible values, see `vc-check-master-templates'." ;; We have to be careful not to exclude files with execute bits on; ;; scripts can be under version control too. Also, we must ignore the ;; group-read and other-read bits, since paranoid users turn them off. - (let* ((attributes (file-attributes file)) - (owner-uid (nth 2 attributes)) + (let* ((attributes (file-attributes file 'string)) + (owner-name (nth 2 attributes)) (permissions (nth 8 attributes))) (if (string-match ".r-..-..-." permissions) 'up-to-date (if (string-match ".rw..-..-." permissions) (if (file-ownership-preserved-p file) 'edited - (vc-user-login-name owner-uid)) + owner-name) ;; Strange permissions. ;; Fall through to real state computation. (vc-sccs-state file)))) |