;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:16:04 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-elisp.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; 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 "`w3-elisp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\207" [require cl mapcar #[(x) "\301\302\303#\207" [x put w3-safe t] 4] (message format garbage-collect progn prog1 prog2 progn-with-message while current-time current-time-string plist-member plist-to-alist plist-get assoc memq member function lambda point device-pixel-height device-type device-color-cells device-mm-height device-class device-bitplanes device-on-window-system-p device-pixel-width device-mm-width device-baud-rate frame-type frame-name frame-device frame-parameters frame-height frame-pixel-width frame-pixel-height frame-width frame-property window-frame window-height window-width window-pixel-width window-pixel-height buffer-name buffer-substring buffer-substring-no-properties buffer-size buffer-string get-text-property text-properties-at text-property-bounds text-property-not-all url-insert-file-contents url-view-url w3-fetch w3-refresh-buffer w3-view-this-url event-live-p event-glyph-extent event-glyph-y-pixel event-x-pixel event-type event-glyph event-button event-over-text-area-p event-glyph-x-pixel event-buffer event-device event-properties event-process event-timestamp event-modifier-bits event-console event-window-y-pixel event-window event-window-x-pixel event-point event-function event-over-toolbar-p event-matches-key-specifier-p event-over-glyph-p event-frame event-x event-channel event-y event-screen event-to-character event-over-border-p event-toolbar-button event-closest-point event-object event-key event-modifiers event-y-pixel event-over-modeline-p event-modeline-position)] 3) (defalias 'w3-elisp-safe-function #[(func args) "\303N\211\304=\203\304\2021 \305=\203\305\2021\306 !\203% \n\"\2021\307 !\2030 J\2021\305)\207" [func validator args w3-safe t nil fboundp boundp] 4]) (put 'w3-elisp-safe-function 'byte-optimizer 'byte-compile-inline-expand) #@50 Return t if-and-only-if EXP is safe to evaluate. (defalias 'w3-elisp-safe-expression #[(exp) "<\203 A<\204 \305\207\306!\204(\247\204(9\204(;\204(\307!\203*\305\207<\203\207@A\211\310N\211\305=\203C\305\202f \311=\203M\311\202f\312 !\203Z \n \"\202f\313 !\203e J\202f\311+\205\210A\305 \203\204\314 \211A@!\204o\311\311\202o\f*\207\311\207" [exp args func validator rval t vectorp keymapp w3-safe nil fboundp boundp w3-elisp-safe-expression] 5 (#$ . 2506)]) (defalias 'w3-elisp-safe-eval #[(form) "\301!\205\n\302\303\304\217\207" [form w3-elisp-safe-expression nil (eval form) ((error))] 3]) (provide 'w3-elisp)