/[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.193 by pj, Tue Jan 29 14:17:26 2002 UTC revision 1.194 by pj, Sun Feb 3 11:28:28 2002 UTC
# Line 549  Do the same for the keys of the same nam Line 549  Do the same for the keys of the same nam
549                   case-fold-search truncate-lines show-paren-mode                   case-fold-search truncate-lines show-paren-mode
550                   transient-mark-mode global-font-lock-mode                   transient-mark-mode global-font-lock-mode
551                   current-language-environment default-input-method                   current-language-environment default-input-method
552                   default-frame-alist))                   default-frame-alist display-time-mode))
553      (if (default-value elt)      (if (default-value elt)
554          (customize-save-variable elt (default-value elt))))          (customize-save-variable elt (default-value elt))))
555    (if (memq 'turn-on-auto-fill text-mode-hook)    (if (memq 'turn-on-auto-fill text-mode-hook)
# Line 571  Do the same for the keys of the same nam Line 571  Do the same for the keys of the same nam
571  ;; The "Show/Hide" submenu of menu "Options"  ;; The "Show/Hide" submenu of menu "Options"
572    
573  (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))  (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
574    
575    (defun showhide-date-time ()
576      "Toggle whether to show date and time in the mode-line."
577      (interactive)
578      (if (display-time-mode)
579          (message "Display-time mode enabled.")
580        (message "Display-time mode disabled.")))
581    
582    (define-key menu-bar-showhide-menu [showhide-date-time]
583      '(menu-item "Date and time" showhide-date-time
584                  :help "Display date and time in the mode-line"
585                  :button (:toggle . display-time-mode)))
586    
587    (define-key menu-bar-showhide-menu [datetime-separator]
588      '("--"))
589    
590  (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))  (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
591    
592  (defun menu-bar-scroll-bar-right ()  (defun menu-bar-scroll-bar-right ()
# Line 1043  key (or menu-item)")) Line 1059  key (or menu-item)"))
1059                :help "Where to find some extra packages and possible updates"))                :help "Where to find some extra packages and possible updates"))
1060  (define-key menu-bar-help-menu [about]  (define-key menu-bar-help-menu [about]
1061    '(menu-item "About Emacs" display-splash-screen    '(menu-item "About Emacs" display-splash-screen
1062                :help "Display splash screen, version, and instructions"))                :help "Display version number, copyright info, and basic help"))
1063  (define-key menu-bar-help-menu [sep2]  (define-key menu-bar-help-menu [sep2]
1064    '("--"))    '("--"))
1065  (define-key menu-bar-help-menu [finder-by-keyword]  (define-key menu-bar-help-menu [finder-by-keyword]

Legend:
Removed from v.1.193  
changed lines
  Added in v.1.194

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