emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/emacsql f98ee5e7cd 246/427: Use no-undo buffers.


From: ELPA Syncer
Subject: [nongnu] elpa/emacsql f98ee5e7cd 246/427: Use no-undo buffers.
Date: Tue, 13 Dec 2022 02:59:48 -0500 (EST)

branch: elpa/emacsql
commit f98ee5e7cd59e3360225d8a366b14cd38b507bd8
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]