;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:26 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-version.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-version.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defconst vm-version "7.19" "\ Version number of VM.") (defalias 'vm-version #[nil "\207" [vm-version] 1 "\ Returns the value of the variable vm-version."]) (byte-code "\301B\302\303!\210\304B\305\303!\210\306B\307\303!\210\310B\311\303!\210\312B\313\303!\207" [current-load-list vm-xemacs-p (lambda (#1=#:defconst-tmp-var) (defconst vm-xemacs-p #1#)) nil vm-xemacs-mule-p (lambda (#2=#:defconst-tmp-var) (defconst vm-xemacs-mule-p #2#)) vm-xemacs-file-coding-p (lambda (#3=#:defconst-tmp-var) (defconst vm-xemacs-file-coding-p #3#)) vm-fsfemacs-p (lambda (#4=#:defconst-tmp-var) (defconst vm-fsfemacs-p #4#)) vm-fsfemacs-mule-p (lambda (#5=#:defconst-tmp-var) (defconst vm-fsfemacs-mule-p #5#))] 2) (defalias 'vm-xemacs-p #[nil "\207" [vm-xemacs-p] 1]) (defalias 'vm-xemacs-mule-p #[nil "\207" [vm-xemacs-mule-p] 1]) (defalias 'vm-xemacs-file-coding-p #[nil "\207" [vm-xemacs-file-coding-p] 1]) (defalias 'vm-fsfemacs-p #[nil "\207" [vm-fsfemacs-p] 1]) (defalias 'vm-fsfemacs-mule-p #[nil "\207" [vm-fsfemacs-mule-p] 1]) (defalias 'vm-note-emacs-version #[nil "\306\307\"\211\205\310\311!\205\312\313! \205 \310\314!\205 \312\313! ?\n?\2052\310\311!\2052\312\313!\211\207" [emacs-version vm-xemacs-p vm-xemacs-mule-p vm-xemacs-file-coding-p vm-fsfemacs-p vm-fsfemacs-mule-p string-match "XEmacs" featurep mule fboundp set-buffer-file-coding-system file-coding] 4]) (vm-note-emacs-version) (defalias 'vm-mouse-fsfemacs-mouse-p #[nil "\205\301\302!\207" [vm-fsfemacs-p fboundp set-mouse-position] 2]) (defalias 'vm-mouse-xemacs-mouse-p #[nil "\205\301\302!\207" [vm-xemacs-p fboundp set-mouse-position] 2]) (defalias 'vm-menu-fsfemacs-menus-p #[nil "\205\301\302!\207" [vm-fsfemacs-p fboundp menu-bar-mode] 2]) (defalias 'vm-menu-fsfemacs19-menus-p #[nil "\205 \302\303!\205 \304U\207" [vm-fsfemacs-p emacs-major-version fboundp menu-bar-mode 19] 2]) (defalias 'vm-menu-xemacs-menus-p #[nil "\205\301\302!\207" [vm-xemacs-p fboundp set-buffer-menubar] 2]) (defalias 'vm-menu-can-eval-item-name #[nil "\205\301\302!\205\303\304\305\217\207" [vm-xemacs-p fboundp check-menu-syntax nil (byte-code "\300\301!\207" [check-menu-syntax ("bar" ((identity "foo") 'ding t))] 2) ((error))] 3]) (defalias 'vm-multiple-frames-possible-p #[nil "\203\302\303 >\206\304\305!\207 \205\306\307!\207" [vm-xemacs-p vm-fsfemacs-p win device-matching-specifier-tag-list featurep tty-frames fboundp make-frame] 2]) (defalias 'vm-mouse-support-possible-p #[nil "\203\302\303!\207 \205\304\305!\207" [vm-xemacs-p vm-fsfemacs-p featurep window-system fboundp track-mouse] 2]) (defalias 'vm-mouse-support-possible-here-p #[nil "\203 \303\304 >\207 \205\n\305>\207" [vm-xemacs-p vm-fsfemacs-p window-system win device-matching-specifier-tag-list (x mac w32 win32)] 2]) (defalias 'vm-menu-support-possible-p #[nil "\203\302\303!\207 \205\304\305!\207" [vm-xemacs-p vm-fsfemacs-p featurep menubar fboundp menu-bar-mode] 2]) (defalias 'vm-toolbar-support-possible-p #[nil "\203\n\302\303!\206 \205\304\305!\205\306\307!\207" [vm-xemacs-p vm-fsfemacs-p featurep toolbar fboundp tool-bar-mode boundp tool-bar-map] 2]) (defalias 'vm-multiple-fonts-possible-p #[nil "\203 \303 \304>\207 \205\n\305>\207" [vm-xemacs-p vm-fsfemacs-p window-system device-type (x gtk mswindows) (x mac w32 win32)] 2]) (defalias 'vm-images-possible-here-p #[nil "\203 \305 \306>\206 \205 \n\205 \307\310!\206 ;\205 \f;\207" [vm-xemacs-p vm-fsfemacs-p window-system vm-imagemagick-convert-program vm-imagemagick-identify-program device-type (x gtk mswindows) fboundp image-type-available-p] 2]) (defalias 'vm-image-type-available-p #[(type) "\301\302!\203\n\302!\207\303!\206\304=\207" [type fboundp image-type-available-p featurep xbm] 2]) (byte-code "\300\301!\210\300\302!\207" [provide vm vm-version] 2)