branch: elpa/emacsql
commit a4b4dce9a588e95ce7b24119bd76d83165993d87
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Use `put' instead of `setf' and `get'
Using `setf' together with a getter, is noisier than just using
the corresponding setter by itself.
However, stick to (setf (gethash ...)...)', because the argument
order of `puthash' is weird.
---
emacsql-compiler.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 691f151b7c..1c645b64b4 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -20,8 +20,8 @@
(let ((conditions (cl-remove-duplicates
(append parents (list symbol 'emacsql-error 'error)))))
`(prog1 ',symbol
- (setf (get ',symbol 'error-conditions) ',conditions
- (get ',symbol 'error-message) ,message))))
+ (put ',symbol 'error-conditions ',conditions)
+ (put ',symbol 'error-message ,message))))
(emacsql-deferror emacsql-error () ;; parent condition for all others
"EmacSQL had an unhandled condition")
