# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1246375416 0
# Node ID 6be9692e90bfbc720b75e51bb41f0eb873de190c
# Parent  35dac8ec1522410bde1e82d78d39cf04912aa081
* net/tramp.el (tramp-default-file-modes) Remove execute permissions.

diff -r 35dac8ec1522 -r 6be9692e90bf lisp/net/tramp.el
--- a/lisp/net/tramp.el	Tue Jun 30 14:48:06 2009 +0000
+++ b/lisp/net/tramp.el	Tue Jun 30 15:23:36 2009 +0000
@@ -2789,8 +2789,9 @@
 (defun tramp-default-file-modes (filename)
   "Return file modes of FILENAME as integer.
 If the file modes of FILENAME cannot be determined, return the
-value of `default-file-modes'."
-  (or (file-modes filename) (default-file-modes)))
+value of `default-file-modes', without execute permissions."
+  (or (file-modes filename)
+      (logand (default-file-modes) (tramp-octal-to-decimal "0666"))))
 
 (defun tramp-handle-file-directory-p (filename)
   "Like `file-directory-p' for Tramp files."