[Emacs-diffs] trunk r117921: (sql-execute): Use `special-mode'.

[Sam Steingold]

------------------------------------------------------------
revno: 117921
revision-id: address@hidden
parent: address@hidden
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Mon 2014-09-22 15:18:29 -0400
message:
  (sql-execute): Use `special-mode'.
  
  * sql.el (sql-execute): Use `special-mode'.
modified:
  lisp/progmodes/sql.el          sql.el-20091113204419-o5vbwnq5f7feedwu-1303

=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el     2014-09-22 19:17:40 +0000
+++ b/lisp/progmodes/sql.el     2014-09-22 19:18:29 +0000
@@ -3624,7 +3624,11 @@
                        (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)))))