From 5301bb027cf56a0e1148808f11510e7fcc298b86 Mon Sep 17 00:00:00 2001 From: defanor Date: Mon, 6 Nov 2017 21:06:50 +0300 Subject: pancake.el: use `inhibit-read-only' --- pancake.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'pancake.el') diff --git a/pancake.el b/pancake.el index 939da2a..2e72969 100644 --- a/pancake.el +++ b/pancake.el @@ -210,16 +210,15 @@ (let ((output (read raw-line))) (pcase output (`(render . ,alist) - (read-only-mode -1) - (delete-region (point-min) (point-max)) ;; todo: maybe store identifiers and links for ;; further manipulation - (setq pancake-current-uri (alist-get 'uri alist)) - (dolist (line (alist-get 'lines alist)) - (pancake-print-line line) - (newline)) - (read-only-mode 1) - (goto-char (point-min))) + (let ((inhibit-read-only t)) + (delete-region (point-min) (point-max)) + (setq pancake-current-uri (alist-get 'uri alist)) + (dolist (line (alist-get 'lines alist)) + (pancake-print-line line) + (newline)) + (goto-char (point-min)))) (`(goto ,line) (goto-line line)))))) (setq pancake-process-output ""))))) -- cgit v1.2.3