Mercurial > emacs
comparison lisp/term/mac-win.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 e50a2e215441 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 2226 (interactive) | 2226 (interactive) |
| 2227 (let ((text (x-selection-value mac-service-selection))) | 2227 (let ((text (x-selection-value mac-service-selection))) |
| 2228 (if (not buffer-read-only) | 2228 (if (not buffer-read-only) |
| 2229 (insert text) | 2229 (insert text) |
| 2230 (kill-new text) | 2230 (kill-new text) |
| 2231 (message | 2231 (message "%s" |
| 2232 (substitute-command-keys | 2232 (substitute-command-keys |
| 2233 "The text from the Services menu can be accessed with \\[yank]"))))) | 2233 "The text from the Services menu can be accessed with \\[yank]"))))) |
| 2234 | 2234 |
| 2235 ;; kEventClassService/kEventServicePaste | 2235 ;; kEventClassService/kEventServicePaste |
| 2236 (define-key mac-apple-event-map [service paste] 'mac-service-insert-text) | 2236 (define-key mac-apple-event-map [service paste] 'mac-service-insert-text) |