;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:01 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/ccc.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 "`ccc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'get-apparent-cursor-color #[nil "\300\301\302 !\236A\207" [cursor-color frame-parameters selected-frame] 3]) (put 'get-apparent-cursor-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'get-apparent-foreground-color #[nil "\300\301\302 !\236A\207" [foreground-color frame-parameters selected-frame] 3]) (put 'get-apparent-foreground-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'get-apparent-background-color #[nil "\300\301\302 !\236A\207" [background-color frame-parameters selected-frame] 3]) (put 'get-apparent-background-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-frame-cursor-color #[(frame color) "\302\303 BC\"\207" [frame color modify-frame-parameters frame-cursor-color] 4]) (put 'set-frame-cursor-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-frame-foreground-color #[(frame color) "\302\303 BC\"\207" [frame color modify-frame-parameters frame-foreground-color] 4]) (put 'set-frame-foreground-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-frame-background-color #[(frame color) "\302\303 BC\"\207" [frame color modify-frame-parameters frame-background-color] 4]) (byte-code "\306\307\310\311#\210\301B\312\301!\204\313\314\315 !\236A\316\301!\210\302B\312\302!\204(\317\320\302!\210\303B\312\303!\204>\321\314\315 !\236A\316\303!\210\304B\312\304!\204N\317\320\304!\210\305B\312\305!\204d\322\314\315 !\236A\316\305!\210\323B\312\323!\204u\317\320\323!\207" [current-load-list frame-cursor-color buffer-local-cursor-color frame-foreground-color buffer-local-foreground-color frame-background-color put set-frame-background-color byte-optimizer byte-compile-inline-expand boundp cursor-color frame-parameters selected-frame make-variable-frame-local nil make-variable-buffer-local foreground-color background-color buffer-local-background-color] 4) (defalias 'ccc-defadvice '(macro . #[(function &rest everything-else) "\305!\205!\306N\203\301\306N\236A\305 !\205 K)\202!K\307\211\203\310 !\203\311>\204\fA@;\203J\312\f8\242\302=\203J\312\f8\202V\fA@\242\302=\205V\fA@\313 !\203j\n\204j\314\315\316#\210\202\313 !\204\n\203\317\n\f\"\314\320\211#\210\321\f*BB\207" [function origname interactive origfunc everything-else fboundp ad-advice-info nil subrp (abort-recursive-edit bury-buffer delete-frame delete-window exit-minibuffer) 2 commandp message "%s" "*** WARNING: Adding advice to subr %s without mirroring its interactive spec ***" delq "*** WARNING: Deleted interactive call from %s advice as %s is not a subr command ***" defadvice] 5])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put ccc-defadvice lisp-indent-function defun edebug-form-spec defadvice] 4) (defalias 'ccc-read-color #[(prompt) "\301!C\207" [prompt facemenu-read-color] 2]) (put 'ccc-read-color 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ccc-color-equal #[(a b) "\302 \"\207" [a b facemenu-color-equal] 3]) (put 'ccc-color-equal 'byte-optimizer 'byte-compile-inline-expand) (defalias 'update-buffer-local-frame-params #[(&optional buffer) "r\301!\203 \202\302\303 !q\210\304 \210\305 \210\306 )\207" [buffer buffer-live-p window-buffer selected-window update-buffer-local-cursor-color update-buffer-local-foreground-color update-buffer-local-background-color] 2]) (defalias 'set-buffer-local-cursor-color #[(color-name) "\n\206 \304\305\306\217)\207" [buffer-local-cursor-color local color-name frame-cursor-color nil (update-buffer-local-cursor-color) ((error (byte-code "\211\207" [local buffer-local-cursor-color] 2)))] 3 nil (byte-code "\301\302!)C\207" [prompt "Cursor color: " facemenu-read-color] 2)]) (defalias 'update-buffer-local-cursor-color #[nil ";\203 \202\n \211\305\306\307 !\236A\310\f \"*?\205!\311\n!)\207" [buffer-local-cursor-color frame-cursor-color color b a cursor-color frame-parameters selected-frame facemenu-color-equal set-cursor-color] 5]) (defalias 'set-cursor-color-buffer-local #[(arg) "\203\303\304\305 !\236A\211\207\306\n!\210\307\211\207" [arg buffer-local-cursor-color frame-cursor-color cursor-color frame-parameters selected-frame set-cursor-color nil] 3]) (defalias 'set-buffer-local-foreground-color #[(color-name) "\n\206 \304\305\306\217)\207" [buffer-local-foreground-color local color-name frame-foreground-color nil (update-buffer-local-foreground-color) ((error (byte-code "\211\207" [local buffer-local-foreground-color] 2)))] 3 nil (byte-code "\301\302!)C\207" [prompt "Foreground color: " facemenu-read-color] 2)]) (defalias 'update-buffer-local-foreground-color #[nil ";\203 \202\n \211\305\306\307 !\236A\310\f \"*?\205!\311\n!)\207" [buffer-local-foreground-color frame-foreground-color color b a foreground-color frame-parameters selected-frame facemenu-color-equal set-foreground-color] 5]) (defalias 'set-foreground-color-buffer-local #[(arg) "\203\303\304\305 !\236A\211\207\306\n!\210\307\211\207" [arg buffer-local-foreground-color frame-foreground-color foreground-color frame-parameters selected-frame set-foreground-color nil] 3]) (defalias 'set-buffer-local-background-color #[(color-name) "\n\206 \304\305\306\217)\207" [buffer-local-background-color local color-name frame-background-color nil (update-buffer-local-background-color) ((error (byte-code "\211\207" [local buffer-local-background-color] 2)))] 3 nil (byte-code "\301\302!)C\207" [prompt "Background color: " facemenu-read-color] 2)]) (defalias 'update-buffer-local-background-color #[nil ";\203 \202\n \211\305\306\307 !\236A\310\f \"*?\205!\311\n!)\207" [buffer-local-background-color frame-background-color color b a background-color frame-parameters selected-frame facemenu-color-equal set-background-color] 5]) (defalias 'set-background-color-buffer-local #[(arg) "\203\303\304\305 !\236A\211\207\306\n!\210\307\211\207" [arg buffer-local-background-color frame-background-color background-color frame-parameters selected-frame set-background-color nil] 3]) (byte-code "\302\303\211@\211\203<:\203)\304\305\306\307@!!\310\311\312AD\313BBBBB!\210\2025\304\305\306\307!!\314BB!\210 A\211\202*\315\316\317\320\303$\210\321\316\303\"\210\322\323\324\325#\210\322\326\324\325#\210\322\327\330\325#\210\322\331\332\325#\210\333\334!\207" [func funcs (bury-buffer delete-frame delete-window overwrite-mode pop-to-buffer select-window (execute-extended-command . "P") (kill-buffer . "bKill buffer: ") (other-window . "p") (select-frame . "e") (switch-to-buffer . "BSwitch to buffer: ")) nil eval ccc-defadvice intern symbol-name (after ccc-ad activate) "Update frame parameters if `buffer-local-*-color's are given." interactive ((update-buffer-local-frame-params)) ((after ccc-ad activate) "Update frame parameters if `buffer-local-*-color's are given." (update-buffer-local-frame-params)) ad-add-advice modify-frame-parameters (ccc-ad nil t (advice lambda nil (when (and (assq 'cursor-color (ad-get-arg 1)) (null buffer-local-cursor-color)) (set-frame-cursor-color (ad-get-arg 0) (cdr (assq 'cursor-color (ad-get-arg 1))))) (when (and (assq 'foreground-color (ad-get-arg 1)) (null buffer-local-foreground-color)) (set-frame-foreground-color (ad-get-arg 0) (cdr (assq 'foreground-color (ad-get-arg 1))))) (when (and (assq 'background-color (ad-get-arg 1)) (null buffer-local-background-color)) (set-frame-background-color (ad-get-arg 0) (cdr (assq 'background-color (ad-get-arg 1))))))) after ad-activate add-hook isearch-mode-end-hook update-buffer-local-frame-params append minibuffer-setup-hook minibuffer-exit-hook #[nil "\300\301 A@!\207" [update-buffer-local-frame-params buffer-list] 2] after-make-frame-functions #[(new-frame) " \306 \301\nBC\"\210*\f\306 \304\nBC\"\210* \306 \305\nBC\"*\207" [new-frame frame-cursor-color color frame frame-foreground-color frame-background-color modify-frame-parameters] 4] provide ccc] 8)