1324 |
(add-text-properties start end (cddr val)) |
(add-text-properties start end (cddr val)) |
1325 |
(setq val (cadr val))) |
(setq val (cadr val))) |
1326 |
(cond |
(cond |
1327 |
|
((not (or val (eq override t))) |
1328 |
|
;; If `val' is nil, don't do anything. It is important to do it |
1329 |
|
;; explicitly, because when adding nil via things like |
1330 |
|
;; font-lock-append-text-property, the property is actually |
1331 |
|
;; changed from <face> to (<face>) which is undesirable. --Stef |
1332 |
|
nil) |
1333 |
((not override) |
((not override) |
1334 |
;; Cannot override existing fontification. |
;; Cannot override existing fontification. |
1335 |
(or (text-property-not-all start end 'face nil) |
(or (text-property-not-all start end 'face nil) |