From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 27 Jul 2023 15:53:09 +0000 (+0100)
Subject: el/dot-emacs.el (mdw-merge-style-alists): Use correct length of `-alist'.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/143095e630dde7ed18eb9a2f5ba7763642fe6e7a

el/dot-emacs.el (mdw-merge-style-alists): Use correct length of `-alist'.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index a04ac26..393e136 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2396,8 +2396,8 @@ indentation anyway."
       (let ((key (car item)) (value (cdr item)))
 	(if (let* ((key-name (symbol-name key))
 		   (key-len (length key-name)))
-	      (and (>= key-len 5)
-		   (string= (subseq key-name (- key-len 5)) "-alist")))
+	      (and (>= key-len 6)
+		   (string= (subseq key-name (- key-len 6)) "-alist")))
 	    (push (cons key
 			(mdw-merge-style-alists value
 						(cdr (assoc key second))))