;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-state.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-state.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\207" [require dvc-utils dvc-defs dvc-config custom-declare-group dvc-state nil "Saving DVC's state between Emacs sessions." :group dvc] 6) #@115 *File in which DVC saves state variables between Emacs sessions. The file is stored in the `dvc-config-directory' (custom-declare-variable 'dvc-state-file-name '"state.el" '(#$ . -813) :type 'file :group 'dvc-state) #@70 *List of variables to store in the state file `dvc-state-file-name'. (custom-declare-variable 'dvc-state-variables-list ''(dvc-tips-number) '(#$ . -1035) :type '(repeat (symbol)) :group 'dvc-state) #@296 Save variables from VARS list to file STATE-FILE. The default for VARS is `dvc-state-variables-list' The default for STATE-FILE is `dvc-state-file-name'. If PP is non-nil use `dvc-pp-to-string' to format object. The file will contain a setq setting the vars during loading by `dvc-load-state'. (defalias 'dvc-save-state #[(&optional vars state-file pp) "\206\306 \n\" \206 \f\307\310\311!!\204 \312\311!\313\"\210\212\314\315!q\210\316 \210\317c\210\203J \203a @ A\320\321\322 !\323 J!#c\210\2021 \203a @ A\320\324\322 ! J#c\210\202J\325c\210\326ed#,\207" [state-file dvc-state-file-name dvc-config-directory vars dvc-state-variables-list v expand-file-name nil file-exists-p file-name-directory make-directory t get-buffer-create " *dvc-state*" erase-buffer ";; Generated file. Do not edit!!!\n(setq\n" format "%s\n'%s" symbol-name dvc-pp-to-string " %s '%S\n" " )" write-region pp] 5 (#$ . 1240)]) #@56 Load `dvc-state-file-name`, i.e. evaluate its content. (defalias 'dvc-load-state #[(&optional state-file) "\206\303 \n\"\304!\205\305\306\307\211$)\207" [state-file dvc-state-file-name dvc-config-directory expand-file-name file-exists-p load nil t] 5 (#$ . 2179)]) (provide 'dvc-state)