From 3bedae38dd9ff7cf6c026decf4eef27ffb4ce1e3 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 2 Aug 2021 22:05:51 -0400 Subject: [PATCH] dev: transition to 12c long hashes In bumps, in :pin's, and in our git conventions. We have no rules for the commit linter for it yet, though. --- core/autoload/packages.el | 2 +- modules/lang/emacs-lisp/autoload.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index ae9f57938..a669877fc 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -31,7 +31,7 @@ "Return a PACKAGE and its PLIST in 'username/repo@commit' format." (format "%s@%s" (plist-get (doom--package-merge-recipes package plist) :repo) - (substring-no-properties (plist-get plist :pin) 0 7))) + (substring-no-properties (plist-get plist :pin) 0 12))) (defun doom--package-at-point (&optional point) "Return the package and plist from the (package! PACKAGE PLIST...) at point." diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index ae9ce9d9c..b1e9ef520 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -274,7 +274,7 @@ verbosity when editing a file in `doom-private-dir' or `doom-emacs-dir'." (goto-char (match-beginning 0)) (and (stringp (plist-get (sexp-at-point) :pin)) (search-forward ":pin" nil t) - (let ((start (re-search-forward "\"[^\"\n]\\{10\\}" nil t)) + (let ((start (re-search-forward "\"[^\"\n]\\{12\\}" nil t)) (finish (and (re-search-forward "\"" (line-end-position) t) (match-beginning 0)))) (when (and start finish)