[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp.el |
Date: |
Tue, 30 Jun 2009 15:23:36 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/06/30 15:23:36
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&r1=1.239&r2=1.240
Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.239
retrieving revision 1.240
diff -u -b -r1.239 -r1.240
--- tramp.el 30 Jun 2009 11:55:19 -0000 1.239
+++ tramp.el 30 Jun 2009 15:23:36 -0000 1.240
@@ -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."
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/06
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/07
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/22
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/29
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/30
- [Emacs-diffs] emacs/lisp/net tramp.el,
Michael Albinus <=
- [Emacs-diffs] emacs/lisp/net tramp.el, Michael Albinus, 2009/06/30