Browse Source

Prevent nested execution

master
10sr 6 years ago
parent
commit
b0a03ed387
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 3 additions and 0 deletions
  1. +3
    -0
      emacs.el

+ 3
- 0
emacs.el View File

@@ -1929,6 +1929,9 @@ Delete the text between BEG and END when DELETE is non-nil."
(defun awk-preview (beg end)
"Run awk and preview result."
(interactive "r")
(when (and awk-preview--env
(awk-preview--env-running-p awk-preview--env))
(error "AWK-Preview already running"))
(let ((e (make-awk-preview--env)))
(setf (awk-preview--env-point-beg e) beg)
(setf (awk-preview--env-point-end e) end)


Loading…
Cancel
Save