jletourneau

global mute_time
global wait_complete

on run
	
	display dialog "Mute for how many seconds?" default answer "120"
	set mute_time to text returned of result as number
	set volume with output muted
	set wait_complete to 0
	

jletourneau

(defun unfill-region (start end)
  "Unfill the current region; i.e. remove all newlines within paragraphs.
If an active region is not present, unfill the entire buffer."
  (interactive "r")
  (let ((fill-column (point-max)))
    (if (use-region-p)
        (fill-region start end)
      (fill-region (point-min) (point-max)))))