Mercurial > emacs
comparison lisp/menu-bar.el @ 22655:ca137a595698
(menu-bar-kill-ring-save): Fix message typo.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Jul 1998 06:52:52 +0000 |
| parents | 175d00eed6c7 |
| children | c6d48e73123e |
comparison
equal
deleted
inserted
replaced
| 22654:a9212d075e88 | 22655:ca137a595698 |
|---|---|
| 278 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) | 278 (define-key menu-bar-edit-menu [undo] '("Undo" . undo)) |
| 279 | 279 |
| 280 (defun menu-bar-kill-ring-save (beg end) | 280 (defun menu-bar-kill-ring-save (beg end) |
| 281 (interactive "r") | 281 (interactive "r") |
| 282 (if (mouse-region-match) | 282 (if (mouse-region-match) |
| 283 (message "Select a region with the mouse does `copy' automatically") | 283 (message "Selecting a region with the mouse does `copy' automatically") |
| 284 (kill-ring-save beg end))) | 284 (kill-ring-save beg end))) |
| 285 | 285 |
| 286 (put 'fill-region 'menu-enable '(and mark-active (not buffer-read-only))) | 286 (put 'fill-region 'menu-enable '(and mark-active (not buffer-read-only))) |
| 287 (put 'kill-region 'menu-enable '(and mark-active (not buffer-read-only))) | 287 (put 'kill-region 'menu-enable '(and mark-active (not buffer-read-only))) |
| 288 (put 'menu-bar-kill-ring-save 'menu-enable 'mark-active) | 288 (put 'menu-bar-kill-ring-save 'menu-enable 'mark-active) |