diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-07-12 11:32:40 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2005-07-12 11:32:40 +0000 |
| commit | b007e01c6c5937b052662cb64beca7b8422af5cb (patch) | |
| tree | 4ffd855a112074cac04bfe5c1e50bebea6297b33 /lisp/term/mac-win.el | |
| parent | 2f9a4a2226b234e68d87735a0af9a46ceaa546ed (diff) | |
| download | emacs-b007e01c6c5937b052662cb64beca7b8422af5cb.tar.gz | |
(mac-services-mail-selection, mac-services-mail-to): New functions.
(mac-application-menu-map): Bind them.
Diffstat (limited to 'lisp/term/mac-win.el')
| -rw-r--r-- | lisp/term/mac-win.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 22bd55e5943..124a7898b13 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1377,6 +1377,17 @@ in `selection-converter-alist', which see." (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 @@ in `selection-converter-alist', which see." '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) |