Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
297 (interactive) 297 (interactive)
298 (require 'compile) 298 (require 'compile)
299 (if toolbar-compile-already-run 299 (if toolbar-compile-already-run
300 (compile compile-command) 300 (compile compile-command)
301 (setq toolbar-compile-already-run t) 301 (setq toolbar-compile-already-run t)
302 (popup-dialog-box 302 (if (should-use-dialog-box-p)
303 `(,(concat "Compile:\n " compile-command) 303 (popup-dialog-box
304 ["Compile" (compile compile-command) t] 304 `(,(concat "Compile:\n " compile-command)
305 ["Edit command" compile t] 305 ["Compile" (compile compile-command) t]
306 nil 306 ["Edit command" compile t]
307 ["Cancel" (message "Quit") t])))) 307 nil
308 ["Cancel" (message "Quit") t]))
309 (compile compile-command))))
308 310
309 ;; 311 ;;
310 ;; toolbar news variables and defuns 312 ;; toolbar news variables and defuns
311 ;; 313 ;;
312 314