Browse Source

Add awk-preview--env struct

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

+ 35
- 0
emacs.el View File

@@ -1821,6 +1821,34 @@ This mode is a simplified version of `adoc-mode'."
:type 'string
:group 'awk-preview)

(cl-defstruct awk-preview--env
(running-p nil)
;; Point of beg in source buffer
(point-beg nil)
;; Point of end in source buffer
(point-end nil)
;; Point of beginning
;; Used by preview buffer and always same as awk-preview--point-beg
(preview-point-beg nil)
;; Point of beginning
;; Used by preview buffer and may defferent from awk-preview--point-end
(preview-point-end nil)
;; Awk preview program file name
(program-filename nil)
;; Source buffer
(source-buffer nil)
;; Preview buffer
(preview-buffer nil)
;; Program buffer
(program-buffer nil)
;; Window configuration when entering awk-review
(window-configuration nil)
)

(defvar awk-preview--env nil
"`awk-preview--env' struct object of currently running.")
(make-variable-buffer-local 'awk-preview--env)

(defvar awk-preview--point-beg
nil
"Point of beginning.")
@@ -1993,6 +2021,13 @@ Return that buffer."
(defun awk-preview-commit ()
"Exit awk-preview and update buffer."
(interactive)
;; (with-current-buffer awk-preview--source-buffer
;; (awk-preview--invoke-awk (current-buffer)
;; awk-preview--point-beg
;; awk-preview--point-end
;; progfile
;; t
;; t))
(awk-preview--cleanup))

(defun awk-preview-abort ()


Loading…
Cancel
Save