Mercurial > emacs
comparison lisp/menu-bar.el @ 8320:2c77abdc0111
Add to global key map for cut, paste & copy keys.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Jul 1994 19:19:17 +0000 |
| parents | abf26f5c67e4 |
| children | 0fff2106fa43 |
comparison
equal
deleted
inserted
replaced
| 8319:acca78b72dd6 | 8320:2c77abdc0111 |
|---|---|
| 160 | 160 |
| 161 ;; Sun expects these commands on these keys, so why not? | 161 ;; Sun expects these commands on these keys, so why not? |
| 162 (define-key global-map [f20] 'clipboard-kill-region) | 162 (define-key global-map [f20] 'clipboard-kill-region) |
| 163 (define-key global-map [f16] 'clipboard-kill-ring-save) | 163 (define-key global-map [f16] 'clipboard-kill-ring-save) |
| 164 (define-key global-map [f18] 'clipboard-yank) | 164 (define-key global-map [f18] 'clipboard-yank) |
| 165 ;; X11R6 versions | |
| 166 (define-key global-map [cut] 'clipboard-kill-region) | |
| 167 (define-key global-map [copy] 'clipboard-kill-ring-save) | |
| 168 (define-key global-map [paste] 'clipboard-yank) | |
| 165 | 169 |
| 166 (define-key menu-bar-help-menu [emacs-version] | 170 (define-key menu-bar-help-menu [emacs-version] |
| 167 '("Show Version" . emacs-version)) | 171 '("Show Version" . emacs-version)) |
| 168 (define-key menu-bar-help-menu [report-emacs-bug] | 172 (define-key menu-bar-help-menu [report-emacs-bug] |
| 169 '("Send Bug Report" . report-emacs-bug)) | 173 '("Send Bug Report" . report-emacs-bug)) |