Mercurial > hg > xemacs-beta

comparison lisp/w3/css.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents ec9a17fef872
children 8d2a9b52c682
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1 ;;; css.el -- Cascading Style Sheet parser 1 ;;; css.el -- Cascading Style Sheet parser
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/07 01:12:31 3 ;; Created: 1997/03/14 22:02:39
4 ;; Version: 1.29 4 ;; Version: 1.30
5 ;; Keywords: 5 ;; Keywords:
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
619 (narrow-to-region st nd) 619 (narrow-to-region st nd)
620 (goto-char (point-min)) 620 (goto-char (point-min))
621 (while (not (eobp)) 621 (while (not (eobp))
622 (skip-chars-forward ";, \n\t") 622 (skip-chars-forward ";, \n\t")
623 (setq name-pos (point)) 623 (setq name-pos (point))
624 (skip-chars-forward "^ \n\t:=,;") 624 (skip-chars-forward "^ \n\t:,;")
625 (downcase-region name-pos (point)) 625 (downcase-region name-pos (point))
626 (setq name (intern (buffer-substring name-pos (point)))) 626 (setq name (intern (buffer-substring name-pos (point))))
627 (skip-chars-forward " \t\n") 627 (skip-chars-forward " \t\n")
628 (if (not (eq (char-after (point)) ?:)) ; There is no value 628 (if (not (eq (char-after (point)) ?:)) ; There is no value
629 (setq value nil) 629 (setq value nil)