1 |
;;; menu-bar.el --- define a default menu bar |
;;; menu-bar.el --- define a default menu bar |
2 |
|
|
3 |
;; Copyright (C) 1993,94,1995,2000,01,02,2003 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2005 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: RMS |
;; Author: RMS |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
597 |
HELP is the text to use for the tooltip. |
HELP is the text to use for the tooltip. |
598 |
PROPS are additional properties." |
PROPS are additional properties." |
599 |
`'(menu-item ,doc ,fname |
`'(menu-item ,doc ,fname |
600 |
,@(if props props) |
,@props |
601 |
:help ,help |
:help ,help |
602 |
:button (:toggle . (and (default-boundp ',fname) |
:button (:toggle . (and (default-boundp ',fname) |
603 |
(default-value ',fname))))) |
(default-value ',fname))))) |
694 |
(define-key menu-bar-showhide-menu [linecolumn-separator] |
(define-key menu-bar-showhide-menu [linecolumn-separator] |
695 |
'("--")) |
'("--")) |
696 |
|
|
|
(defun showhide-date-time () |
|
|
"Toggle whether to show date and time in the mode-line." |
|
|
(interactive) |
|
|
(if (display-time-mode) |
|
|
(message "Display-time mode enabled.") |
|
|
(message "Display-time mode disabled.")) |
|
|
(customize-mark-as-set 'display-time-mode)) |
|
|
|
|
697 |
(define-key menu-bar-showhide-menu [showhide-date-time] |
(define-key menu-bar-showhide-menu [showhide-date-time] |
698 |
'(menu-item "Date, Time and Mail" showhide-date-time |
(menu-bar-make-mm-toggle display-time-mode |
699 |
:help "Display date, time, mail status in mode line" |
"Date, Time and Mail" |
700 |
:button (:toggle . display-time-mode))) |
"Display date, time, mail status in mode line")) |
701 |
|
|
702 |
(define-key menu-bar-showhide-menu [datetime-separator] |
(define-key menu-bar-showhide-menu [datetime-separator] |
703 |
'("--")) |
'("--")) |