|
|
@@ -531,8 +531,8 @@ parameters when merging lists."
|
|
|
(case (car pair)
|
|
|
(:var
|
|
|
;; we want only one specification per variable
|
|
|
- (when (string-match "^\\([^= \f\t\n\r\v]+\\)=\\([^\f\n\r\v]+\\)$" (cdr pair))
|
|
|
- ;; TODO: When is this not true? Can there be whitespace around the '='?
|
|
|
+ (when (string-match "^\\([^= \f\t\n\r\v]+\\)[ \t]*=[ \t]*\\([^\f\n\r\v]+\\)$" (cdr pair))
|
|
|
+ ;; TODO: When is this not true?
|
|
|
(setq var (intern (match-string 1 (cdr pair)))
|
|
|
ref (match-string 2 (cdr pair))
|
|
|
vars (cons (cons var ref) (assq-delete-all var vars)))))
|