summaryrefslogtreecommitdiff
path: root/lisp/files.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2012-12-29 16:58:41 +0200
committerEli Zaretskii <eliz@gnu.org>2012-12-29 16:58:41 +0200
commit7e56b103166f740bcfdc2d77b6b886c3c2b173c2 (patch)
tree5018ac02d6ff6fbb33030049f3ff1c2f86870d28 /lisp/files.el
parentccad023bc3c70fc8368c00f7ed2f5ec947a4260d (diff)
downloademacs-7e56b103166f740bcfdc2d77b6b886c3c2b173c2.tar.gz
Fix last commit.
lisp/files.el (basic-save-buffer): If set-file-extended-attributes fails, fall back on set-file-modes. Fixes: debbugs:13298
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el
index fb82d0dbe1f..e8be1a09047 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4621,9 +4621,11 @@ Before and after saving the buffer, this function runs
(if setmodes
(condition-case ()
(progn
- (set-file-modes buffer-file-name (car setmodes))
- (set-file-extended-attributes buffer-file-name
- (nth 1 setmodes)))
+ (unless
+ (with-demoted-errors
+ (set-file-modes buffer-file-name (car setmodes)))
+ (set-file-extended-attributes buffer-file-name
+ (nth 1 setmodes))))
(error nil))))
;; If the auto-save file was recent before this command,
;; delete it now.