(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))))
;; And anything else is punctuation.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face)))
- font-lock-syntactic-face-function . nil))
+ font-lock-syntactic-face-function nil))
;; Hack key bindings.
(local-set-key [?{] 'mdw-self-insert-and-indent)