(tool-bar-add-item-from-menu): Handle

old-style menu definitions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b723d3b4d95090a0ad0efe2237348e021bf9b57..b4da1805df21e6b1b5bf86461e73f491aaf3d8ef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,16 @@
+2001-08-06  Gerd Moellmann  <gerd@gnu.org>
+
+       * toolbar/tool-bar.el (tool-bar-add-item-from-menu): Handle
+       old-style menu definitions.
+
 2001-08-06  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * textmodes/makeinfo.el, textmodes/page-ext.el, textmodes/page.el,
-       textmodes/text-mode.el, textmodes/two-column.el: Keywords added.
+       * textmodes/text-mode.el, textmodes/two-column.el: Keywords added.
 
        * play/studly.el, mail/unrmail.el, emacs-lisp/lucid.el,
-       emulation/pc-mode.el, diff.el, textmodes/fill.el, abbrev.el,
-       add-log.el, faces.el, mail/sc.el: specify FSF as Maintainer.
+       * emulation/pc-mode.el, diff.el, textmodes/fill.el, abbrev.el,
+       * add-log.el, faces.el, mail/sc.el: Specify FSF as Maintainer.
 
 2001-08-05  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 

diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 86be7b97b960ca90881af5ea83b42ec565013f95..d3cd8749a2f62e61bce297c7db4d4bf3b819642f 100644 (file)
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -1,6 +1,6 @@
 ;;; tool-bar.el --- setting up the tool bar
 ;;
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
 ;;
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: mouse frames
@@ -164,8 +164,14 @@ function."
        (setq submap (eval submap)))
       (unless (image-mask-p image)
        (setq image (append image '(:mask heuristic))))
-      (define-key-after tool-bar-map (vector key)
-       (append (cdr (assq key (cdr submap))) (list :image image) props)))))
+      (let ((defn (assq key (cdr submap))))
+       (if (eq (cadr defn) 'menu-item)
+           (define-key-after tool-bar-map (vector key)
+             (append (cdr defn) (list :image image) props))
+         (setq defn (cdr defn))
+         (define-key-after tool-bar-map (vector key)
+           (append `(menu-item ,(car defn) ,(cddr defn))
+                   (list :image image) props)))))))
 
 ;;; Set up some global items.  Additions/deletions up for grabs.
 

diff --git a/src/ChangeLog b/src/ChangeLog
index 630824d6c4b6c58d7baad9db6ab921d578370b95..9a71e1ee72b1f262ac09fad98ac15aaf1a4b9435 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-06  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * alloc.c (init_stack): Remove declaration.
+
 2001-08-03  Gerd Moellmann  <gerd@gnu.org>
 
        * keyboard.c (read_key_sequence): Check that key is an integer