Mercurial > emacs
comparison lisp/menu-bar.el @ 29745:5169a108376f
(menu-bar-edit-menu): Add menu item for marking
the whole buffer.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 19 Jun 2000 16:05:18 +0000 |
| parents | 350b549354fc |
| children | e7232e6e90d7 |
comparison
equal
deleted
inserted
replaced
| 29744:1ac32ce72622 | 29745:5169a108376f |
|---|---|
| 390 :help "Copy text in region between mark and current pos")) | 390 :help "Copy text in region between mark and current pos")) |
| 391 (define-key menu-bar-edit-menu [cut] | 391 (define-key menu-bar-edit-menu [cut] |
| 392 '(menu-item "Cut" kill-region | 392 '(menu-item "Cut" kill-region |
| 393 :enable (and mark-active (not buffer-read-only)) | 393 :enable (and mark-active (not buffer-read-only)) |
| 394 :help "Cut (kill) text in region between mark and current pos")) | 394 :help "Cut (kill) text in region between mark and current pos")) |
| 395 (define-key menu-bar-edit-menu [mark-whole-buffer] | |
| 396 '(menu-item "Mark Buffer" mark-whole-buffer | |
| 397 :help "Mark the whole buffer for a subsequent cut/copy.")) | |
| 395 (define-key menu-bar-edit-menu [undo] | 398 (define-key menu-bar-edit-menu [undo] |
| 396 '(menu-item "Undo" undo | 399 '(menu-item "Undo" undo |
| 397 :enable (and (not buffer-read-only) | 400 :enable (and (not buffer-read-only) |
| 398 (not (eq t buffer-undo-list)) | 401 (not (eq t buffer-undo-list)) |
| 399 (if (eq last-command 'undo) | 402 (if (eq last-command 'undo) |