Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8c6699ab
Commit
8c6699ab
authored
May 10, 2014
by
Glenn Morris
Browse files
* browse-url.el (browse-url-mosaic): Create /tmp/Mosaic.PID as a private file.
parent
5d03fb43
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
4 deletions
+15
-4
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/net/browse-url.el
lisp/net/browse-url.el
+10
-4
No files found.
lisp/ChangeLog
View file @
8c6699ab
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.
...
...
lisp/net/browse-url.el
View file @
8c6699ab
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment