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 a04ac264de88557a5fd594e145a12d31ddd0fb6f..393e136bb59ca7dab8e304064f9b9c7c9d350b24 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2396,8 +2396,8 @@ (defun mdw-merge-style-alists (first second)
       (let ((key (car item)) (value (cdr item)))
        (if (let* ((key-name (symbol-name key))
                   (key-len (length key-name)))
       (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))))
            (push (cons key
                        (mdw-merge-style-alists value
                                                (cdr (assoc key second))))