;ELC   
;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:29 2005
;;; from file /home/nelhage/Desktop/vm-7.19/vm-macro.el
;;; in Emacs version 22.0.50.7
;;; with all optimizations.

;;; This file uses opcodes which do not exist in Emacs 18.
(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")))
    (error "`vm-macro.el' was compiled for Emacs 19 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'vm-marker #[(pos &optional buffer) "\302 	\223\207" [pos buffer make-marker] 3])
(put 'vm-marker 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-select-folder-buffer #[nil "\203 \302!\204 \303\304!\210q\207	\305>?\205 \303\306!\207" [vm-mail-buffer major-mode buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer"] 2])
(put 'vm-select-folder-buffer 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-select-folder-buffer-if-possible #[nil "\301!\205 \302!\205 q\207" [vm-mail-buffer bufferp buffer-name] 2])
(put 'vm-select-folder-buffer-if-possible 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-error-if-folder-read-only #[nil "\205 \301\302pC\"\210\202  \207" [vm-folder-read-only signal folder-read-only] 3])
(put 'vm-error-if-folder-read-only 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-error-if-virtual-folder #[nil "\302=\205\n \303\304	\"\207" [major-mode this-command vm-virtual-mode error "%s cannot be applied to virtual folders."] 3])
(put 'vm-error-if-virtual-folder 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-build-threads-if-unbuilt #[nil "\301!?\205\n \302\303!\207" [vm-thread-obarray vectorp vm-build-threads nil] 2])
(put 'vm-build-threads-if-unbuilt 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-binary-coding-system #[nil "\203 \302\207	\203\f \302\207\303\207" [vm-xemacs-mule-p vm-xemacs-file-coding-p binary no-conversion] 1])
(put 'vm-binary-coding-system 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-line-ending-coding-system #[nil "\203 \302\207	\203\f \302\207\303\207" [vm-xemacs-mule-p vm-xemacs-file-coding-p no-conversion raw-text] 1])
(put 'vm-line-ending-coding-system 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'vm-save-restriction '(macro . #[(&rest forms) "\304\305!\304\306!\304\307!\310\n\311B	E\312\n\313	\314BB\313\315BBF\316\317B\320\312\n\317\321	E\322	\323BB\322\324BBFEFF+\207" [vm-sr-max vm-sr-min vm-sr-clip forms make-symbol "vm-sr-clip" "vm-sr-min" "vm-sr-max" let ((> (buffer-size) (- (point-max) (point-min)))) and setq ((set-marker (make-marker) (point-min))) ((set-marker (make-marker) (point-max))) unwind-protect progn (widen) narrow-to-region set-marker (nil) (nil)] 14]))
(defalias 'vm-save-buffer-excursion '(macro . #[(&rest forms) "\301\302\303\304B\305BBE\207" [forms let ((vm-sbe-buffer (current-buffer))) unwind-protect progn ((and (not (eq vm-sbe-buffer (current-buffer))) (buffer-name vm-sbe-buffer) (set-buffer vm-sbe-buffer)))] 5]))
(defalias 'vm-assert '(macro . #[(expression) "\301\302\303\304DC\305\306\307DEEE\207" [expression or let debug-on-error t error "assertion failed: %S" quote] 8]))
(defalias 'vm-increment '(macro . #[(variable) "\301\302DE\207" [variable setq 1+] 4]))
(defalias 'vm-decrement '(macro . #[(variable) "\301\302DE\207" [variable setq 1-] 4]))
(provide 'vm-macro)