Mercurial > emacs
changeset 64245:4748803d9fb2
(mac-services-mail-selection, mac-services-mail-to): New functions.
(mac-application-menu-map): Bind them.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Tue, 12 Jul 2005 11:32:40 +0000 |
| parents | 118ee9a8f53a |
| children | 269f91810e62 |
| files | lisp/term/mac-win.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/mac-win.el Tue Jul 12 06:18:38 2005 +0000 +++ b/lisp/term/mac-win.el Tue Jul 12 11:32:40 2005 +0000 @@ -1377,6 +1377,17 @@ (save-buffer) ; It pops up the save dialog. ) +(defun mac-services-mail-selection () + (interactive) + (compose-mail) + (rfc822-goto-eoh) + (forward-line 1) + (insert (x-selection-value mac-services-selection) "\n")) + +(defun mac-services-mail-to () + (interactive) + (compose-mail (x-selection-value mac-services-selection))) + (defun mac-services-insert-text () (interactive) (let ((text (x-selection-value mac-services-selection))) @@ -1393,6 +1404,10 @@ 'mac-services-open-file) (define-key mac-application-menu-map [services perform open-selection] 'mac-services-open-selection) +(define-key mac-application-menu-map [services perform mail-selection] + 'mac-services-mail-selection) +(define-key mac-application-menu-map [services perform mail-to] + 'mac-services-mail-to) (define-key mac-application-menu-map [services paste] 'mac-services-insert-text) (define-key mac-application-menu-map [preferences] 'customize)