procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* sql.el (sql-execute): Use `special-mode'.
This commit is contained in:
Sam Steingold 2014-09-22 15:18:29 -04:00
parent edf16c3783
commit 7fc340b270
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/sql.el
View file

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