aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love2003-09-01 18:48:10 +0000
committerDave Love2003-09-01 18:48:10 +0000
commite3fa3057d79ba4bfaa4b9790395c650186ec7d5b (patch)
treee1c256d825133d4548637900d246f7a1aa81cfa1
parenta7df580dc88d32c0824344f62d86757f1cb7dda5 (diff)
downloademacs-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.el12
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]