407 |
(define-key menu-bar-edit-menu [copy] |
(define-key menu-bar-edit-menu [copy] |
408 |
'(menu-item "Copy" menu-bar-kill-ring-save |
'(menu-item "Copy" menu-bar-kill-ring-save |
409 |
:enable mark-active |
:enable mark-active |
410 |
:help "Copy text in region between mark and current position")) |
:help "Copy text in region between mark and current position" |
411 |
|
:keys "\\[kill-ring-save]")) |
412 |
(define-key menu-bar-edit-menu [cut] |
(define-key menu-bar-edit-menu [cut] |
413 |
'(menu-item "Cut" kill-region |
'(menu-item "Cut" kill-region |
414 |
:enable (and mark-active (not buffer-read-only)) |
:enable (and mark-active (not buffer-read-only)) |