;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 15:45:52 2008 ;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/illusion.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; 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 "`illusion.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\303\304!\210\301B\305\301!\204\306\302B\305\302!\204\307\303\207" [current-load-list illusion-lighter illusion-submit-key require easy-mmode boundp " _i_" ""] 2) #@120 Value of this variable is called when `illusion-submit' is executed. It must return non-nil value for successful case. (defvar illusion-submit-func #[nil "\300\301!\207" [error "Submission function is not defined."] 2] (#$ . 817)) (make-variable-buffer-local 'illusion-submit-func) (defalias 'illusion-submit #[nil " \210\301\302!\207" [illusion-submit-func set-buffer-modified-p nil] 2 nil nil]) (defalias 'illusion-generate #[(name loader submitter) "\304\305!!\210\306 \210\307\310!\210  \210eb\210\311\312!\207" [name submitter illusion-submit-func loader switch-to-buffer generate-new-buffer text-mode illusion-mode 1 set-buffer-modified-p nil] 3]) #@95 Non-nil if Illusion mode is enabled. Use the command `illusion-mode' to change this variable. (defvar illusion-mode nil (#$ . 1481)) (make-variable-buffer-local 'illusion-mode) #@312 With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. When the mode is enabled, \[illusion-submit] submits the content with a manner which is suitable to current buffer. key binding --- ------- \[illusion-submit] Submit changes  (defalias 'illusion-mode #[(&optional arg) "\203\f\302!\303V\202 ?\304\305 \203\306\202\307\"\210t\203-\310\311 \203*\312\202+\313\"\210\314 \210 \207" [arg illusion-mode prefix-numeric-value 0 run-hooks illusion-mode-hook illusion-mode-on-hook illusion-mode-off-hook message "Illusion mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1665) nil]) #@50 Hook run at the end of function `illusion-mode'. (custom-declare-variable 'illusion-mode-hook 'nil '(#$ . 2350) :group 'illusion :type 'hook) #@29 Keymap for `illusion-mode'. (defvar illusion-mode-map (byte-code "\302BC\303 !\203 \202! <\203\304 !\202!\305\306\302BC\")\207" [illusion-submit-key m illusion-submit keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 2498)) (byte-code "\301\302\303#\210\304\305\306\"\207" [illusion-mode-map add-minor-mode illusion-mode illusion-lighter add-hook illusion-mode-on-hook #[nil "\301!\207" [illusion-mode-map use-local-map] 2]] 4) (defalias 'yarot13-find-file #[(file) "\301\302\303!P\304\305\306DE\304\305\307DE#\207" [file illusion-generate "rot13:" file-name-nondirectory lambda nil yarot13-insert-file-contents yarot13-save-buffer-to] 7 nil "Frot13 file: "]) (defalias 'yarot13-insert-file-contents #[(file) "\303!\203!\304\305\306!!\307\216r q\210\310!\210\311 \210\312 +\211c)\207\313\314!\207" [file #1=#:temp-buffer s file-exists-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents yarot13-rotate-buffer buffer-string message "(New file)"] 4]) (defalias 'yarot13-save-buffer-to #[(file) "\303 \304\305\306!!\307\216r q\210c\210\310 \210\311\n!\210\312 ,\207" [s #1=#:temp-buffer file buffer-string get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) yarot13-rotate-buffer set-visited-file-name basic-save-buffer] 3]) (defalias 'yarot13-rotate-buffer #[nil "\212eb\210m?\205%\301f\302\303\304#\302\305\306#\307\310!\210\311\310\"\210)\202)\207" [c nil yarot13-rotate-char 97 122 65 90 delete-char 1 insert-char] 4]) (defalias 'yarot13-rotate-string #[(str) "\302\303\304!!\305\216rq\210 c\210\306 \210\307 +\207" [#1=#:temp-buffer str get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) yarot13-rotate-buffer buffer-string] 3]) (defalias 'yarot13-rotate-char #[(x beg end) " Z\n ZT X\203\"\nX\203\" \305\f \306\245\\ \"\\\202#*\207" [x beg end w d mod 2] 5]) (provide 'illusion)