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

2 files changed, 11 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4ed23eef55..24d2a92b39a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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>
 
         * simple.el (mark-word): Mark more if repeated.
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 212cf5afdef..12656013408 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -869,10 +869,17 @@ Do the same for the keys of the same name."
   '(menu-item "5x5" 5x5
               :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]
   '(menu-item "Display Calendar" calendar))
 (define-key menu-bar-tools-menu [speedbar]
   '(menu-item "Display Speedbar" speedbar-frame-mode))
+
+(define-key menu-bar-tools-menu [separator-net]
+  '("--"))
+
 (define-key menu-bar-tools-menu [directory-search]
   '(menu-item "Directory Search" eudc-tools-menu
               :help "Query directory servers via LDAP, CCSO PH/QI or BBDB"))