branch: elpa/hyperdrive
commit fcc33f826ffc6a24ef60fa1033beb8d84477c017
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tidy: Docstrings, spelling words
---
.dir-locals.el | 2 +-
hyperdrive-history.el | 2 +-
hyperdrive-lib.el | 24 ++++++++++++------------
3 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/.dir-locals.el b/.dir-locals.el
index c0c599d519..daf8a568ac 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,4 +1,4 @@
;;; Directory Local Variables -*- no-byte-compile: t -*-
;;; For more information see (info "(emacs) Directory Variables")
-((nil . ((ispell-buffer-session-localwords . ("dir" "hypercore" "hyperdrive"
"hyperdrives" "hyperdrive's" "args" "systemd" "minibuffer" "petname" "petnames"
"org" "plist" "plists" "alist" "alists" "existsp" "ETag" "streamable" "DNSLink"
"ewoc" "struct" "ENTRY's" "localhost" "imenu" "mtime" "accessor")))))
+((nil . ((ispell-buffer-session-localwords . ("dir" "hypercore" "hyperdrive"
"hyperdrives" "hyperdrive's" "args" "systemd" "minibuffer" "petname" "petnames"
"org" "plist" "plists" "alist" "alists" "existsp" "ETag" "streamable" "DNSLink"
"ewoc" "struct" "ENTRY's" "localhost" "imenu" "mtime" "accessor" "http"
"prepended" "prepend" "hostname" "whitespace" "namespace" "filesystem"
"hostnames" "subdirectories" "unsets")))))
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 3b8b8b4b38..990bc1848b 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -150,7 +150,7 @@ Universal prefix argument \\[universal-argument] forces
hyperdrive-current-entry)))
;; TODO: Highlight range for ENTRY
(when (hyperdrive--entry-directory-p entry)
- (hyperdrive-user-error "Directory history not implemented."))
+ (hyperdrive-user-error "Directory history not implemented"))
(pcase-let* (((cl-struct hyperdrive-entry hyperdrive path) entry)
(range-entries
(mapcar (lambda (range)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 64d35369a1..82fa36be69 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -485,7 +485,7 @@ Sends a request to the gateway for hyperdrive's latest
version."
(cl-defun hyperdrive-open (entry &key then recurse (createp t))
"Open hyperdrive ENTRY.
If RECURSE, proceed up the directory hierarchy if given path is
-not found. THEN is a function to pass to the handler which will
+not found. THEN is a function to pass to the handler which will
be called with no arguments in the buffer opened by the handler.
When a writable ENTRY is not found and CREATEP is non-nil, create
a new buffer for ENTRY."
@@ -609,15 +609,15 @@ the given `plz-queue'"
"Fill ENTRY and its hyperdrive from HEADERS.
The following ENTRY slots are filled:
-- type
-- mtime
-- size
-- hyperdrive (from persisted value if it exists)
+- \\+`type'
+- \\+`mtime'
+- \\+`size'
+- \\+`hyperdrive' (from persisted value if it exists)
The following ENTRY hyperdrive slots are filled:
-- public-key
-- writablep (when headers include Allow)
-- domains (merged with current persisted value)
+- \\+`public-key'
+- \\+`writablep' (when headers include Allow)
+- \\+`domains' (merged with current persisted value)
Returns filled ENTRY."
(pcase-let* (((cl-struct hyperdrive-entry hyperdrive) entry)
@@ -731,10 +731,10 @@ Returns the ranges cons cell for ENTRY."
((cl-struct hyperdrive-entry hyperdrive path version) entry)
(version (or version (hyperdrive-latest-version hyperdrive)))
(previous-range (hyperdrive-entry-version-range
- (hyperdrive-entry-create :hyperdrive
hyperdrive :path path :version (1- version))))
+ (hyperdrive-entry-create :hyperdrive
hyperdrive :path path :version (1- version))))
(`(,previous-range-start . ,(map (:existsp
previous-exists-p))) previous-range)
(next-range (hyperdrive-entry-version-range
- (hyperdrive-entry-create :hyperdrive hyperdrive
:path path :version (1+ version))))
+ (hyperdrive-entry-create :hyperdrive hyperdrive
:path path :version (1+ version))))
(`(,next-range-start . ,(map (:existsp next-exists-p)
(:range-end next-range-end))) next-range)
(range-start (if (and previous-range (null previous-exists-p))
;; Extend previous nonexistent range
@@ -1317,7 +1317,7 @@ Affected by option `hyperdrive-reuse-buffers', which see."
(buffer-local-value 'hyperdrive-current-entry
buffer))))
(defun hyperdrive--buffer-for-entry (entry)
- "Return a predicate to match buffer against ENTRY"
+ "Return a predicate to match buffer against ENTRY."
;; TODO: This function is a workaround for bug#65797
(lambda (buffer) (hyperdrive--entry-buffer-p entry buffer)))
@@ -1396,7 +1396,7 @@ When BASE is non-nil, PATH will be expanded against BASE
instead."
(defun hyperdrive--clean-buffer (&optional buffer)
"Remove all local variables, overlays, and text properties in BUFFER.
- When BUFFER is nil, act on current buffer."
+When BUFFER is nil, act on current buffer."
(with-current-buffer (or buffer (current-buffer))
(kill-all-local-variables t)
(let ((inhibit-read-only t))
