/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.254 by jhd, Sun Mar 6 20:18:06 2005 UTC revision 1.255 by monnier, Tue Mar 22 19:44:30 2005 UTC
# Line 1  Line 1 
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
# Line 596  DOC is the text to use for the menu entr Line 597  DOC is the text to use for the menu entr
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)))))
# Line 693  by \"Save Options\" in Custom buffers.") Line 694  by \"Save Options\" in Custom buffers.")
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    '("--"))    '("--"))

Legend:
Removed from v.1.254  
changed lines
  Added in v.1.255

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26