From 7fc340b2700d25d24ebb8162460be0cb5f0e3bdd Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 22 Sep 2014 15:18:29 -0400 Subject: [PATCH] (sql-execute): Use `special-mode'. * sql.el (sql-execute): Use `special-mode'. --- lisp/progmodes/sql.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 2ae2a475db9..304ff465955 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -3624,7 +3624,11 @@ buffer is popped into a view window." (get-lru-window)))) (with-current-buffer outbuf (set-buffer-modified-p nil) - (read-only-mode +1)) + (setq-local revert-buffer-function + (lambda (_ignore-auto _noconfirm) + (sql-execute sqlbuf (buffer-name outbuf) + command enhanced arg))) + (special-mode)) (pop-to-buffer outbuf) (when one-win (shrink-window-if-larger-than-buffer))))) -- 2.39.5