X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ftoolbar-items.el;h=afe876a240b68a2508e321b195d7268b218e4ab7;hb=251c557a85c6644379c7588288689614b93d61bc;hp=26ed785fb9ad47ff704a4e9fbf568d3f383d9535;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/toolbar-items.el b/lisp/toolbar-items.el
index 26ed785..afe876a 100644
--- a/lisp/toolbar-items.el
+++ b/lisp/toolbar-items.el
@@ -33,7 +33,7 @@
 ;; is compiled in).
 
 ;; Miscellaneous toolbar functions, useful for users to redefine, in
-;; order to get different behaviour.
+;; order to get different behavior.
 
 ;;; Code:
 
@@ -297,23 +297,22 @@ Mail readers known by default are vm, gnus, rmail, mh, pine, elm,
     (require 'gdbsrc)
     (call-interactively 'gdbsrc)))
 
-(defvar compile-command)
-(defvar toolbar-compile-already-run nil)
-
 (defun toolbar-compile ()
   "Run compile without having to touch the keyboard."
   (interactive)
+  (declare (special compile-command toolbar-compile-already-run))
   (require 'compile)
-  (if toolbar-compile-already-run
+  (if (boundp 'toolbar-compile-already-run)
       (compile compile-command)
     (setq toolbar-compile-already-run t)
     (if (should-use-dialog-box-p)
-       (popup-dialog-box
-        `(,(concat "Compile:\n        " compile-command)
-          ["Compile" (compile compile-command) t]
-          ["Edit command" compile t]
-          nil
-          ["Cancel" (message "Quit") t]))
+       (make-dialog-box 'question
+			:question (concat "Compile:\n        " compile-command)
+			:buttons
+			'(["Compile" (compile compile-command) t]
+			  ["Edit command" compile t]
+			  nil
+			  ["Cancel" (message "Quit") t]))
       (compile compile-command))))
 
 ;;