[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc a3cd8d43ae 1/3: ; Fix typo "heusitic" -> "heuristic"
From: |
Philip Kaludercic |
Subject: |
feature/package+vc a3cd8d43ae 1/3: ; Fix typo "heusitic" -> "heuristic" |
Date: |
Sun, 23 Oct 2022 12:46:40 -0400 (EDT) |
branch: feature/package+vc
commit a3cd8d43aefb1ad53efb076f3f6cb45d7b914d5a
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
;Fix typo "heusitic" -> "heuristic"
---
lisp/emacs-lisp/package-vc.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index dd451e80f4..c667219921 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -56,7 +56,7 @@
:group 'package
:version "29.1")
-(defcustom package-vc-heusitic-alist
+(defcustom package-vc-heuristic-alist
`((,(rx bos "http" (? "s") "://"
(or (: (? "www.") "github.com"
"/" (+ (or alnum "-" "." "_"))
@@ -104,7 +104,7 @@
(defcustom package-vc-default-backend 'Git
"Default VC backend used when cloning a package repository.
If no repository type was specified or could be guessed by
-`package-vc-heusitic-alist', the VC backend denoted by this
+`package-vc-heuristic-alist', the VC backend denoted by this
symbol is used. The value must be a member of
`vc-handled-backends' that implements the `clone' function."
:type `(choice ,@(mapcar (lambda (b) (list 'const b))
@@ -360,7 +360,7 @@ the `:brach' attribute in PKG-SPEC."
;; Clone the repository into `repo-dir' if necessary
(unless (file-exists-p repo-dir)
(make-directory (file-name-directory repo-dir) t)
- (let ((backend (or (and url (alist-get url package-vc-heusitic-alist
+ (let ((backend (or (and url (alist-get url package-vc-heuristic-alist
nil nil #'string-match-p))
package-vc-default-backend)))
(unless (vc-clone url backend repo-dir (or rev branch))
@@ -382,7 +382,7 @@ the `:brach' attribute in PKG-SPEC."
;; pointing towards a repository, and use that as a backup
(and-let* ((extras (package-desc-extras (cadr pkg)))
(url (alist-get :url extras))
- (backend (alist-get url package-vc-heusitic-alist
+ (backend (alist-get url package-vc-heuristic-alist
nil nil #'string-match-p))))))
package-archive-contents))
@@ -424,7 +424,7 @@ be requested using REV."
(cond
((and-let* ((stringp name-or-url)
(backend (alist-get name-or-url
- package-vc-heusitic-alist
+ package-vc-heuristic-alist
nil nil #'string-match-p)))
(package-vc-unpack
(package-desc-create