1377 |
(save-buffer) ; It pops up the save dialog. |
(save-buffer) ; It pops up the save dialog. |
1378 |
) |
) |
1379 |
|
|
1380 |
|
(defun mac-services-mail-selection () |
1381 |
|
(interactive) |
1382 |
|
(compose-mail) |
1383 |
|
(rfc822-goto-eoh) |
1384 |
|
(forward-line 1) |
1385 |
|
(insert (x-selection-value mac-services-selection) "\n")) |
1386 |
|
|
1387 |
|
(defun mac-services-mail-to () |
1388 |
|
(interactive) |
1389 |
|
(compose-mail (x-selection-value mac-services-selection))) |
1390 |
|
|
1391 |
(defun mac-services-insert-text () |
(defun mac-services-insert-text () |
1392 |
(interactive) |
(interactive) |
1393 |
(let ((text (x-selection-value mac-services-selection))) |
(let ((text (x-selection-value mac-services-selection))) |
1404 |
'mac-services-open-file) |
'mac-services-open-file) |
1405 |
(define-key mac-application-menu-map [services perform open-selection] |
(define-key mac-application-menu-map [services perform open-selection] |
1406 |
'mac-services-open-selection) |
'mac-services-open-selection) |
1407 |
|
(define-key mac-application-menu-map [services perform mail-selection] |
1408 |
|
'mac-services-mail-selection) |
1409 |
|
(define-key mac-application-menu-map [services perform mail-to] |
1410 |
|
'mac-services-mail-to) |
1411 |
(define-key mac-application-menu-map [services paste] |
(define-key mac-application-menu-map [services paste] |
1412 |
'mac-services-insert-text) |
'mac-services-insert-text) |
1413 |
(define-key mac-application-menu-map [preferences] 'customize) |
(define-key mac-application-menu-map [preferences] 'customize) |