From 50605fe88c7c777592a4a785c92004d757809428 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Tue, 21 Nov 2023 11:15:45 +0100 Subject: [PATCH] Set a new desktop file to mode 0600 * lisp/desktop.el (desktop-save): Set a new desktop file to mode 0600 by default. --- lisp/desktop.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/desktop.el b/lisp/desktop.el index f096f13ab80..dc6b48f8844 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -1158,6 +1158,13 @@ desktop-save (desktop-release-lock) (unless (and new-modtime (desktop-owner)) (desktop-claim-lock))) + ;; If the desktop file does not exist, create one only + ;; read/writable by user. + (let ((full-name (desktop-full-file-name))) + (unless (file-exists-p full-name) + (make-empty-file full-name) + (set-file-modes full-name #o600))) + ;; What format are we going to write the file in? (setq desktop-io-file-version (cond -- 2.42.1