| @@ -1711,7 +1711,7 @@ This mode is a simplified version of `adoc-mode'." | |||||
| :group 'awk-preview) | :group 'awk-preview) | ||||
| (defcustom awk-preview-switches | (defcustom awk-preview-switches | ||||
| '("--sandbox" "--" "{print}") | |||||
| '("--sandbox" "--" "{print NR, $0}") | |||||
| "String of awk options appended when running awk preview." | "String of awk options appended when running awk preview." | ||||
| :type '(repeat string) | :type '(repeat string) | ||||
| :group 'awk-preview) | :group 'awk-preview) | ||||
| @@ -1789,13 +1789,14 @@ Return that buffer." | |||||
| (let ((source-name (with-current-buffer source (buffer-name)))) | (let ((source-name (with-current-buffer source (buffer-name)))) | ||||
| (with-current-buffer (generate-new-buffer (format awk-preview-program-buffer-name | (with-current-buffer (generate-new-buffer (format awk-preview-program-buffer-name | ||||
| source-name)) | source-name)) | ||||
| (erase-buffer) | |||||
| (insert awk-preview-default-program) | |||||
| (awk-mode) | |||||
| (setq awk-preview--source-buffer source) | (setq awk-preview--source-buffer source) | ||||
| (setq awk-preview--preview-buffer preview) | (setq awk-preview--preview-buffer preview) | ||||
| (setq awk-preview--program-buffer (current-buffer)) | (setq awk-preview--program-buffer (current-buffer)) | ||||
| (erase-buffer) | |||||
| (insert awk-preview-default-program) | |||||
| (awk-mode) | |||||
| (current-buffer)))) | (current-buffer)))) | ||||
| (defun awk-preview--create-preview-buffer (source) | (defun awk-preview--create-preview-buffer (source) | ||||