(sql-execute): Use `special-mode'.

* sql.el (sql-execute): Use `special-mode'.

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 2ae2a475db91bcaf6e879cbad5f28212a150571b..304ff46595575def7146cd047260680d17b3311f 100644 (file)
--- 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)))))