Mercurial > hg > xemacs-beta

comparison lisp/toolbar-items.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 54fa1a5c2d12
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
295 (if (featurep 'eos-debugger) 295 (if (featurep 'eos-debugger)
296 (call-interactively 'eos::start-debugger) 296 (call-interactively 'eos::start-debugger)
297 (require 'gdbsrc) 297 (require 'gdbsrc)
298 (call-interactively 'gdbsrc))) 298 (call-interactively 'gdbsrc)))
299 299
300 (defvar compile-command)
301 (defvar toolbar-compile-already-run nil)
302
303 (defun toolbar-compile () 300 (defun toolbar-compile ()
304 "Run compile without having to touch the keyboard." 301 "Run compile without having to touch the keyboard."
305 (interactive) 302 (interactive)
303 (declare (special compile-command toolbar-compile-already-run))
306 (require 'compile) 304 (require 'compile)
307 (if toolbar-compile-already-run 305 (if (boundp 'toolbar-compile-already-run)
308 (compile compile-command) 306 (compile compile-command)
309 (setq toolbar-compile-already-run t) 307 (setq toolbar-compile-already-run t)
310 (if (should-use-dialog-box-p) 308 (if (should-use-dialog-box-p)
311 (popup-dialog-box 309 (make-dialog-box 'question
312 `(,(concat "Compile:\n " compile-command) 310 :question (concat "Compile:\n " compile-command)
313 ["Compile" (compile compile-command) t] 311 :buttons
314 ["Edit command" compile t] 312 '(["Compile" (compile compile-command) t]
315 nil 313 ["Edit command" compile t]
316 ["Cancel" (message "Quit") t])) 314 nil
315 ["Cancel" (message "Quit") t]))
317 (compile compile-command)))) 316 (compile compile-command))))
318 317
319 ;; 318 ;;
320 ;; toolbar news variables and defuns 319 ;; toolbar news variables and defuns
321 ;; 320 ;;