branch: elpa/emacsql
commit 3ec2c96e58df39e955531333d6f30fc2332d7cd4
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
emacsql-log-buffer: Deprecate this accessor for log-buffer slot
We don't provide accessors for other slots either.
---
emacsql.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/emacsql.el b/emacsql.el
index bd8bc0d24b..cfa8bb4dd3 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -104,6 +104,9 @@ may return `process', `user-ptr' or `sqlite' for this
value.")
"A connection to a SQL database."
:abstract t)
+(make-obsolete 'emacsql-log-buffer "use (oref obj log-buffer) instead."
+ "EmacSQL 4.0.0")
+
(cl-defgeneric emacsql-close (connection)
"Close CONNECTION and free all resources.")
@@ -127,14 +130,13 @@ SQL expression.")
(cl-defmethod emacsql-enable-debugging ((connection emacsql-connection))
"Enable debugging on CONNECTION."
- (unless (buffer-live-p (emacsql-log-buffer connection))
- (setf (emacsql-log-buffer connection)
- (generate-new-buffer " *emacsql-log*"))))
+ (unless (buffer-live-p (oref connection log-buffer))
+ (oset connection log-buffer (generate-new-buffer " *emacsql-log*"))))
(cl-defmethod emacsql-log ((connection emacsql-connection) message)
"Log MESSAGE into CONNECTION's log.
MESSAGE should not have a newline on the end."
- (let ((buffer (emacsql-log-buffer connection)))
+ (let ((buffer (oref connection log-buffer)))
(when buffer
(unless (buffer-live-p buffer)
(setq buffer (emacsql-enable-debugging connection)))
