[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el

From: André Spiegel
Subject: [Emacs-diffs] Changes to emacs/lisp/vc-sccs.el
Date: Sun, 22 Jan 2006 16:10:07 +0000

Index: emacs/lisp/vc-sccs.el
diff -u emacs/lisp/vc-sccs.el:1.29 emacs/lisp/vc-sccs.el:1.30
--- emacs/lisp/vc-sccs.el:1.29  Tue Nov  1 10:39:41 2005
+++ emacs/lisp/vc-sccs.el       Sun Jan 22 16:10:07 2006
@@ -122,15 +122,15 @@
       ;; 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)
           (if (string-match ".rw..-..-." permissions)
               (if (file-ownership-preserved-p file)
-                (vc-user-login-name owner-uid))
+                owner-name)
             ;; Strange permissions.
             ;; Fall through to real state computation.
             (vc-sccs-state file))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]