2002-02-17 Per Abrahamsen <abraham@dina.kvl.dk>

	* menu-bar.el (menu-bar-showhide-menu): Added speedbar.
	(menu-bar-tools-menu): Removed speedbar.

	* textmodes/ispell.el (ispell-menu-map): Added `customize-ispell'
	and `flyspell-mode' entries.

	* textmodes/flyspell.el (flyspell): Add to ispell group.

diff --git a/etc/NEWS b/etc/NEWS
index 76eed7c383ec57cccb97c32d9265bfa9c9de58ce..c4456e5c1199bd979644efdc5fdc5e3fcec20ee3 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -87,6 +87,8 @@ scroll bar to either side here or turn it off completely.  There is also
 a menu-item to toggle displaying of current date and time, current line
 and column number in the mode-line.
 
+** Speedbar has moved from the "Tools" top level menu to "Show/Hide".
+
 ** Emacs can now indicate in the mode-line the presence of new e-mails in
 directory in addition to file.  See the documentation of the user option
 `display-time-mail-directory'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 862a1c46b497c689339d6b0fb3b1f431ad4551df..4730787118116f67f3e77df397d43d240be70861 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-02-17  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * menu-bar.el (menu-bar-showhide-menu): Added speedbar.
+       (menu-bar-tools-menu): Removed speedbar.
+
+       * textmodes/ispell.el (ispell-menu-map): Added `customize-ispell'
+       and `flyspell-mode' entries.
+
+       * textmodes/flyspell.el (flyspell): Add to ispell group.
+
 2002-02-17  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
         * emacs-lisp/lisp.el (mark-sexp): Don't leave multiple marks when

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 126560134081aaa0b007035971f58170a47ec1b2..e6814a4e76c41d4b7473e30779003e4c85018013 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -626,6 +626,15 @@ Do the same for the keys of the same name."
 (define-key menu-bar-showhide-menu [datetime-separator]
   '("--"))
 
+(define-key menu-bar-showhide-menu [showhide-speedbar]
+  '(menu-item "Speedbar" speedbar-frame-mode
+             :help "Display speedbar"
+             :button (:toggle
+                      . (and (boundp 'speedbar-frame)
+                             (frame-live-p (symbol-value 'speedbar-frame))
+                             (frame-visible-p 
+                              (symbol-value 'speedbar-frame))))))
+
 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
 
 (define-key menu-bar-showhide-scroll-bar-menu [right]
@@ -874,8 +883,6 @@ Do the same for the keys of the same name."
              :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]
   '("--"))

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 292df46976d04a15bcc70117301ac4c0c13573bc..44e5f9a92aa3f5957bc73c1250193ce06f24d7de 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -51,6 +51,7 @@
   "Spell checking on the fly."
   :tag "FlySpell"
   :prefix "flyspell-"
+  :group 'ispell
   :group 'processes)
 
 ;*---------------------------------------------------------------------*/

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 180bedc6481bfd03108bc3c775573d623f0df5fc..041a493511116a5ab0431cc817478f4c644a9a5c 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1,6 +1,6 @@
 ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
 
-;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author:           Ken Stevens <k.stevens@ieee.org>
 ;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
@@ -878,11 +878,20 @@ and added as a submenu of the \"Edit\" menu.")
        '(menu-item "Save Dictionary"
                    (lambda () (interactive) (ispell-pdict-save t t))
                    :help "Save personal dictionary"))
+      (define-key ispell-menu-map [ispell-customize]
+       '(menu-item "Customize..."
+                   (lambda () (interactive) (customize-group 'ispell))
+                   :help "Customize spell checking options"))
       (define-key ispell-menu-map [ispell-help]
        ;; use (x-popup-menu last-nonmenu-event(list "" ispell-help-list)) ?
        '(menu-item "Help"
                    (lambda () (interactive) (describe-function 'ispell-help))
                    :help "Show standard Ispell keybindings and commands"))
+      (define-key ispell-menu-map [flyspell-mode]
+       '(menu-item "Automatic spell checking (Flyspell)"
+                   flyspell-mode
+                   :help "Check spelling while you edit the text"
+                   :button (:toggle . flyspell-mode)))
       (define-key ispell-menu-map [ispell-complete-word]
        '(menu-item "Complete Word" ispell-complete-word
                    :help "Complete word at cursor using dictionary"))