branch: externals/triples
commit 183bd8156f1d8b91a213b98914bd6571c5d2d0e5
Author: Andrew Hyatt <[email protected]>
Commit: Andrew Hyatt <[email protected]>
Remove trailing whitespace
---
triples-test.el | 6 +++---
triples.el | 6 +++---
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/triples-test.el b/triples-test.el
index 0d88193e2b..c181b9a845 100644
--- a/triples-test.el
+++ b/triples-test.el
@@ -40,7 +40,7 @@ easily debug into it.")
(declare (indent 0) (debug t))
`(let ((db-file (make-temp-file "triples-test")))
(unwind-protect
- (progn
+ (progn
(let ((db (triples-connect db-file)))
(setq triples-test-db-file db-file)
,@body
@@ -98,7 +98,7 @@ easily debug into it.")
;; Test that we can have symbol subject and objects.
(triples-db-insert db 'sub 'pred 'obj)
(should (equal
- (mapcar (lambda (row) (seq-take row 3)) (triples-db-select db
'sub))
+ (mapcar (lambda (row) (seq-take row 3)) (triples-db-select db
'sub))
'((sub pred obj))))
;; Test that properties aren't strings. They happen to be stored
;; differently for each system due to differences in how the inserting
@@ -317,7 +317,7 @@ easily debug into it.")
(triples-set-type db "foo" 'named :name "My Name Is Fred Foo")
(triples-set-type db "bar" 'named :name "My Name Is Betty Bar")
(should (equal
- (triples-test-list-sort
+ (triples-test-list-sort
'(("bar" named/name "My Name Is Betty Bar" nil)
("foo" named/name "My Name Is Fred Foo" nil)))
(triples-test-list-sort
diff --git a/triples.el b/triples.el
index 8224791823..60a565332f 100644
--- a/triples.el
+++ b/triples.el
@@ -169,7 +169,7 @@ normal schema checks, so should not be called from client
programs."
(when (and (fboundp 'plistp) (not (plistp properties)))
(error "Properties stored must always be plists"))
(pcase triples-sqlite-interface
- ('builtin
+ ('builtin
(sqlite-execute db "REPLACE INTO triples VALUES (?, ?, ?, ?)"
(list (triples-standardize-val subject)
(triples-standardize-val (triples--decolon
predicate))
@@ -224,7 +224,7 @@ all to nil, everything will be deleted, so be careful!"
(apply #'vector
(append '(:delete :from triples)
(when (or subject predicate object properties)
- (triples--emacsql-andify
+ (triples--emacsql-andify
(append
'(:where)
(when subject `((= subject ,(intern (format
"$s%d" (cl-incf n))))))
@@ -295,7 +295,7 @@ object, properties to retrieve or nil for *."
,(if selector (apply #'vector selector) '*)
:from triples)
(when (or subject predicate object properties)
- (triples--emacsql-andify
+ (triples--emacsql-andify
(append
'(:where)
(when subject `((= subject ,(intern (format
"$s%d" (cl-incf n))))))
