branch: elpa/emacsql commit f98ee5e7cd59e3360225d8a366b14cd38b507bd8 Author: Christopher Wellons <well...@nullprogram.com> Commit: Christopher Wellons <well...@nullprogram.com>
Use no-undo buffers. --- emacsql-psql.el | 5 ++--- emacsql-sqlite.el | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/emacsql-psql.el b/emacsql-psql.el index 624a6e8250..a6cd725b86 100644 --- a/emacsql-psql.el +++ b/emacsql-psql.el @@ -49,7 +49,7 @@ (push "-h" args) (push hostname args)) (setf args (nreverse args)) - (let* ((buffer (generate-new-buffer "*emacsql-psql*")) + (let* ((buffer (generate-new-buffer " *emacsql-psql*")) (psql emacsql-psql-executable) (command (mapconcat #'shell-quote-argument (cons psql args) " ")) (process (start-process-shell-command @@ -59,10 +59,9 @@ :dbname dbname))) (setf (process-sentinel process) (lambda (proc _) (kill-buffer (process-buffer proc)))) - (buffer-disable-undo buffer) (when debug (setf (emacsql-log-buffer connection) - (generate-new-buffer "*emacsql-log*"))) + (generate-new-buffer " *emacsql-log*"))) (mapc (apply-partially #'emacsql-send-message connection) '("\\pset pager off" "\\pset null nil" diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el index b6868d9c74..55ec04e5cf 100644 --- a/emacsql-sqlite.el +++ b/emacsql-sqlite.el @@ -31,7 +31,7 @@ If FILE is nil use an in-memory database. :debug LOG -- When non-nil, log all SQLite commands to a log buffer. This is for debugging purposes." (let* ((process-connection-type nil) ; use a pipe - (buffer (generate-new-buffer "*emacsql-sqlite*")) + (buffer (generate-new-buffer " *emacsql-sqlite*")) (fullfile (if file (expand-file-name file) ":memory:")) (process (start-process "emacsql-sqlite" buffer emacsql-sqlite-executable fullfile)) @@ -45,7 +45,7 @@ buffer. This is for debugging purposes." (/ (* emacsql-global-timeout 1000) 2)) (when debug (setf (emacsql-log-buffer connection) - (generate-new-buffer "*emacsql-log*"))) + (generate-new-buffer " *emacsql-log*"))) (emacsql-register connection))) (defmethod emacsql-close ((connection emacsql-sqlite-connection))