Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
share
/
emacs
/
site-lisp
/
Upload File :
New :
File
Dir
//usr/share/emacs/site-lisp/desktop-entry-mode.elc
;ELC ;;; Compiled by brewbuilder@hs20-bc1-6.build.redhat.com on Wed Jul 26 15:03:27 2006 ;;; from file /builddir/build/BUILD/desktop-file-utils-0.10/misc/elc.3496/desktop-entry-mode.el ;;; in Emacs version 21.4.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`desktop-entry-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@34 Version of `desktop-entry-mode'. (defconst desktop-entry-mode-version "0.94 (spec 0.9.4)" (#$ . 682)) (custom-declare-group 'desktop-entry nil "Support for editing freedesktop.org desktop entry files." :group 'languages) #@46 *Command for validating desktop entry files. (custom-declare-variable 'desktop-entry-validate-command '"desktop-file-validate" '(#$ . -909) :type 'string :group 'desktop-entry) (byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\306\301%\210\311\315\316\317\306\301%\210\311\320\321\322\306\301%\207" [custom-declare-group desktop-entry-faces nil "Font lock faces for `desktop-entry-mode'." :prefix "desktop-entry-" :group desktop-entry faces custom-declare-face desktop-entry-group-header-face ((((class color) (background light)) (:foreground "mediumblue" :bold t)) (((class color) (background dark)) (:foreground "lightblue" :bold t)) (t (:bold t))) "*Face for highlighting desktop entry group headers." desktop-entry-value-face ((((class color) (background light)) (:foreground "darkgreen")) (((class color) (background dark)) (:foreground "lightgreen"))) "*Face for highlighting desktop entry values." desktop-entry-locale-face ((((class color) (background light)) (:foreground "dimgray")) (((class color) (background dark)) (:foreground "lightgray"))) "*Face for highlighting desktop entry locales."] 10) #@45 Expression for matching desktop entry keys. (defconst desktop-entry-keywords "\\(?:\\<\\(Actions\\|C\\(?:ategories\\|omment\\)\\|D\\(?:ev\\|ocPath\\)\\|E\\(?:ncoding\\|xec\\)\\|F\\(?:SType\\|ilePattern\\)\\|GenericName\\|Hidden\\|I\\(?:con\\|nitialPreference\\)\\|KeyWords\\|M\\(?:imeType\\|ountPoint\\)\\|N\\(?:ame\\|o\\(?:Display\\|tShowIn\\)\\)\\|OnlyShowIn\\|Path\\|ReadOnly\\|S\\(?:erviceTypes\\|ortOrder\\|tartup\\(?:Notify\\|WMClass\\)\\|wallow\\(?:Exec\\|Title\\)\\)\\|T\\(?:erminal\\|ryExec\\|ype\\)\\|U\\(?:RL\\|nmountIcon\\)\\|Version\\)\\>\\|X-[A-Za-z0-9-]+\\)" (#$ . 2049)) #@62 Regular expression for matching desktop entry group headers. (defconst desktop-entry-group-header-re "^\\[\\(X-[^][]+\\|\\(?:Desktop \\(?:Entry\\|Action [a-zA-Z]+\\)\\)\\)\\]" (#$ . 2642)) #@54 Highlighting rules for `desktop-entry-mode' buffers. (defconst desktop-entry-font-lock-keywords (byte-code "\302\303B\304P\305B \306B\307\310B\311\312B\257\207" [desktop-entry-keywords desktop-entry-group-header-re "^\\s-*#.*$" (0 'font-lock-comment-face) "^" (0 'font-lock-keyword-face) (1 'desktop-entry-group-header-face) "^[A-Za-z0-9-]+?\\s-*=\\s-*\\(.*\\)" (1 'desktop-entry-value-face) "^[A-Za-z0-9-]+?\\[\\([^]]+\\)\\]\\s-*=\\s-*\\(.*\\)" ((1 'desktop-entry-locale-face) (2 'desktop-entry-value-face))] 6) (#$ . 2837)) #@84 Imenu generic expression for `desktop-entry-mode'. See `imenu-generic-expression'. (defvar desktop-entry-imenu-generic-expression (byte-code "\301\302BBC\207" [desktop-entry-group-header-re nil (1)] 3) (#$ . 3371)) #@395 Major mode for editing freedesktop.org desktop entry files. See <http://www.freedesktop.org/Standards/desktop-entry-spec> for more information. See `desktop-entry-mode-version' for information about which version of the specification this mode is up to date with. Turning on desktop entry mode calls the value of the variable `desktop-entry-mode-hook' with no args, if that value is non-nil. (defalias 'desktop-entry-mode #[nil "\305\306!\307L\210\305\310!\311 QL\210\305\312!\313L\210\305\314!\315L\210\305\316!\317L\210\305\320!\321L\210\322\323\305\306!\fL\210\324\325!\204= \305\326!\327L\210\330\331!\207" [desktop-entry-validate-command buffer-file-name major-mode mode-name desktop-entry-imenu-generic-expression make-local-variable imenu-generic-expression ((nil "^\\s-*\\(.*\\)\\s-*=" 1)) compile-command " " compilation-buffer-name-function #[(x) "\301\302!\303Q\207" [buffer-file-name "*desktop-file-validate " file-name-nondirectory "*"] 3] comment-start "# " comment-end "" comment-start-skip "#+ *" desktop-entry-mode "Desktop Entry" featurep xemacs font-lock-defaults (desktop-entry-font-lock-keywords) run-hooks desktop-entry-mode-hook] 4 (#$ . 3594) nil]) #@47 Validate desktop entry in the current buffer. (defalias 'desktop-entry-validate #[nil "\301\302!\210\302!\207" [compile-command require compile] 2 (#$ . 4779) nil]) (provide 'desktop-entry-mode)