Commit 9a45aa3d authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(menu-bar-tools-menu): Add an item for Calculator.

parent a14e05ac
2002-02-15 Eli Zaretskii <eliz@is.elta.co.il>
* menu-bar.el (menu-bar-tools-menu): Add an item for Calculator.
2002-02-15 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> 2002-02-15 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
   
* simple.el (mark-word): Mark more if repeated. * simple.el (mark-word): Mark more if repeated.
......
...@@ -869,10 +869,17 @@ Do the same for the keys of the same name." ...@@ -869,10 +869,17 @@ Do the same for the keys of the same name."
'(menu-item "5x5" 5x5 '(menu-item "5x5" 5x5
:help "Fill in all the squares on a 5x5 board")) :help "Fill in all the squares on a 5x5 board"))
(define-key menu-bar-tools-menu [calculator]
'(menu-item "Calculator" calculator
:help "Invoke the Emacs built-in scientific calculator"))
(define-key menu-bar-tools-menu [calendar] (define-key menu-bar-tools-menu [calendar]
'(menu-item "Display Calendar" calendar)) '(menu-item "Display Calendar" calendar))
(define-key menu-bar-tools-menu [speedbar] (define-key menu-bar-tools-menu [speedbar]
'(menu-item "Display Speedbar" speedbar-frame-mode)) '(menu-item "Display Speedbar" speedbar-frame-mode))
(define-key menu-bar-tools-menu [separator-net]
'("--"))
(define-key menu-bar-tools-menu [directory-search] (define-key menu-bar-tools-menu [directory-search]
'(menu-item "Directory Search" eudc-tools-menu '(menu-item "Directory Search" eudc-tools-menu
:help "Query directory servers via LDAP, CCSO PH/QI or BBDB")) :help "Query directory servers via LDAP, CCSO PH/QI or BBDB"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment