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

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

(sql-execute): Use `special-mode'.
* sql.el (sql-execute): Use `special-mode'.
7fc340b2 · Sam Steingold · edf16c37 · 7fc340b2
Commit 7fc340b2 authored Sep 22, 2014 by Sam Steingold
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/progmodes/sql.el lisp/progmodes/sql.el +5 -1

No files found.
--- 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)))))