;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-about.el ;;; in Emacs version 23.0.50.2 ;;; 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 "`dvc-about.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require dvc-buffers dvc-version] 2) #@114 Default animation step interval. Used in `dvc-about-message-with-bouncing' and `dvc-about-message-with-rolling' (defvar dvc-about-message-long-default-interval 0.2 (#$ . 674)) #@77 Animation step interval when bouncing in `dvc-about-message-with-bouncing'. (defvar dvc-about-message-long-border-interval 1.0 (#$ . 857)) #@103 Similar to `message' but display the message in bouncing animation to show long line. (fn &rest MSG) (defalias 'dvc-about-message-with-bouncing #[(&rest msg) "\300\301\215\207" [--cl-block-dvc-about-message-with-bouncing-- (byte-code "\306\307\"\310\311 !\312G\313G\\\314\\ZG\315\n Z\315\n W\203*\316\317\"\202\256\f\320W\203f\211 \\O\316\321\"\210\322\320=\203R\202T!\204]\323\324\315\"\210T\211\2022*\f\320W\203\247\fZ \211 \\O\316\325\"\210\322\320=\203\223\202\225!\204\236\323\324\315\"\210T\211\202o*\326 \210\202*-\207" [msg width msglen submsg steps j apply format window-width minibuffer-window "[<] " " [>]" 1 nil message "%s" 0 "[<] %s [ ]" sit-for throw --cl-block-dvc-about-message-with-bouncing-- "[ ] %s [>]" garbage-collect i #1=#:--cl-dotimes-temp-- dvc-about-message-long-border-interval dvc-about-message-long-default-interval #2=#:--cl-dotimes-temp--] 5)] 2 (#$ . 1003)]) #@102 Similar to `message' but display the message in rolling animation to show long line. (fn &rest MSG) (defalias 'dvc-about-message-with-rolling #[(&rest msg) "\300\301\215\207" [--cl-block-dvc-about-message-with-rolling-- (byte-code "\306\307\310\"\311Q\312\313 !\314GTZG\315\n Z\n W\203'\316\317\"\202z\n\320 W\203s \fW\203B \211 \\O\202O \315O\320 \\\nZOP\316\321\"\210\322 \320=\203a\202c!\204l\323\324\315\"\210 T\211\202-*\325 \210\202',\207" [msg width msglen submsg normal-range i " : " apply format " " window-width minibuffer-window "[<] " nil message "%s" 0 "[<] %s" sit-for throw --cl-block-dvc-about-message-with-rolling-- garbage-collect #1=#:--cl-dotimes-temp-- dvc-about-message-long-border-interval dvc-about-message-long-default-interval] 6)] 2 (#$ . 1972)]) #@29 Displays a welcome message. (defalias 'dvc-about #[nil "\303\304!\211\203\305 !\210\202=\305\306!\211!\210\307c\210\310c\210\311\312\n\"c\210\310c\210\310\313\314\315\316\317\"\320\310\261\210\321\322!\210\323\324\325\"\210\326\327!*\207" [name buffer dvc-version "*dvc-welcome*" get-buffer dvc-switch-to-buffer get-buffer-create " *** Welcome to DVC ! *** \n" "\n" format "DVC version: %s" "" "[" dvc-about-insert-button "About" dvc-about "]" toggle-read-only t local-set-key [113] #[nil "\300p!\207" [kill-buffer] 2 nil nil] dvc-about-message-with-bouncing "Author: Stefan Reichoer , Contributions from: Matthieu Moy , Masatake YAMATO , Milan Zamazal , Martin Pool , Robert Widhopf-Fenk , Mark Triggs WE MUST UPDATE THIS LIST"] 7 (#$ . 2808) nil]) #@93 Insert a button labeled with LABEL and launching FUNCTION. Helper function for `dvc-about'. (defalias 'dvc-about-insert-button #[(label function) "\306\307 \310 \311\n#\210\310 \312\n#\210\310 \313\n#\210 )\314\211\203\255\315! 9\205:\316\317\320\321 !\"!!\203D\202R\f\205R\322\f!;\205R\322\f!\"!\203o\"\203j\"\323\324\323!\260\202p!\202p# 9\203| J\202} \325\326 G\327\330\331 \205\227\332\333\305 \334#\257\f\205\236\335\fD\"BBBB $\210 -\202\257-\207" [label map function help menu keymap bold make-sparse-keymap define-key [return] " " [mouse-2] nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties 0 face font-lock-face append mouse-face highlight help-echo dvc-cmenu str dvc-highlight strcpy key-help prefix-help long-help] 14 (#$ . 3713)]) (provide 'dvc-about)