Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-parse.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 5a88923fcbfe
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
2314 2314
2315 ;; Accumulate the attributes. 2315 ;; Accumulate the attributes.
2316 (setq tag-attributes (cons (cons attr-name attr-value) 2316 (setq tag-attributes (cons (cons attr-name attr-value)
2317 tag-attributes))) 2317 tag-attributes)))
2318 2318
2319 (if (and (eq w3-p-d-tag-name 'img)
2320 (not (assq 'alt tag-attributes)))
2321 (w3-debug-html :bad-style
2322 :outer
2323 "IMG element has no ALT attribute"))
2319 (cond 2324 (cond
2320 ((and (eq w3-p-d-tag-name 'base) 2325 ((and (eq w3-p-d-tag-name 'base)
2321 (setq w3-p-s-baseobject 2326 (setq w3-p-s-baseobject
2322 (or (assq 'src tag-attributes) 2327 (or (assq 'src tag-attributes)
2323 (assq 'href tag-attributes)))) 2328 (assq 'href tag-attributes))))