Mercurial > hg > xemacs-beta

diff lisp/toolbar-items.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children e11d67e05968
line wrap: on
line diff
--- a/lisp/toolbar-items.el	Mon Aug 13 10:33:19 2007 +0200
+++ b/lisp/toolbar-items.el	Mon Aug 13 10:34:13 2007 +0200
@@ -299,12 +299,14 @@
   (if toolbar-compile-already-run
       (compile compile-command)
     (setq toolbar-compile-already-run t)
-    (popup-dialog-box
-     `(,(concat "Compile:\n        " compile-command)
-       ["Compile" (compile compile-command) t]
-       ["Edit command" compile t]
-       nil
-       ["Cancel" (message "Quit") 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]))
+      (compile compile-command))))
 
 ;;
 ;; toolbar news variables and defuns