;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-emacs.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-emacs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\204 \303\302\304\"\210\303\305\306\"\210\303\307\310\"\210\303\311\312\"\210\303\313\314\"\210\303\315\316\"\210\303\317\320\"\210\303\321\322\"\210\303\323\324\"\210\303\325\324\"\210\303\326\327\"\210\303\330\331\"\210\303\332\333\"\210\303\334\335\"\210\303\336\337\"\210\340B\341\342!\210\301\343!\203g\303\344\343\"\210\202l\303\344\345\"\210\301\346!\203z\303\347\346\"\210\202\303\347\350\"\210\301\351!\203\215\303\352\351\"\210\202\222\303\352\353\"\210\301\207" [current-load-list fboundp minibufferp defalias #[nil "\300 \301 \232\207" [selected-window active-minibuffer-window] 2 "Return non-nil if within a minibuffer."] dvc-make-overlay make-overlay dvc-delete-overlay delete-overlay dvc-overlay-put overlay-put dvc-move-overlay move-overlay dvc-overlay-buffer overlay-buffer dvc-overlay-start overlay-start dvc-overlay-end overlay-end dvc-extent-detached-p ignore dvc-extent-start-open dvc-mail-strip-quoted-names mail-strip-quoted-names dvc-character-to-event identity dvc-assq-delete-all assq-delete-all dvc-add-text-properties add-text-properties dvc-put-text-property put-text-property dvc-mouse-face-prop (lambda (#1=#:defconst-tmp-var) (defconst dvc-mouse-face-prop #1#)) mouse-face ewoc-delete dvc-ewoc-delete #[(ewoc &rest nodes) "\211\306H\n>\204\307\310!\210 \311H\312\211\306H\n>\204\"\307\313!\210\314Hr \306H\n>\2044\307\315!\210 \316Hq\210\312\211\203\243@=\203e\312\306H\n>\204`\307\317!\210\314\312I\210\320H\321 \"\320H|\210\320H\312\211\223\210\306H\316H\f\316 I\210 \306\fI\210\306\312I\210\316\312I\210A\211\204D.\312\207" [ewoc #:ewoc cl-struct-ewoc-tags dll L R 0 error "ewoc--dll accessing a non-ewoc" 5 nil "ewoc--last-node accessing a non-ewoc" 6 "ewoc--buffer accessing a non-ewoc" 1 "ewoc--last-node storing a non-ewoc" 3 ewoc--node-next last nodes node #:--cl-dolist-temp--] 6 "Delete NODES from EWOC."] redisplay dvc-redisplay #[(&optional force) "\203 \302\303\304!)\207\303\304!\207" [force redisplay-dont-pause t sit-for 0] 2] line-number-at-pos dvc-line-number-at-pos #[(&optional pos) "\206`\303\212eb\210`\nb\210\304y\210\305 `\"T+\207" [pos start opoint nil 0 count-lines] 3 "Return (narrowed) buffer line number at position POS.\nIf POS is nil, use current buffer location."]] 3) #@76 Make a temporary directory using PREFIX. Return the name of the directory. (defalias 'dvc-emacs-make-temp-dir #[(prefix) "\303\304 \"!\305\n!\210\n)\207" [prefix temporary-file-directory dir make-temp-name expand-file-name make-directory] 4 (#$ . 2925)]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias dvc-make-temp-dir dvc-emacs-make-temp-dir provide dvc-emacs] 3)