Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-parse.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
2134 (setq between-tags-end (1- (point))) 2134 (setq between-tags-end (1- (point)))
2135 (goto-char (match-end 0)) 2135 (goto-char (match-end 0))
2136 2136
2137 ;; Read the attributes from a start-tag. 2137 ;; Read the attributes from a start-tag.
2138 (if w3-p-d-end-tag-p 2138 (if w3-p-d-end-tag-p
2139 (if (looking-at "[ \t\r\n/]*>") 2139 (if (looking-at "[ \t\r\n/]*[<>]")
2140 nil 2140 nil
2141 ;; This is in here to deal with those idiots who stick 2141 ;; This is in here to deal with those idiots who stick
2142 ;; attribute/value pairs on end tags. *sigh* 2142 ;; attribute/value pairs on end tags. *sigh*
2143 (w3-debug-html "Evil attributes on end tag.") 2143 (w3-debug-html "Evil attributes on end tag.")
2144 (skip-chars-forward "^>")) 2144 (skip-chars-forward "^>"))
2328 (cons w3-p-s-btdt 2328 (cons w3-p-s-btdt
2329 (cdr (assq 'class tag-attributes)))) 2329 (cdr (assq 'class tag-attributes))))
2330 (setq tag-attributes (cons (cons 'class (list w3-p-s-btdt)) 2330 (setq tag-attributes (cons (cons 'class (list w3-p-s-btdt))
2331 tag-attributes)))) 2331 tag-attributes))))
2332 ) 2332 )
2333 (if (not (eq w3-p-d-tag-name 'input))
2334 nil
2335 (setq w3-p-s-btdt (concat ":"
2336 (downcase
2337 (or (cdr-safe
2338 (assq 'type tag-attributes))
2339 "text"))))
2340 (if (assq 'class tag-attributes)
2341 (setcdr (assq 'class tag-attributes)
2342 (cons w3-p-s-btdt
2343 (cdr (assq 'class tag-attributes))))
2344 (setq tag-attributes (cons (cons 'class (list w3-p-s-btdt))
2345 tag-attributes))))
2333 ) 2346 )
2334 2347
2335 ;; Process the end of the tag. 2348 ;; Process the end of the tag.
2336 (skip-chars-forward " \t\n\r") 2349 (skip-chars-forward " \t\n\r")
2337 (cond ((= ?> (following-char)) 2350 (cond ((= ?> (following-char))