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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4ed23eef55e64fe3073e4f85efe6461d9e09f36..24d2a92b39a794624811ce556a42cf7f393d88f7 100644 (file)
--- 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\e,A_\e(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 212cf5afdef969e254719659779ff7628fde2b95..126560134081aaa0b007035971f58170a47ec1b2 100644 (file)
--- 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"))