Commit 7fc340b2 authored by Sam Steingold's avatar Sam Steingold
Browse files

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

* sql.el (sql-execute): Use `special-mode'.
parent edf16c37
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment