From: Sam Steingold <sds@gnu.org>
Date: Mon, 22 Sep 2014 19:18:29 +0000 (-0400)
Subject: (sql-execute): Use `special-mode'.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~250
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fc340b2700d25d24ebb8162460be0cb5f0e3bdd;p=emacs.git

(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 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)))))