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

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index a04ac26..393e136 100644 (file)
--- 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))))