/[emacs]/emacs/lisp/term/mac-win.el
ViewVC logotype

Diff of /emacs/lisp/term/mac-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by lute, Mon Jul 4 16:49:23 2005 UTC revision 1.49 by mituharu, Tue Jul 12 11:32:40 2005 UTC
# Line 1377  in `selection-converter-alist', which se Line 1377  in `selection-converter-alist', which se
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)))
# Line 1393  in `selection-converter-alist', which se Line 1404  in `selection-converter-alist', which se
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)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26