diff options
| author | Dave Love | 2003-09-01 18:48:10 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-01 18:48:10 +0000 |
| commit | e3fa3057d79ba4bfaa4b9790395c650186ec7d5b (patch) | |
| tree | e1c256d825133d4548637900d246f7a1aa81cfa1 | |
| parent | a7df580dc88d32c0824344f62d86757f1cb7dda5 (diff) | |
| download | emacs-e3fa3057d79ba4bfaa4b9790395c650186ec7d5b.tar.gz emacs-e3fa3057d79ba4bfaa4b9790395c650186ec7d5b.zip | |
(menu-bar-showhide-menu): Amend date and time label
and :help; also line and column numbers labels.
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index a42e3be62dc..7db5f96e6d7 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -526,10 +526,12 @@ Do the same for the keys of the same name." | |||
| 526 | (cons "Cut" (cons "Delete text in region and copy it to the clipboard" | 526 | (cons "Cut" (cons "Delete text in region and copy it to the clipboard" |
| 527 | 'clipboard-kill-region))) | 527 | 'clipboard-kill-region))) |
| 528 | 528 | ||
| 529 | ;; These are Sun server keysyms for the Cut, Copy and Paste keys | ||
| 530 | ;; (also for XFree86 on Sun keyboard): | ||
| 529 | (define-key global-map [f20] 'clipboard-kill-region) | 531 | (define-key global-map [f20] 'clipboard-kill-region) |
| 530 | (define-key global-map [f16] 'clipboard-kill-ring-save) | 532 | (define-key global-map [f16] 'clipboard-kill-ring-save) |
| 531 | (define-key global-map [f18] 'clipboard-yank) | 533 | (define-key global-map [f18] 'clipboard-yank) |
| 532 | ;; X11R6 versions | 534 | ;; X11R6 versions: |
| 533 | (define-key global-map [cut] 'clipboard-kill-region) | 535 | (define-key global-map [cut] 'clipboard-kill-region) |
| 534 | (define-key global-map [copy] 'clipboard-kill-ring-save) | 536 | (define-key global-map [copy] 'clipboard-kill-ring-save) |
| 535 | (define-key global-map [paste] 'clipboard-yank)) | 537 | (define-key global-map [paste] 'clipboard-yank)) |
| @@ -665,12 +667,12 @@ PROPS are additional properties." | |||
| 665 | 667 | ||
| 666 | (define-key menu-bar-showhide-menu [column-number-mode] | 668 | (define-key menu-bar-showhide-menu [column-number-mode] |
| 667 | (menu-bar-make-mm-toggle column-number-mode | 669 | (menu-bar-make-mm-toggle column-number-mode |
| 668 | "Show Column Numbers" | 670 | "Column Numbers" |
| 669 | "Show the current column number in the mode line")) | 671 | "Show the current column number in the mode line")) |
| 670 | 672 | ||
| 671 | (define-key menu-bar-showhide-menu [line-number-mode] | 673 | (define-key menu-bar-showhide-menu [line-number-mode] |
| 672 | (menu-bar-make-mm-toggle line-number-mode | 674 | (menu-bar-make-mm-toggle line-number-mode |
| 673 | "Show Line Numbers" | 675 | "Line Numbers" |
| 674 | "Show the current line number in the mode line")) | 676 | "Show the current line number in the mode line")) |
| 675 | 677 | ||
| 676 | (define-key menu-bar-showhide-menu [linecolumn-separator] | 678 | (define-key menu-bar-showhide-menu [linecolumn-separator] |
| @@ -685,8 +687,8 @@ PROPS are additional properties." | |||
| 685 | (customize-mark-as-set 'display-time-mode)) | 687 | (customize-mark-as-set 'display-time-mode)) |
| 686 | 688 | ||
| 687 | (define-key menu-bar-showhide-menu [showhide-date-time] | 689 | (define-key menu-bar-showhide-menu [showhide-date-time] |
| 688 | '(menu-item "Date and Time" showhide-date-time | 690 | '(menu-item "Date, Time and Mail" showhide-date-time |
| 689 | :help "Display date and time in the mode line" | 691 | :help "Display date, time, mail status in mode line" |
| 690 | :button (:toggle . display-time-mode))) | 692 | :button (:toggle . display-time-mode))) |
| 691 | 693 | ||
| 692 | (define-key menu-bar-showhide-menu [datetime-separator] | 694 | (define-key menu-bar-showhide-menu [datetime-separator] |