;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:05 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-jisyo-edit-mode.el ;;; in Emacs version 21.3.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 "`skk-jisyo-edit-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@33 Keymap for SKK JISYO Edit mode. (defvar skk-jisyo-edit-map nil (#$ . 664)) #@45 Hook run on entry in `skk-jisyo-edit-mode'. (defvar skk-jisyo-edit-mode-hook nil (#$ . 745)) (byte-code "\301B\303\301!\204\f\304\n\204\305\302!\304\207" [current-load-list skk-jisyo-edit-syntax-table skk-jisyo-edit-map boundp nil make-sparse-keymap] 2) #@61 Additional expressions to highlight in SKK JISYO edit mode. (defconst skk-jisyo-edit-font-lock-keywords '(("^\\(;; okuri-ari entries\\.\\)$" 1 font-lock-keyword-face) ("^\\(;; okuri-nasi entries\\.\\)$" 1 font-lock-keyword-face) ("^\\(;.+\\)$" 1 font-lock-comment-face) ("^\\([^; ]+ \\)/" 1 font-lock-function-name-face) ("\\(;[^/]*\\)/" 1 font-lock-type-face) ("/\\([^/\n]+\\)$" 1 highlight) ("\\(/\\)" 1 font-lock-warning-face)) (#$ . 1012)) (put 'skk-jisyo-edit-mode 'font-lock-defaults '(skk-jisyo-edit-font-lock-keywords)) #@35 Major mode for editing SKK JISYO. (defalias 'skk-jisyo-edit-mode #[nil "\306 \210\307\310\311\302!\210\312\311\303!\210\313 \314 !\210\315 \316\f \244!\210)\317\320\321 #\210\317\322\321 #\210\323\324!\207" [mode-name major-mode font-lock-defaults skk-jisyo-edit-syntax-table map skk-jisyo-edit-map kill-all-local-variables "SKK JISYO Edit" skk-jisyo-edit make-local-variable (skk-jisyo-edit-font-lock-keywords) make-syntax-table set-syntax-table make-sparse-keymap use-local-map modify-syntax-entry 34 "w" 47 run-hooks skk-jisyo-edit-mode-hook] 4 (#$ . 1546) nil]) (byte-code "\301\302\303\"\210\301\302\304\"\210\301\302\305\"\210\306\300!\210\306\307!\210\310\311\312!\300\313\314!\315\316\"\210\317\311\312!\"\210\320!\316\232\2038\202C\321\314\322\316\323\322\211\211\324&)#\210\311\312!\207" [product add-to-list auto-mode-alist ("SKK-JISYO" . skk-jisyo-edit-mode) ("\\.skk-jisyo\\(\\.BAK\\|\\.bak\\|~\\)?$" . skk-jisyo-edit-mode) ("\\..*skk/jisyo\\(\\.BAK\\|\\.bak\\|~\\)?$" . skk-jisyo-edit-mode) require skk-version put provide skk-jisyo-edit product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)