;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Mar 8 19:03:10 1998 ;;; from file /gd/gnu/emacs/lisp/progmodes/cc-defs.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; 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.29"))) (error "`cc-defs.el' was compiled for Emacs 19.29 or later")) (defalias 'c-point #[(position) "` \306=\203\307y\210\202\326 \310=\203\311\210\202\326 \312=\203&\313 \210\202\326 \314=\2032\315y\210\202\326 \316=\203>\317y\210\202\326 \320=\203M\317y\210\313 \210\202\326 \321=\203\\\315y\210\313 \210\202\326 \322=\203\321\323\324!\203\275\n\203\275\311 \204\266\214~\210\325`\317\324 \311\326%)o\203\211e\211\202o \204\240\327\311x\211\307U\203\234\330 \210`)\202n \307U\204n f\331=\204n b\210\311\211\203r b\210)\202\326\330 \210 \203\326\332 !\203\326\307\225b\210\202\326\333\334 \"\210`b\210)\207" [here position c-enable-xemacs-performance-kludge-p pos distance defun-prompt-regexp bol 0 eol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl bod fboundp buffer-syntactic-context-depth scan-lists t "^{" beginning-of-defun 123 looking-at error "unknown buffer position requested: %s"] 7]) (put 'c-point 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-safe '(macro . #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error nil))] 4])) (defalias 'c-add-syntax '(macro . #[(symbol &optional relpos) "\302\303\304\211 E\305BBE\207" [symbol relpos setq syntax cons (syntax)] 6])) (defalias 'c-auto-newline #[nil "\205 \301 ?\205 \302 ?\207" [c-auto-newline c-in-literal newline] 1]) (put 'c-auto-newline 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-intersect-lists #[(list alist) "\303 \203 @\n\236\211\204 A\211\204)\207" [match list alist nil] 3]) (put 'c-intersect-lists 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-lookup-lists #[(list alist1 alist2) " \305\203@\n\236\211\204A\211\204\n +@\f\236\207" [list alist1 alist match alist2 nil] 3]) (put 'c-lookup-lists 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-langelem-col #[(langelem &optional preserve-point) "` Ab\210i\n\203b\210)\207" [here langelem preserve-point] 2]) (put 'c-langelem-col 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-update-modeline #[nil "\203 \203\f\303\202\304\202 \205\305\306 \207" [c-auto-newline c-hungry-delete-key c-auto-hungry-string "/ah" "/a" "/h" force-mode-line-update] 1]) (put 'c-update-modeline 'byte-optimizer 'byte-compile-inline-expand) (defalias 'c-keep-region-active #[nil "\301\300!\205 \302\211\207" [zmacs-region-stays boundp t] 2]) (byte-code "\300\301\302\303#\210\304\305!\207" [put c-keep-region-active byte-optimizer byte-compile-inline-expand provide cc-defs] 4)