;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:09 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-obsolete.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`skk-obsolete.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303\304 \"\210\305 \"\210*\306\307\304 \"\210\305 \"\210*\310\311\304 \"\210\305 \"\210*\312\313\304 \"\210\305 \"\210*\314\315\304 \"\210\305 \"\210*\316\317\304 \"\210\305 \"\210*\320\321\304 \"\210\305 \"\210*\322\323\304 \"\210\305 \"\210*\324\325\304 \"\210\305 \"\210*\326\327\304 \"\210\305 \"\210*\330\331\304 \"\210\305 \"\210*\332\333\304 \"\210\305 \"\210*\334\335\304 \"\210\305 \"\210*\336\337\304 \"\210\305 \"\210*\340\341\304 \"\210\305 \"\210*\302\207" [newfun oldfun skk-zenkaku-mode skk-jisx0208-latin-mode defalias make-obsolete skk-zenkaku-mode-on skk-jisx0208-latin-mode-on skk-zenkaku-insert skk-jisx0208-latin-insert skk-zenkaku-region skk-jisx0208-latin-region skk-zenkaku-henkan skk-jisx0208-latin-henkan skk-ascii-mode-on skk-latin-mode-on skk-ascii-mode skk-latin-mode skk-ascii-region skk-latin-region skk-ascii-henkan skk-latin-henkan skk-convert-ad-to-gengo skk-ad-to-gengo skk-convert-gengo-to-ad skk-gengo-to-ad skk-isearch-forward isearch-forward skk-isearch-forward-regexp isearch-forward-regexp skk-isearch-backward isearch-backward skk-isearch-backward-regexp isearch-backward-regexp] 3) #@38 obsolete ’ΚΡ’Ώτ’€Ξ’₯¨’‘Ό’₯κ’₯Ή’₯Θ’‘£ (defvar skk-obsolete-variable-alist '((skk-abbrev-cursor-color . skk-cursor-abbrev-color) (skk-ascii-mode . skk-latin-mode) (skk-ascii-mode-map . skk-latin-mode-map) (skk-ascii-mode-string . skk-latin-mode-string) (skk-default-cursor-color . skk-cursor-default-color) (skk-default-zenkaku-vector . skk-default-jisx0208-vector) (skk-hiragana-cursor-color . skk-cursor-hiragana-color) (skk-hirakana-cursor-color . skk-hiragana-cursor-color) (skk-hirakana-mode-string . skk-hiragana-mode-string) (skk-jisx0208-latin-cursor-color . skk-cursor-jisx0208-latin-color) (skk-katakana-cursor-color . skk-cursor-katakana-color) (skk-latin-cursor-color . skk-cursor-latin-color) (skk-num-type-list . skk-num-type-alist) (skk-numeric-conversion-float-num . skk-num-convert-float) (skk-recompute-numerals-key . skk-num-recompute-key) (skk-remote-shell-program . skk-server-remote-shell-program) (skk-report-server-response . skk-server-report-response) (skk-uniq-numerals . skk-num-uniq) (skk-zenkaku-cursor-color . skk-jisx0208-latin-cursor-color) (skk-zenkaku-mode . skk-jisx0208-latin-mode) (skk-zenkaku-mode-map . skk-jisx0208-latin-mode-map) (skk-zenkaku-mode-string . skk-jisx0208-latin-mode-string) (skk-zenkaku-vector . skk-jisx0208-latin-vector)) (#$ . 1852)) #@38 obsolete ’΄Ψ’Ώτ’€Ξ’₯¨’‘Ό’₯κ’₯Ή’₯Θ’‘£ (defvar skk-obsolete-function-alist '((skk-adjust-numeric-henkan-data . skk-num-process-user-minibuf-input) (skk-ascii-mode . skk-latin-mode) (skk-ascii-mode-on . skk-latin-mode-on) (skk-attr-time-difference . skk-time-difference) (skk-completion . skk-comp-do) (skk-compute-numeric-henkan-key . skk-num-compute-henkan-key) (skk-current-insert-mode . skk-current-input-mode) (skk-date . skk-current-date) (skk-flatten-list . skk-num-flatten-list) (skk-init-numeric-conversion-variables . skk-num-initialize) (skk-isearch-skk-hirakana-mode-p . skk-isearch-skk-hiragana-mode-p) (skk-isearch-skk-jix0208-latin-mode-p . skk-isearch-skk-jisx0208-latin-mode-p) (skk-isearch-skk-turn-on-hirakana-mode . skk-isearch-skk-turn-on-hiragana-mode) (skk-jisx0208-latin-num-str . skk-num-jisx0208-latin) (skk-kakutei-cleanup-henkan-buffer . skk-kakutei-cleanup-buffer) (skk-kakutei-save-and-init-variables . skk-kakutei-initialize) (skk-kanji-num-str . skk-num-type2-kanji) (skk-kanji-num-str2 . skk-num-type3-kanji) (skk-kanji-num-str2-subr . skk-num-type3-kanji-1) (skk-kanji-num-str3 . skk-num-type5-kanji) (skk-kanji-num-str3-subr . skk-num-type5-kanji-1) (skk-middle-list . skk-splice-in) (skk-numeric-convert . skk-num-convert) (skk-numeric-convert*7 . skk-num-convert*7) (skk-numeric-midasi-word . skk-num-henkan-key) (skk-raw-number-to-skk-rep . skk-num-rawnum-exp) (skk-raw-number-to-skk-rep-1 . skk-num-rawnum-exp-1) (skk-recompute-numerals . skk-num-recompute) (skk-shogi-num-str . skk-num-shogi) (skk-toggle-kana . skk-toggle-characters) (skk-update-jisyo-for-numerals . skk-num-update-jisyo) (skk-uniq-numerals . skk-num-uniq) (skk-public-jisyo-contains-p . skk-public-jisyo-has-entry-p) (skk-zenkaku-mode . skk-jisx0208-latin-mode) (skk-zenkaku-mode-on . skk-jisx0208-latin-mode-on) (skktut-quit-tutorial . skk-tutorial-quit) (skktut-tutorial-again . skk-tutorial-again)) (#$ . 3150)) #@90 FILE ’Ζβ’€Ξ obsolete ’ΚΡ’Ώτ’ΜΎ’€Θ obsolete ’΄Ψ’Ώτ’ΜΎ’€ς’₯Α’₯§’₯Γ’₯―’€·’‘’’½ρ’΄Ή’€¨’€λ’‘£ (defalias 'skk-obsolete-check #[(file) "\300\213\207" [((skk-obsolete-check-1 file))] 1 (#$ . 5077) (list (read-file-name (format "File to check: (default: %s) " skk-init-file) default-directory skk-init-file))]) #@288 ’΄Ψ’Ο’’₯Υ’₯‘’₯€’₯λ’Α΄’€Ζ’€Ξ obsolete ’ΚΡ’Ώτ’ΜΎ’€Θ obsolete ’΄Ψ’Ώτ’ΜΎ’€ς’₯Α’₯§’₯Γ’₯―’€·’‘’’½ρ’΄Ή’€¨’€λ’‘£ C-u M-x skk-obsolete-check-all-files ’€Ξ’€θ’€¦’€Λ’΅―’Ζ°’€·’€Ώ’€Θ’€­’€Ο’‘’’₯Η’₯£’₯Υ’₯©’₯λ’₯Θ’₯Η’₯£’₯μ ’₯―’₯Θ’₯κ’€Λ’€’’€λ SKK ’₯Χ’₯ν’₯°’₯ι’₯ΰ’₯Υ’₯‘’₯€’₯λ’€β’₯Α’₯§’₯Γ’₯―’€ς’ΉΤ’€Κ’€¦’‘£ (defalias 'skk-obsolete-check-all-files #[(&optional program-files-too) "\300\213\207" [((byte-code " \nD\306 \205\n\307\310\211\211\203-\311@\" \244A\211\204\311! \244\311! \244\211\310\211\203[@\312\313\"\fBA\211\204E*\314\315\316\"\210\317\320!\210\321\f>\205s\322\323!\205s\324 .\207" [load-path skk-init-file user-init-file program-files-too modified files ("default.el" "site-start.el") ("skk-dcomp.el" "skk-attr.el" "skk-auto.el" "skk-autoloads.el" "skk-comp.el" "skk-cursor.el" "skk-def.el" "skk-develop.el" "skk-dbm.el" "skk-gadget.el" "skk-hankaku-mode.el" "skk-isearch.el" "skk-jisx0201.el" "skk-kakasi.el" "skk-kcode.el" "skk-leim.el" "skk-look.el" "skk-lookup.el" "skk-macs.el" "skk-num.el" "skk-rdbms.el" "skk-server.el" "skk-study.el" "skk-tut.el" "skk-tutcdef.el" "skk-tutcode.el" "skk-viper.el" "skk-xm20_4.el" "skk.el") nil skk-obsolete-check-all-files-1 skk-obsolete-check-1 no-restart-question message "%s" "Obsolete check is completely done" sit-for 1 t y-or-n-p "It is strongly recommended to kill and restart Emacs. Kill Emacs?" save-buffers-kill-emacs program-files system-files user-files lp file #1=#:--dolist-temp--36126] 7))] 1 (#$ . 5386) "p"]) (defalias 'skk-obsolete-check-1 #[(file &optional no-restart-question) "\306\307\310\311 \"\"\312\"\313\314\315\f!!\210\316 \210\317\320\f\"\210 \313\211\203?@eb\210\321 @\322P A\323P\"\210A\211\204$*\324 \203P\325\326!\203P\327\330 \210\331p!\210\317\332\f\"\210\333\334!\210 \204o\n\203o\325\335!\203o\336 \210\n*\207" [skk-obsolete-function-alist skk-obsolete-variable-alist modified alist file cell sort mapcar #[(al) "\301@!\301A!B\207" [al prin1-to-string] 3] append #[(x y) "@ @\231\207" [y x] 2] nil find-file expand-file-name delete-other-windows message "Obsolete check for %s..." query-replace-regexp "\\([^-]\\)" "\\1" buffer-modified-p y-or-n-p "Obsolete check for this buffer done. Save this buffer? " t save-buffer kill-buffer "Obsolete check for %s...done" sit-for 1 "It is strongly recommended to kill and restart Emacs. Kill Emacs?" save-buffers-kill-emacs #1=#:--dolist-temp--36127 no-restart-question] 6]) (defalias 'skk-obsolete-check-all-files-1 #[(files &optional directory) "\306\211\211\306\211\203= @\307\f\"\310\n!\2036\311\n!\203-\n\312\n \"B\2026\313\314\n\"\210\315\316!\210 A\211\204* +\207" [files objfile-list objfile tmpfiles file #1=#:--dolist-temp--36128 nil expand-file-name file-exists-p file-readable-p delete message "%s is not readable. Pass checking" sit-for 1 directory] 6]) (defalias 'skk-obsolete-put-obsolete-mark #[nil "\211\205\302 @@ @A\"\210 A\211\204\303)\207" [skk-obsolete-variable-alist vl make-obsolete-variable nil] 4]) (byte-code "\301\300!\210\301\302!\210\303\304\305!\300\306\307!\310\311\"\210\312\304\305!\"\210\313!\311\232\203)\2024\314\307\315\311\316\315\211\211\317&)#\210\304\305!\207" [product require skk-version put provide skk-obsolete product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)