diff options
author | Glenn Morris <rgm@gnu.org> | 2014-05-10 13:48:36 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-05-10 13:48:36 -0700 |
commit | 8c6699ab19d4fed0baa98988accbd8141ae81fe9 (patch) | |
tree | ca402ec56e923fc0d5bc66b94e8af92b5e231d80 /lisp/net/browse-url.el | |
parent | 5d03fb436fcfb1fe704cc7a66dec7bd2d21d49f1 (diff) | |
download | emacs-8c6699ab19d4fed0baa98988accbd8141ae81fe9.tar.gz |
* browse-url.el (browse-url-mosaic): Create /tmp/Mosaic.PID as a private file.
Diffstat (limited to 'lisp/net/browse-url.el')
-rw-r--r-- | lisp/net/browse-url.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 80dffb3fa4a..33f4eda9604 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -1343,10 +1343,16 @@ used instead of `browse-url-new-window-flag'." "newwin\n" "goto\n") url "\n") - (if (file-exists-p (setq pidfile (format "/tmp/Mosaic.%d" pid))) - (delete-file pidfile)) - ;; http://debbugs.gnu.org/17428. Use O_EXCL. - (write-region nil nil pidfile nil 'silent nil 'excl)) + (let ((umask (default-file-modes))) + (unwind-protect + (progn + (set-default-file-modes ?\700) + (if (file-exists-p + (setq pidfile (format "/tmp/Mosaic.%d" pid))) + (delete-file pidfile)) + ;; http://debbugs.gnu.org/17428. Use O_EXCL. + (write-region nil nil pidfile nil 'silent nil 'excl)) + (set-default-file-modes umask)))) ;; Send signal SIGUSR to Mosaic (message "Signaling Mosaic...") (signal-process pid 'SIGUSR1) |