Your IP : 216.73.216.48


Current Path : /usr/X11R6/share/emacs/24.5/lisp/textmodes/
Upload File :
Current File : //usr/X11R6/share/emacs/24.5/lisp/textmodes/css-mode.elc

;ELC
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'css nil "Cascading Style Sheets (CSS) editing mode." :group 'languages)
(defalias 'css-extract-keyword-list #[257 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314!\210db\210\315\316!\210\317y\210e`|\210\317\211\211\203^\211@eb\210\317\262\320A\317\321#\203L\322\323!B\262\2029\211@\324\325\"BB\262A\266\202\202-\210\237\266\202*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" url-insert-file-contents "http://www.w3.org/TR/REC-CSS2/css2.txt" search-backward "Appendix H. Index" nil re-search-forward t match-string 1 sort string-lessp] 10 "\n\n(fn RES)"])
(defalias 'css-extract-parse-val-grammar #[514 "\300\301\211\302\303#\203S\300\225\262\304\305\"\211\262\203%\306!B\262\202\304\307\"\211\262\203@\310\311\312\"A\"!\262\202\304\313\"\211\262\203\211B\262\202\207" [0 nil string-match "\\(?:<a [^>]+><span [^>]+>\\(?:&lt;\\([^&]+\\)&gt;\\|'\\([^']+\\)'\\)</span></a>\\|\\(\\[\\)\\|\\(]\\)\\|\\(||\\)\\|\\(|\\)\\|\\([*+?]\\)\\|\\({[^}]+}\\)\\|\\(\\w+\\(?:-\\w+\\)*\\)\\)[ 	\n]*" match-string-no-properties 1 intern 2 delete-dups append assoc 9] 10 "\n\n(fn STRING ENV)"])
(defalias 'css-extract-props-and-vals #[0 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314!\210eb\210\315\316\317\315\320#\203L\321\322!\212\304\225b\210\323\324!\210`\316\325!\210\304\224{\326\"BB\262\210)\210\202 \211\262*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" url-insert-file-contents "http://www.w3.org/TR/CSS21/propidx.html" nil re-search-forward "#propdef-\\([^\"]+\\)\"><span class=\"propinst-\\1 xref\">'\\1'</span></a>" t match-string-no-properties 1 search-forward "<td>" "[ 	\n]+|[ 	\n]+<a href=\"cascade.html#value-def-inherit\" class=\"noxref\"><span class=\"value-inst-inherit\">inherit</span></a>" css-extract-parse-val-grammar] 8 "\n\n(fn)"])
#@53 Identifiers for pseudo-elements and pseudo-classes.
(defconst css-pseudo-ids '("active" "after" "before" "first" "first-child" "first-letter" "first-line" "focus" "hover" "lang" "left" "link" "right" "visited") (#$ . 2487))
#@43 Identifiers that appear in the form @foo.
(defconst css-at-ids '("charset" "font-face" "import" "media" "page") (#$ . 2717))
#@35 Identifiers for font descriptors.
(defconst css-descriptor-ids '("ascent" "baseline" "bbox" "cap-height" "centerline" "definition-src" "descent" "font-family" "font-size" "font-stretch" "font-style" "font-variant" "font-weight" "mathline" "panose-1" "slope" "src" "stemh" "stemv" "topline" "unicode-range" "units-per-em" "widths" "x-height") (#$ . 2848))
#@33 Identifiers for types of media.
(defconst css-media-ids '("all" "aural" "bitmap" "continuous" "grid" "paged" "static" "tactile" "visual") (#$ . 3209))
#@29 Identifiers for properties.
(defconst css-property-ids '("azimuth" "background" "background-attachment" "background-color" "background-image" "background-position" "background-repeat" "block" "border" "border-bottom" "border-bottom-color" "border-bottom-style" "border-bottom-width" "border-collapse" "border-color" "border-left" "border-left-color" "border-left-style" "border-left-width" "border-right" "border-right-color" "border-right-style" "border-right-width" "border-spacing" "border-style" "border-top" "border-top-color" "border-top-style" "border-top-width" "border-width" "bottom" "caption-side" "clear" "clip" "color" "compact" "content" "counter-increment" "counter-reset" "cue" "cue-after" "cue-before" "cursor" "dashed" "direction" "display" "dotted" "double" "elevation" "empty-cells" "float" "font" "font-family" "font-size" "font-size-adjust" "font-stretch" "font-style" "font-variant" "font-weight" "groove" "height" "hidden" "inline" "inline-table" "inset" "left" "letter-spacing" "line-height" "list-item" "list-style" "list-style-image" "list-style-position" "list-style-type" "margin" "margin-bottom" "margin-left" "margin-right" "margin-top" "marker-offset" "marks" "max-height" "max-width" "min-height" "min-width" "orphans" "outline" "outline-color" "outline-style" "outline-width" "outset" "overflow" "padding" "padding-bottom" "padding-left" "padding-right" "padding-top" "page" "page-break-after" "page-break-before" "page-break-inside" "pause" "pause-after" "pause-before" "pitch" "pitch-range" "play-during" "position" "quotes" "richness" "ridge" "right" "run-in" "size" "solid" "speak" "speak-header" "speak-numeral" "speak-punctuation" "speech-rate" "stress" "table" "table-caption" "table-cell" "table-column" "table-column-group" "table-footer-group" "table-header-group" "table-layout" "table-row" "table-row-group" "text-align" "text-decoration" "text-indent" "text-shadow" "text-transform" "top" "unicode-bidi" "vertical-align" "visibility" "voice-family" "volume" "white-space" "widows" "width" "word-spacing" "z-index") (#$ . 3366))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable css-electric-keys funcall function #[0 "\300\207" [(125 59)] 1 "\n\n(fn)"] "Self inserting keys which should trigger re-indentation." :version "22.2" :type (repeat character) :options ((125 59)) :group css] 12)
(defvar css-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\307#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\326#\210\301\330\331#\210\211\207" [make-syntax-table modify-syntax-entry 47 ". 14" 42 ". 23" 34 "\"" 39 123 "(}" 125 "){" 40 "()" 41 ")(" 91 "(]" 93 ")[" 64 "'" 35 45 "_"] 5))
(defconst css-escapes-re "\\\\\\(?:[^-]\\|[0-9a-fA-F]+[ \n	
\f]?\\)")
(defconst css-nmchar-re (concat "\\(?:[-[:alnum:]]\\|" css-escapes-re "\\)"))
(defconst css-nmstart-re (concat "\\(?:[[:alpha:]]\\|" css-escapes-re "\\)"))
(defconst css-ident-re (concat css-nmstart-re css-nmchar-re "*"))
(defconst css-proprietary-nmstart-re "[-_]\\(?:khtml\\|m\\(?:oz\\|s\\)\\|o\\|webkit\\)-")
(defconst css-name-re (concat css-nmchar-re "+"))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313#\207" [custom-declare-face css-selector ((t :inherit font-lock-function-name-face)) "Face to use for selectors." :group css css-property ((t :inherit font-lock-variable-name-face)) "Face to use for properties." css-proprietary-property ((t :inherit (css-property italic))) "Face to use for vendor-specific properties."] 6)
(defvar css-font-lock-keywords (byte-code "\305\306P\307B\310\311	\312\"\313Q\314B\315\316\317\n\320\321\f\322\323\260	\324B\257\207" [css-ident-re css-pseudo-ids css-proprietary-nmstart-re css-nmstart-re css-nmchar-re ("!\\s-*important" . font-lock-builtin-face) "@" font-lock-builtin-face "^\\([ 	]*[^@:{}\n][^:{}]+\\(?::" regexp-opt t "\\(?:([^)]+)\\)?[^:{\n]*\\)*\\)\\(?:\n[ 	]*\\)*{" ((1 'css-selector append)) ("^[ 	]*{" (0 (save-excursion (goto-char (match-beginning 0)) (skip-chars-backward " \n	") (put-text-property (point) (match-end 0) 'font-lock-multiline t) nil))) "\\(?:[{;]\\|^\\)[ 	]*\\(" "\\(?:\\(" "\\)\\|" "\\)" "*" "\\)\\s-*:" ((1 (if (match-end 2) 'css-proprietary-property 'css-property)))] 13))
(defvar css-font-lock-defaults '(css-font-lock-keywords nil t))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313!\207" [custom-declare-variable css-indent-offset funcall function #[0 "\300\207" [4] 1 "\n\n(fn)"] "Basic size of one indentation step." :version "22.2" :type integer require smie] 8)
(defconst css-smie-grammar '((":" 22 33) ("," 11 11) (";" 0 0)))
(defalias 'css-smie--forward-token #[0 "`Sf\301=\203(\302f\303>\204\304!\203(\302f\305>\203\"\306u\210\202&\307\306!\210\310\207\307d!\210\304\311!\2039\306u\210\312\313!\207\314 \207" [comment-start-skip 125 nil (32 9 10) looking-at (32 9 10) 1 forward-comment ";" "[;,:]" match-string 0 smie-default-forward-token] 2 "\n\n(fn)"])
(defalias 'css-smie--backward-token #[0 "`\300`[!\210`Sf\301=\203\211`V\203\302\202,`Sf\303>\203*\304u\210\305\306f!\202,\307 \207" [forward-comment 125 ";" (59 44 58) -1 string nil smie-default-backward-token] 3 "\n\n(fn)"])
(defalias 'css-smie-rules #[514 "B\211:\205X\211@A\301=\203*\211\302=\203\202V\211\303=\203&\304\202V\305\202V\306=\203:\211\307\235\205V\310\202V\311=\204D\305\202V\211\312\232\203U\313 \205V\314\304!\202V\305\266\202\207" [css-indent-offset :elem basic arg 0 nil :list-intro (";" "") t :before "{" smie-rule-hanging-p smie-rule-parent] 7 "\n\n(fn KIND TOKEN)"])
#@160 Hook run after entering CSS mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it.  (This is true for all hook variables.)
(defvar css-mode-hook nil (#$ . 9104))
(byte-code "\300\301!\204\f\302\301\303\304#\210\300\207" [boundp css-mode-map put definition-name css-mode] 4)
(defvar css-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [css-mode-map variable-documentation put purecopy "Keymap for `css-mode'." boundp css-mode-syntax-table definition-name css-mode] 5)
(defvar css-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [css-mode-syntax-table variable-documentation put purecopy "Syntax table for `css-mode'." css-mode-abbrev-table definition-name css-mode] 5)
(defvar css-mode-abbrev-table (progn (define-abbrev-table 'css-mode-abbrev-table nil) css-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [css-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `css-mode'." css-mode derived-mode-parent nil] 5)
#@150 Major mode to edit Cascading Style Sheets.

This mode runs the hook `css-mode-hook', as the final step
during initialization.

\{css-mode-map}

(fn)
(defalias 'css-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
'\306\315!\210(
\306\316!\210\317\306\320!\210\321\306\322!\210\323\306\324!\210\325\306\326!\210\307\306\327!\210\330\306\331!\210\332\306\333!\210\334\335)\336\337\340\341\342&\210\306\343!\210\344*#\"#)\345\346!\207" [delay-mode-hooks major-mode mode-name css-mode-map css-mode-syntax-table css-mode-abbrev-table make-local-variable t kill-all-local-variables css-mode "CSS" use-local-map set-syntax-table font-lock-defaults comment-start "/*" comment-start-skip "/\\*+[ 	]*" comment-end "*/" comment-end-skip "[ 	]*\\*+/" parse-sexp-ignore-comments indent-line-function css-indent-line fill-paragraph-function css-fill-paragraph add-log-current-defun-function css-current-defun-name smie-setup css-smie-rules :forward-token css-smie--forward-token :backward-token css-smie--backward-token electric-indent-chars append run-mode-hooks css-mode-hook local-abbrev-table css-font-lock-defaults css-smie-grammar css-electric-keys] 7 (#$ . 10278) nil])
(defalias 'css-fill-paragraph #[256 "\212\304 C\305 C\306\2428\203l\212\307\2428b\210\310\311!\210n?`\240\210)\203l\214\307\2428\242}\210\312 \210\313\203G\314\315\"\203G\316\317!\320	\321\260\202H	\203_\314\315\"\203_\316\317!\320\n\321\260\202`\n\322!\210,\323\202\307\2428?\205\242A@\204\230\324\325\326\327\330\331\332\"\333\"\334\335%D\336\325\337\324EDC\217\205\242A@b\210\212\340\325\341D\336\325\342\340EDC\217)\211\205\343\344\323#\203
\307\304 8\204\260`Sf\345=\203\332\212\346u\210\347\313x\210n\204\326\350 \210)\202\260\305 \240\210\310\311!\203`\242V\203\212\310\346!\210`\242W\205\374\350 \210\323)\204\332`\242W\203\260\350 \210\202\260\242A@b\210\351\352\334!\"\210\323\262\266\202)\207" [comment-continue paragraph-separate paragraph-start fill-paragraph-function syntax-ppss line-end-position 4 8 forward-comment 1 comment-normalize-vars nil string-match "[^ 	]" "\\(?:[ 	]*" regexp-quote "\\)?\\(?:" "\\)" fill-paragraph t #1=#:err funcall make-byte-code 0 "\302\303!\210`\301\242X\205\300\304 \240\207" vconcat vector [down-list 1 syntax-ppss] 2 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] #2=#:err #[0 "\300\301!\210\302`\303\"\207" [forward-sexp 1 copy-marker t] 3 "\n\n(fn)"] #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] re-search-forward "[{;}]" 125 -1 " 	" newline indent-region line-beginning-position] 12 "\n\n(fn &optional JUSTIFY)"])
#@60 Return the name of the CSS section at point, or nil.

(fn)
(defalias 'css-current-defun-name #[0 "\212e`\300Z]\301\302\303#\205\304\305x\210\306 \210\307\310!\205\311\312!\262)\207" [1600 search-backward "{" t " 	
\n" nil beginning-of-line looking-at "^[ 	]*\\([^{
\n]*[^ {	
\n]\\)" match-string-no-properties 1] 5 (#$ . 12937)])
(provide 'css-mode)