;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:24 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/w3m-util.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`w3m-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (condition-case nil :symbol-for-testing-whether-colon-keyword-is-available-or-not (void-variable (let (w3m-colon-keywords) (load "w3m-kwds.el" nil t t) (while w3m-colon-keywords (set (car w3m-colon-keywords) (car w3m-colon-keywords)) (setq w3m-colon-keywords (cdr w3m-colon-keywords)))))) (byte-code "\301\302!\204\303\300!\203\304W\203\305\306!\210\305\307!\210\303\300!\203/\310U\203/\311\312\313\"\210\305\314!\210\301\207" [emacs-major-version featurep xemacs boundp 20 require poe poem 19 autoload cancel-timer "timer" custom] 3) #@59 Like `if', except that it evaluates COND at compile-time. (defalias 'w3m-static-if '(macro . #[(cond then &rest else) "\303!\203 \207\304\nB\207" [cond then else eval progn] 2 (#$ . 1184)])) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put w3m-static-if lisp-indent-function 2 w3m-static-when 1] 4) #@49 Like `when', but evaluate COND at compile time. (defalias 'w3m-static-when '(macro . #[(cond &rest body) "\302!\205 \303 B\207" [cond body eval progn] 2 (#$ . 1504)])) (put 'w3m-static-unless 'lisp-indent-function 1) #@51 Like `unless', but evaluate COND at compile time. (defalias 'w3m-static-unless '(macro . #[(cond &rest body) "\302!?\205\n\303 B\207" [cond body eval progn] 2 (#$ . 1729)])) #@86 Like `cond', except that it evaluates CONDITION part of each clause at compile-time. (defalias 'w3m-static-cond '(macro . #[(&rest clauses) "\203\301@@!\204A\211\204\205\302@AB\207" [clauses eval progn] 3 (#$ . 1911)])) (put 'w3m-condition-case lisp-indent-function 2) #@103 Like `condition-case', except that signal an error if `debug-on-error' or `debug-on-quit' is non-nil. (defalias 'w3m-condition-case '(macro . #[(var bodyform &rest handlers) "\303\304\305 \nBBBF\207" [bodyform var handlers if (or debug-on-error debug-on-quit) condition-case] 7 (#$ . 2201)])) #@66 Like `add-text-properties' but always add non-sticky properties. (defalias 'w3m-add-text-properties '(macro . #[(start end props &optional object) "\305\306!\203\n\307\202 \310\311 \n\312 E\f\257)\207" [non-stickies start end props object featurep xemacs (list 'start-open t) (list 'rear-nonsticky t) add-text-properties append] 6 (#$ . 2502)])) #@237 Search for the text property PROP in one character before and behind the current position. Return the value corresponding to PROP or nil. If PROP is not found at the current position, point will move to the position where PROP exists. (defalias 'w3m-get-text-property-around '(macro . #[(prop) "\301\302\303\304\305E\306\307\310\311\304\312EE\313BBB\306\314\310\311\304\315EE\316BBBFE\207" [prop let ((position (point)) value) or get-text-property position and (not (bolp)) setq value (1- position) ((goto-char (1- position)) value) (not (eolp)) (1+ position) ((goto-char (1+ position)) value)] 12 (#$ . 2860)])) #@249 Return the value of the `w3m-action' property at the given POSITION. NOTE: If POSITION is omitted, it searches for the property in one character before and behind the current position, and point will move to the position where the property exists. (defalias 'w3m-action '(macro . #[(&optional position) "\203\n\301\302BB\207\303\207" [position get-text-property ('w3m-action) (w3m-get-text-property-around 'w3m-action)] 3 (#$ . 3484)])) #@254 Return the value of the `w3m-href-anchor' property at the given POSITION. NOTE: If POSITION is omitted, it searches for the property in one character before and behind the current position, and point will move to the position where the property exists. (defalias 'w3m-anchor '(macro . #[(&optional position) "\203\n\301\302BB\207\303\207" [position get-text-property ('w3m-href-anchor) (w3m-get-text-property-around 'w3m-href-anchor)] 3 (#$ . 3931)])) #@248 Return the value of the `w3m-image' property at the given POSITION. NOTE: If POSITION is omitted, it searches for the property in one character before and behind the current position, and point will move to the position where the property exists. (defalias 'w3m-image '(macro . #[(&optional position) "\203\n\301\302BB\207\303\207" [position get-text-property ('w3m-image) (w3m-get-text-property-around 'w3m-image)] 3 (#$ . 4393)])) #@249 Return the value of the `w3m-submit' property at the given POSITION. NOTE: If POSITION is omitted, it searches for the property in one character before and behind the current position, and point will move to the position where the property exists. (defalias 'w3m-submit '(macro . #[(&optional position) "\203\n\301\302BB\207\303\207" [position get-text-property ('w3m-submit) (w3m-get-text-property-around 'w3m-submit)] 3 (#$ . 4836)])) #@126 Return the value of the `w3m-anchor-sequence' property at POSITION. If POSITION is omitted, the current position is assumed. (defalias 'w3m-anchor-sequence '(macro . #[(&optional position) "\203\n\301\302BB\207\303\207" [position get-text-property ('w3m-anchor-sequence) (get-text-property (point) 'w3m-anchor-sequence)] 3 (#$ . 5283)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put w3m-parse-attributes lisp-indent-function 1 edebug-form-spec ((&rest &or (symbolp &optional symbolp) symbolp) body)] 4) (defalias 'w3m-parse-attributes '(macro . #[(attributes &rest form) "\303\304\305\"\306\307\310\311\304\312\"\313\314 PDC\315B\"B\316BB\317\320\nBBBBBB\207" [attributes w3m-html-string-regexp form let mapcar #[(attr) "<\203@\207\207" [attr] 1] (skip-chars-forward " \f\n") while cond append #[(attr) "9\204<\203G\304X\203@9\204\305\306!\210\307\310<\203gA@\211\311=\2035\312\nD\202d \313=\203B\314\nD\202d \315=\203M\316\202d \317=\203Z\320\nD\202dA@\203d\305\321!\210@\322 \315=\203t\323!\202{\324\325\323! #D\326\nE*D\207" [attr type sexp w3m-html-string-regexp 2 error "Internal error, type mismatch" (w3m-remove-redundant-spaces (or (match-string-no-properties 2) (match-string-no-properties 3) (match-string-no-properties 1))) nil :case-ignore downcase :integer string-to-number :bool t :decode-entity w3m-decode-entities-string "Internal error, unknown modifier" looking-at symbol-name format "%s[ \f\n]*=[ \f\n]*%s" setq] 6] looking-at "[A-Za-z]*[ \f\n]*=[ \f\n]*" (((looking-at "[^<> \f\n]+"))) ((goto-char (match-end 0)) (skip-chars-forward " \f\n")) (skip-chars-forward "^>") (forward-char)] 10])) #@70 Return the buffer named NAME, or create such a buffer and return it. (defalias 'w3m-get-buffer-create #[(name) "\303!\206\304!\211\nB\305 !\210 )\207" [name buf w3m-work-buffer-list get-buffer get-buffer-create buffer-disable-undo] 3 (#$ . 6979)]) (put 'w3m-get-buffer-create 'byte-optimizer 'byte-compile-inline-expand) #@178 Kill the buffer BUFFER and remove it from `w3m-work-buffer-list'. The argument may be a buffer or may be the name of a buffer. An argument of nil means kill the current buffer. (defalias 'w3m-kill-buffer #[(buffer) "\204p;\203\302!\303!\203\304!\210\305 \"\306\207" [buffer w3m-work-buffer-list get-buffer buffer-live-p kill-buffer delq nil] 3 (#$ . 7313)]) (put 'w3m-kill-buffer 'byte-optimizer 'byte-compile-inline-expand) #@26 Kill all working buffer. (defalias 'w3m-kill-all-buffer #[nil "\303\211\203\n@\304 !\203\305 !\210\nA\211\204*\303\211\207" [w3m-work-buffer-list buf #1=#:--dolist-temp--94604 nil buffer-live-p kill-buffer] 3 (#$ . 7759)]) #@40 Return the title of the buffer BUFFER. (defalias 'w3m-buffer-title #[(buffer) "rq\210 ;\203 \303\230\204 \202.\n;\203-\304\305\306\n\"\203(\n\307\225\310O\202)\n!\202.\303)\207" [buffer w3m-current-title w3m-current-url "" directory-file-name string-match "^[^/:]+:/+" 0 nil] 4 (#$ . 8000)]) (put 'w3m-buffer-title 'byte-optimizer 'byte-compile-inline-expand) (defalias 'w3m-buffer-number #[(buffer) "\301!\205\302\303\304!\"\205\305\224\203\306\307\310\304!\"!\207\305\207" [buffer bufferp string-match "\\`\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" buffer-name 1 string-to-number match-string 2] 5]) (put 'w3m-buffer-number 'byte-optimizer 'byte-compile-inline-expand) (defalias 'w3m-buffer-set-number #[(buffer number) "\303!\205\"\304\305\306!\"\205\"\307\224\203!\310\311\312\306!\"!\202\"\307) =?\205Grq\210 \307U\2037\313\202;\314\315 \"\316\n!?\205F\317\n!*\207" [buffer number newname bufferp string-match "\\`\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" buffer-name 1 string-to-number match-string 2 "*w3m*" format "*w3m*<%d>" get-buffer rename-buffer] 5]) (put 'w3m-buffer-set-number 'byte-optimizer 'byte-compile-inline-expand) #@58 Return t if first arg buffer's name is less than second. (defalias 'w3m-buffer-name-lessp #[(x y) "\302!\203\n\303!\302 !\203\303 !\304\305\"\203P\306\224\203*\307\310\311\"!\202+\306B\211\203P\304\305 \"\203KA\306\224\203H\307\310\311 \"!\202I\306W\207@ \231\207 \231\207" [x y bufferp buffer-name string-match "\\`\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" 1 string-to-number match-string 2] 5 (#$ . 9172)]) #@34 Return list of w3m-mode buffers. (defalias 'w3m-list-buffers #[(&optional nosort) "\203r\301\302\303\304\305 \"\")\207\306\307\310!\311\"\207" [nosort delq nil mapcar #[(buffer) "q\210 \302=\205\n\207" [buffer major-mode w3m-mode] 2] buffer-list sort w3m-list-buffers t w3m-buffer-name-lessp] 5 (#$ . 9601)]) (byte-code "\303\304\305\306#\210\301B\307\302B\310\303\207" [current-load-list w3m-url-fallback-base w3m-url-invalid-regexp put w3m-list-buffers byte-optimizer byte-compile-inline-expand "http:///" "\\`http:///"] 4) (defalias 'w3m-url-valid #[(url) "\205 \302 \"?\205 \207" [url w3m-url-invalid-regexp string-match] 3]) (put 'w3m-url-valid 'byte-optimizer 'byte-compile-inline-expand) #@192 Return a regexp string, not a funtion form. A regexp should match tags which are started with "<" and one of NAMES. NAMES should be string constants, any other expressions are not allowed. (defalias 'w3m-tag-regexp-of '(macro . #[(&rest names) "\301\302\303\304#\305Q\207" [names "<\\(" mapconcat identity "\\|" "\\)\\([ \f\n]+[^>]*\\)?/?>"] 5 (#$ . 10320)])) #@164 Return t, if A is newer than B. Otherwise return nil. A and B are lists which represent time in Emacs-style. If value is nil, it is regarded as the oldest time. (defalias 'w3m-time-newer-p #[(a b) "\205 ?\206 @ @V\206 @ @U\205 A@ A@V\207" [a b] 2 (#$ . 10692)]) (put 'w3m-time-newer-p 'byte-optimizer 'byte-compile-inline-expand) #@102 Return lapse seconds from START to END. START and END are lists which represent time in Emacs-style. (defalias 'w3m-time-lapse-seconds #[(start end) "@ @Z\303_\211A@)\\ \211A@)[\\\207" [end start x 65536] 3 (#$ . 11040)]) (put 'w3m-time-lapse-seconds 'byte-optimizer 'byte-compile-inline-expand) #@75 If URL points a 'w3m-dtree', return non-nil value. Otherwise return nil. (defalias 'w3m-url-dtree-p #[(url) "\301\302\"\207" [url string-match "\\`about://dtree/"] 3 (#$ . 11346)]) (put 'w3m-url-dtree-p 'byte-optimizer 'byte-compile-inline-expand) #@87 If URL points a file on the local system, return non-nil value. Otherwise return nil. (defalias 'w3m-url-local-p #[(url) "\301\302\"\207" [url string-match "\\`\\(file:\\|/\\|[a-zA-Z]:/\\)"] 3 (#$ . 11602)]) (put 'w3m-url-local-p 'byte-optimizer 'byte-compile-inline-expand) #@75 Regular expression for parsing the authentication part of a URI reference (defconst w3m-url-authinfo-regexp "\\`\\([^:/?#]+:\\)?//\\([^/?#:]+\\)\\(:\\([^/?#@]+\\)\\)?@" (#$ . 11884)) #@56 Return a user name and a password to authenticate URL. (defalias 'w3m-url-authinfo #[(url) "\302 \"\205\303\304 \"\303\305 \"B\207" [w3m-url-authinfo-regexp url string-match match-string 2 4] 4 (#$ . 12073)]) (put 'w3m-url-authinfo 'byte-optimizer 'byte-compile-inline-expand) #@46 Remove the authentication part from the URL. (defalias 'w3m-url-strip-authinfo #[(url) "\302 \"\203\303\304 \"\305 \306\225\307OQ\207 \207" [w3m-url-authinfo-regexp url string-match match-string 1 "//" 0 nil] 5 (#$ . 12359)]) (put 'w3m-url-strip-authinfo 'byte-optimizer 'byte-compile-inline-expand) #@46 Remove the fragment identifier from the URL. (defalias 'w3m-url-strip-fragment #[(url) "\301\302\"\203\f\303\304\"\207\207" [url string-match "\\`\\([^#]*\\)#" match-string 1] 3 (#$ . 12668)]) (put 'w3m-url-strip-fragment 'byte-optimizer 'byte-compile-inline-expand) #@65 Remove the query part and the fragment identifier from the URL. (defalias 'w3m-url-strip-query #[(url) "\301\302\"\203\f\303\304\"\207\207" [url string-match "\\`\\([^?#]*\\)[?#]" match-string 1] 3 (#$ . 12945)]) (put 'w3m-url-strip-query 'byte-optimizer 'byte-compile-inline-expand) (defalias 'w3m-which-command #[(command) ";\205\301!\203\302!\203\207\303!\304\305\215\207" [command file-name-absolute-p file-executable-p file-name-nondirectory found-command (byte-code "\305 \305\211\2031 @\306\307\f\n\"\211!\204%\306\307\f\310P\n\"\211!\203*\311\312\"\210 A\211\204\n+\305\207" [bin exec-path dir #1=#:--dolist-temp--94605 command nil file-executable-p expand-file-name ".exe" throw found-command] 5)] 2]) (put 'w3m-which-command 'byte-optimizer 'byte-compile-inline-expand) #@53 Cancel the timer for REFRESH attribute in META tag. (defalias 'w3m-cancel-refresh-timer #[(&optional buffer) "\205r \206\npq\210\304 \205\305 !\210\304\211)\207" [w3m-use-refresh buffer w3m-current-refresh w3m-refresh-timer nil cancel-timer] 2 (#$ . 13759)]) (byte-code "\300\301\302\303!\203\f\304\202 \305\"\207" [defalias w3m-truncate-string featurep xemacs #[(str end-column) "G\305\211\306\307\310\217\210\n\fV\203 S\305 O+\207" [str idx column len end-column 0 nil (byte-code " W\203\304\n H!\\ T\202\304\207" [column end-column str idx char-width] 4) ((args-out-of-range (byte-code "\302\207" [len idx nil] 1)))] 3 "Truncate string STR to end at column END-COLUMN."] truncate-string] 4) #@70 Return the element of ALIST whose car equals NAME ignoring its case. (defalias 'w3m-assoc-ignore-case #[(name alist) "\227\304 \203$ @:\203\n @@\227\230\203 @\304 A\211\204 *\207" [name match dname alist nil] 3 (#$ . 14487)]) (put 'w3m-assoc-ignore-case 'byte-optimizer 'byte-compile-inline-expand) #@86 Like `prin1', except that control chars will be represented with ^ as `cat -v' does. (defalias 'w3m-prin1 #[(object &optional stream) ";\203W\305\306\305\"\305\211\203H @\211\307=\203\"\310 B\202A\n\311>\204.\n\312Y\2037\313\n! B\202A\314\313\n\315\\!P B A\211\204\305 *\210\316\317\320 \237\"\f\")\207\316\f\"\207" [object rest char #1=#:--dolist-temp--94606 stream nil append 127 "^?" (9 10) 32 char-to-string "^" 64 prin1 apply concat] 5 (#$ . 14805)]) #@62 *If non-nil, preserve echo messages in the *Message* buffer. (defvar w3m-display-message-enable-logging nil (#$ . -15288)) #@113 Like `message', except that message logging is controlled by the variable `w3m-display-message-enable-logging'. (defalias 'w3m-display-message '(macro . #[(string &rest args) "\302\303!\203\203\304\305\306 BBE\207\304\307 E\207\310\311\312 BBE\207" [args string featurep xemacs display-message (if w3m-display-message-enable-logging 'message 'no-log) format (if w3m-display-message-enable-logging 'message 'no-log) let ((message-log-max (if w3m-display-message-enable-logging message-log-max))) message] 5 (#$ . 15418)])) #@58 Show "Reading URL..." message in the middle of a buffer. (defalias 'w3m-display-progress-message #[(url) "\303\304\305 S\306\245]\307\"\310\311 \"\203\"\312\313\"\314\304\225\315OQ\202#)\316\261\210\317 \210\320 \321`d\"\210)eb\210\322\304!\207" [url w3m-url-authinfo-regexp fill-column make-string 0 window-height 2 10 "Reading " string-match match-string 1 "//" nil "..." beginning-of-line window-width center-region sit-for] 7 (#$ . 15953)]) (byte-code "\300\301!\203\302\303\304\"\210\202\305\306!\210\303\307M\210\300\207" [featurep xemacs defalias w3m-function-max-args function-max-args require advice #[(function) "\3029\203 K\202\f!\303 >\203\304\202&\305 >\203$ GS\202& G)\207" [function arglist ad-arglist &rest nil &optional] 2 "Return the maximum number of arguments a function may be called with.\nThe function may be any form that can be passed to `funcall',\nany special form, or any macro.\nIf the function takes an arbitrary number of arguments or is\na built-in special form, nil is returned."]] 3) #@176 Change values in PLIST corresponding to PROPERTIES. This is similar to `plist-put', but handles plural symbol and value pairs and remove pairs from PLIST whose value is nil. (defalias 'w3m-modify-plist #[(plist &rest properties) "\203\303 @\211A@)#\211AA)\211\204 \203? \211A@)\2034 @ \211A@)D\244 \211AA)\211\204\207" [properties plist x plist-put] 5 (#$ . 17003)]) #@92 Insert STRING at point without conversions in either case the multibyteness of the buffer. (defalias 'w3m-insert-string '(macro . #[(string) "\301\302!\203\303\302K!\203\304\300DC\305BB\207\306D\207" [string fboundp string-as-multibyte subrp let ((insert (if enable-multibyte-characters (string-as-multibyte string) (string-as-unibyte string)))) insert] 3 (#$ . 17400)])) #@207 The initial `default' face color spec. Since `defface' under FSF Emacs versions prior to 21 won't inherit the `dafault' face colors by default, we will use this value for the default `defface' color spec. (defconst w3m-default-face-colors (eval '(if (not (or (featurep 'xemacs) (>= emacs-major-version 21))) (let ((bg (face-background 'default)) (fg (face-foreground 'default))) (append (if bg `(:background ,bg)) (if fg `(:foreground ,fg)))))) (#$ . 17785)) #@74 Initialize the hook option pointed by the SYMBOL with the default VALUE. (defalias 'w3m-custom-hook-initialize #[(symbol value) "\302!\203\303 !\211\205\304 @\"\210 A\211\202 \305 \"\207" [symbol value boundp eval add-hook custom-initialize-set] 4 (#$ . 18251)]) (provide 'w3m-util)