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 | |
| parent | 5d03fb436fcfb1fe704cc7a66dec7bd2d21d49f1 (diff) | |
| download | emacs-8c6699ab19d4fed0baa98988accbd8141ae81fe9.tar.gz | |
* browse-url.el (browse-url-mosaic): Create /tmp/Mosaic.PID as a private file.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/browse-url.el | 14 |
2 files changed, 15 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0fa0c93915a..22e45c46940 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-05-10 Glenn Morris <rgm@gnu.org> + + * net/browse-url.el (browse-url-mosaic): + Create /tmp/Mosaic.PID as a private file. + 2014-05-10 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/nadvice.el: Support adding a given function multiple times. 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) |