[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/menu-bar.el |
Date: |
Sun, 03 Feb 2002 06:28:28 -0500 |
Index: emacs/lisp/menu-bar.el
diff -c emacs/lisp/menu-bar.el:1.193 emacs/lisp/menu-bar.el:1.194
*** emacs/lisp/menu-bar.el:1.193 Tue Jan 29 09:17:26 2002
--- emacs/lisp/menu-bar.el Sun Feb 3 06:28:28 2002
***************
*** 549,555 ****
case-fold-search truncate-lines show-paren-mode
transient-mark-mode global-font-lock-mode
current-language-environment default-input-method
! default-frame-alist))
(if (default-value elt)
(customize-save-variable elt (default-value elt))))
(if (memq 'turn-on-auto-fill text-mode-hook)
--- 549,555 ----
case-fold-search truncate-lines show-paren-mode
transient-mark-mode global-font-lock-mode
current-language-environment default-input-method
! default-frame-alist display-time-mode))
(if (default-value elt)
(customize-save-variable elt (default-value elt))))
(if (memq 'turn-on-auto-fill text-mode-hook)
***************
*** 571,576 ****
--- 571,592 ----
;; The "Show/Hide" submenu of menu "Options"
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
+
+ (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.")))
+
+ (define-key menu-bar-showhide-menu [showhide-date-time]
+ '(menu-item "Date and time" showhide-date-time
+ :help "Display date and time in the mode-line"
+ :button (:toggle . display-time-mode)))
+
+ (define-key menu-bar-showhide-menu [datetime-separator]
+ '("--"))
+
(defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
(defun menu-bar-scroll-bar-right ()
***************
*** 1043,1049 ****
:help "Where to find some extra packages and possible updates"))
(define-key menu-bar-help-menu [about]
'(menu-item "About Emacs" display-splash-screen
! :help "Display splash screen, version, and instructions"))
(define-key menu-bar-help-menu [sep2]
'("--"))
(define-key menu-bar-help-menu [finder-by-keyword]
--- 1059,1065 ----
:help "Where to find some extra packages and possible updates"))
(define-key menu-bar-help-menu [about]
'(menu-item "About Emacs" display-splash-screen
! :help "Display version number, copyright info, and basic help"))
(define-key menu-bar-help-menu [sep2]
'("--"))
(define-key menu-bar-help-menu [finder-by-keyword]
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el,
Pavel Janík <=
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/07
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Pavel Janík, 2002/02/09
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Pavel Janík, 2002/02/10
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/11
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/12
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/12
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Eli Zaretskii, 2002/02/15
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/17
- [Emacs-diffs] Changes to emacs/lisp/menu-bar.el, Per Abrahamsen, 2002/02/19