1216 |
(save-buffer) |
(save-buffer) |
1217 |
(kill-buffer nil) |
(kill-buffer nil) |
1218 |
;; Send signal SIGUSR to Mosaic |
;; Send signal SIGUSR to Mosaic |
1219 |
(message "Signalling Mosaic...") |
(message "Signaling Mosaic...") |
1220 |
(signal-process pid 'SIGUSR1) |
(signal-process pid 'SIGUSR1) |
1221 |
;; Or you could try: |
;; Or you could try: |
1222 |
;; (call-process "kill" nil 0 nil "-USR1" (int-to-string pid)) |
;; (call-process "kill" nil 0 nil "-USR1" (int-to-string pid)) |
1223 |
(message "Signalling Mosaic...done") |
(message "Signaling Mosaic...done") |
1224 |
) |
) |
1225 |
;; Mosaic not running - start it |
;; Mosaic not running - start it |
1226 |
(message "Starting %s..." browse-url-mosaic-program) |
(message "Starting %s..." browse-url-mosaic-program) |