1518 |
(url-mailto parsed-url) |
(url-mailto parsed-url) |
1519 |
(error "Unsupported URL scheme: %s" (url-type parsed-url))))) |
(error "Unsupported URL scheme: %s" (url-type parsed-url))))) |
1520 |
|
|
1521 |
|
(setq mac-apple-event-map (make-sparse-keymap)) |
1522 |
|
|
1523 |
;; Received when Emacs is launched without associated documents. |
;; Received when Emacs is launched without associated documents. |
1524 |
;; Accept it as an Apple event, but no Emacs event is generated so as |
;; Accept it as an Apple event, but no Emacs event is generated so as |
1525 |
;; not to erase the splash screen. |
;; not to erase the splash screen. |