[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp.el [EMACS_23_1_RC]
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp.el [EMACS_23_1_RC] |
Date: |
Tue, 30 Jun 2009 15:30:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Michael Albinus <albinus> 09/06/30 15:30:11
Modified files:
lisp/net : tramp.el
Log message:
* net/tramp.el (tramp-default-file-modes) Remove execute permissions.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.236.2.2&r2=1.236.2.3
Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.236.2.2
retrieving revision 1.236.2.3
diff -u -b -r1.236.2.2 -r1.236.2.3
--- tramp.el 30 Jun 2009 12:09:26 -0000 1.236.2.2
+++ tramp.el 30 Jun 2009 15:30:09 -0000 1.236.2.3
@@ -2767,8 +2767,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."