mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

;Fix typo "pacakge" -> "package"

Browse source
This commit is contained in:
Philip Kaludercic 2022-10-23 18:46:25 +02:00
parent e31c84f4e7
commit 8149fdd820
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/package-vc.el
View file

@ -138,7 +138,7 @@ with \".el\" concatenated to the end.
All other values are ignored.")
(defun pacakge-vc-desc->spec (pkg-desc &optional name)
(defun package-vc-desc->spec (pkg-desc &optional name)
"Retrieve the package specification for PKG-DESC.
The optional argument NAME can be used to override the default
name for PKG-DESC."
@ -153,7 +153,7 @@ name for PKG-DESC."
If no package specification can be determined, the function will
return nil."
(inline-letevals (pkg-desc prop)
(inline-quote (plist-get (pacakge-vc-desc->spec ,pkg-desc) ,prop))))
(inline-quote (plist-get (package-vc-desc->spec ,pkg-desc) ,prop))))
(defun package-vc--read-archive-data (archive)
"Update `package-vc-archive-spec-alist' with the contents of ARCHIVE.
@ -219,7 +219,7 @@ The output is written out into PKG-FILE."
(or (package-desc-summary pkg-desc)
(and-let* ((pkg (cadr (assq name package-archive-contents))))
(package-desc-summary pkg))
(and-let* ((pkg-spec (pacakge-vc-desc->spec pkg-desc))
(and-let* ((pkg-spec (package-vc-desc->spec pkg-desc))
(main-file (plist-get pkg-spec :main-file)))
(lm-summary main-file))
(and-let* ((main-file (expand-file-name
@ -303,7 +303,7 @@ The output is written out into PKG-FILE."
(package-vc-generate-description-file pkg-desc pkg-file)
;; Detect a manual
(when-let ((pkg-spec (pacakge-vc-desc->spec pkg-desc))
(when-let ((pkg-spec (package-vc-desc->spec pkg-desc))
((executable-find "install-info")))
(dolist (doc-file (ensure-list (plist-get pkg-spec :doc)))
(package-vc-build-documentation pkg-desc doc-file))))
@ -382,7 +382,7 @@ the `:brach' attribute in PKG-SPEC."
"Generate a list of packages with VC data."
(seq-filter
(lambda (pkg)
(or (pacakge-vc-desc->spec (cadr pkg))
(or (package-vc-desc->spec (cadr pkg))
;; If we have no explicit VC data, we can try a kind of
;; heuristic and use the URL header, that might already be
;; pointing towards a repository, and use that as a backup
@ -440,7 +440,7 @@ be requested using REV."
(let ((copy (copy-package-desc (cadr desc))))
(setf (package-desc-kind copy) 'vc)
copy)
(or (pacakge-vc-desc->spec (cadr desc))
(or (package-vc-desc->spec (cadr desc))
(user-error "Package has no VC data"))
rev)))
((user-error "Unknown package to fetch: %s" name-or-url))))