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