[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
w3m-form-plist: Wrong type argument: arrayp, nil
- From: Hiroshi Fujishima <pooh@xxxxxxxxxxxxxxxxxxxx>
- Date: Wed, 20 Aug 2003 18:25:02 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 05671
このバグリポートは emacs-w3m 開発チームに送られます。
あなたのローカルサイトの管理者宛てではありません!!
できるだけ簡潔に述べて下さい:
- 何が起きましたか?
- 本当はどうなるべきだったと思いますか?
- そのとき何をしましたか? (正確に)
もし Lisp のバックトレースがあれば添付して下さい。
================================================================
Dear Bug Team!
http://www.google.com/search?q=read_ZEIT_char%28%29&hl=ja&lr=lang_ja
から、
http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/13328.html
へのリンクをたどり、B で戻ろうとすると、添付したようなエラーになりました。
================================================================
System Info to help track down your bug:
---------------------------------------
emacs-w3m-version
=> "1.3.203"
emacs-version
=> "GNU Emacs 21.3.50.1 (sparc-sun-solaris2.8, X toolkit, Xaw3d scroll bars)\n of 2003-08-20 on newton.nature.tsukuba.ac.jp"
mule-version
=> "5.0 (SAKAKI)"
system-type
=> usg-unix-v
w3m-version
=> "w3m/0.4.1+cvs-1.856"
w3m-type
=> w3m
w3m-compile-options
=> ("lang=ja" "kanji-symbols" "image" "color" "ansi-color" "mouse" "menu" "cookie" "ssl" "ssl-verify" "external-uri-loader" "w3mmailer" "nntp" "alarm" "mark" "migemo")
w3m-language
=> "Japanese"
w3m-command-arguments
=> nil
w3m-command-arguments-alist
=> nil
w3m-command-environment
=> nil
w3m-use-mule-ucs
=> nil
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
aref(nil 5)
(w3m-form-plist form)
(plist-get (w3m-form-plist form) (intern name))
(plist-get (plist-get (w3m-form-plist form) (intern name)) :value)
(w3m-form-get-property form name :value)
(w3m-form-get form name)
(let ((value ...)) (when (stringp value) (w3m-form-replace value)) (unless (eq form cform) (w3m-form-put cform name value)))
(cond ((or ... ...) (w3m-form-put cform name nil)) ((or ... ...)) ((string= type "password") (w3m-form-replace ... ...) (unless ... ...)) ((string= type "radio") (let ... ... ...)) ((string= type "checkbox") (let ... ... ...)) ((string= type "select") (let ... ... ...)) ((string= type "textarea") (let ... ... ...)) ((string= type "file") (let ... ... ...)) (t (let ... ... ...)))
(progn (setq form (nth ... forms) cform (nth ... w3m-current-forms) type (match-string 2 fid) name (match-string 3 fid)) (cond (... ...) (...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))
(if (and fid (string-match "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\(.*\\)$" fid)) (progn (setq form ... cform ... type ... name ...) (cond ... ... ... ... ... ... ... ... ...)))
(when (and fid (string-match "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\(.*\\)$" fid)) (setq form (nth ... forms) cform (nth ... w3m-current-forms) type (match-string 2 fid) name (match-string 3 fid)) (cond (... ...) (...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))
(while (w3m-form-goto-next-field) (setq fid (get-text-property ... ...)) (when (and fid ...) (setq form ... cform ... type ... name ...) (cond ... ... ... ... ... ... ... ... ...)))
(let (fid type name form cform textareas) (while (w3m-form-goto-next-field) (setq fid ...) (when ... ... ...)) (unless w3m-form-treat-textarea-size (dolist ... ...)))
(save-excursion (goto-char (point-min)) (let (fid type name form cform textareas) (while ... ... ...) (unless w3m-form-treat-textarea-size ...)))
(progn (if (eq ... t) (setq forms ...)) (save-excursion (goto-char ...) (let ... ... ...)))
(if forms (progn (if ... ...) (save-excursion ... ...)))
(when forms (if (eq ... t) (setq forms ...)) (save-excursion (goto-char ...) (let ... ... ...)))
w3m-form-resume(([w3m-form-object post "http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/webbbs.cgi"; nil urlencoded (name ... subject ... message ... ...)]))
(let ((case-fold-search t) tag start end internal-start textareas selects forms maps mapval form) (goto-char (point-min)) (while (re-search-forward ... nil t) (setq tag ...) (goto-char ...) (setq start ...) (cond ... ... ... ... ...)) (when (search-forward "<internal>" nil t) (setq internal-start ...) (while ... ...) (when ... ...)) (setq w3m-current-forms (if ... forms ...)) (w3m-form-resume (or reuse-forms w3m-current-forms)))
w3m-form-parse-and-fontify(([w3m-form-object post "http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/webbbs.cgi"; nil urlencoded (name ... subject ... message ... ...)]))
w3m-fontify-forms()
(progn (w3m-fontify-forms))
(if w3m-use-form (progn (w3m-fontify-forms)))
(when w3m-use-form (w3m-fontify-forms))
(let ((case-fold-search t) (buffer-read-only)) (run-hooks (quote w3m-fontify-before-hook)) (w3m-message "Fontifying...") (goto-char (point-min)) (if (search-forward "<?xml" nil t) (let ... ... ...)) (goto-char (point-min)) (let (start) (and ... ... ... ...)) (w3m-fontify-bold) (w3m-fontify-underline) (w3m-fontify-anchors) (when w3m-use-form (w3m-fontify-forms)) (w3m-fontify-images) (when w3m-use-symbol (w3m-replace-symbol)) (goto-char (point-min)) (while (re-search-forward "</?[A-Za-z_][^>]*>" nil t) (if ... ... ...)) (w3m-decode-entities (quote reserve-prop)) (when w3m-use-form (w3m-fontify-textareas)) (goto-char (point-min)) (when w3m-delete-duplicated-empty-lines (while ... ...)) (w3m-message "Fontifying...done") (w3m-header-line-insert) (run-hooks (quote w3m-fontify-after-hook)))
w3m-fontify()
(progn (w3m-fontify))
(if (string= "text/html" type) (progn (w3m-fontify)))
(when (string= "text/html" type) (w3m-fontify))
(let (buffer-read-only) (widen) (delete-region (point-min) (point-max)) (insert-buffer-substring result-buffer) (w3m-copy-local-variables result-buffer) (set-buffer-file-coding-system w3m-current-coding-system) (when (string= "text/html" type) (w3m-fontify)) (quote text-page))
(save-current-buffer (set-buffer page-buffer) (let (buffer-read-only) (widen) (delete-region ... ...) (insert-buffer-substring result-buffer) (w3m-copy-local-variables result-buffer) (set-buffer-file-coding-system w3m-current-coding-system) (when ... ...) (quote text-page)))
(with-current-buffer page-buffer (let (buffer-read-only) (widen) (delete-region ... ...) (insert-buffer-substring result-buffer) (w3m-copy-local-variables result-buffer) (set-buffer-file-coding-system w3m-current-coding-system) (when ... ...) (quote text-page)))
(let ((result-buffer ...)) (with-current-buffer page-buffer (let ... ... ... ... ... ... ... ...)))
w3m-create-text-page("http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja"; "text/html" "Shift_JIS" #<buffer *w3m*>)
(cond ((string-match "\\`text/" type) (w3m-create-text-page url type charset page-buffer)) ((string-match "\\`image/" type) (w3m-create-image-page url type charset page-buffer)) (t (with-current-buffer page-buffer ... ...)))
w3m-create-page("http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja"; "text/html" nil #<buffer *w3m*>)
(prog1 (w3m-create-page (symbol-value G95138) (or ... type) (or ... ... ...) (symbol-value G95136)) (let (...) (if ... nil ... ... ...)) (and w3m-verbose (not ...) (message "The content (%s) has been retrieved in %s" ... ...)))
(let ((modified-time ...)) (w3m-arrived-add (symbol-value G95138) nil modified-time (symbol-value G95135)) (if modified-time nil (w3m-arrived-put ... ... nil)) (prog1 (w3m-create-page ... ... ... ...) (let ... ...) (and w3m-verbose ... ...)))
(if type (let (...) (w3m-arrived-add ... nil modified-time ...) (if modified-time nil ...) (prog1 ... ... ...)) (ding) (if (eq ... t) (setq w3m-current-forms ...)) (prog1 (if ... ...) (w3m-message "Cannot retrieve URL: %s%s" ... ...)))
(progn (set G95138 (w3m-url-strip-authinfo ...)) (if type (let ... ... ... ...) (ding) (if ... ...) (prog1 ... ...)))
(if (buffer-live-p (symbol-value G95136)) (progn (set G95138 ...) (if type ... ... ... ...)))
(save-current-buffer (set-buffer --temp-buffer--95111) (if (buffer-live-p ...) (progn ... ...)))
(unwind-protect (save-current-buffer (set-buffer --temp-buffer--95111) (if ... ...)) (w3m-kill-buffer --temp-buffer--95111))
(lambda (G95133 G95134 G95135 G95136 G95137 G95138 type handler --temp-buffer--95111) (unwind-protect (save-current-buffer ... ...) (w3m-kill-buffer --temp-buffer--95111)))(--G95112-- --G95113-- --arrived-time-- --page-buffer-- --charset-- --url-- "text/html" (lambda (action) ((lambda ... ...) action nil)) #<buffer *w3m-work*>)
apply((lambda (G95133 G95134 G95135 G95136 G95137 G95138 type handler --temp-buffer--95111) (unwind-protect (save-current-buffer ... ...) (w3m-kill-buffer --temp-buffer--95111))) --G95112-- --G95113-- --arrived-time-- --page-buffer-- --charset-- --url-- ("text/html" (lambda (action) (... action nil)) #<buffer *w3m-work*>))
(lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --G95112--) (quote --G95113--) (quote --arrived-time--) (quote --page-buffer--) (quote --charset--) (quote --url--) --cl-rest--))("text/html" (lambda (action) ((lambda ... ...) action nil)) #<buffer *w3m-work*>)
funcall((lambda (&rest --cl-rest--) (apply (lambda ... ...) (quote --G95112--) (quote --G95113--) (quote --arrived-time--) (quote --page-buffer--) (quote --charset--) (quote --url--) --cl-rest--)) "text/html" (lambda (action) ((lambda ... ...) action nil)) #<buffer *w3m-work*>)
(setq type (funcall (symbol-value --G95112--95115) type --this-handler--95110 --temp-buffer--95111))
(w3m-process-p (setq type (funcall ... type --this-handler--95110 --temp-buffer--95111)))
(if (w3m-process-p (setq type ...)) (if --this-handler--95110 type (w3m-process-start-process type)) type)
(if (w3m-process-p type) (if --this-handler--95110 type (w3m-process-start-process type)) (if (w3m-process-p ...) (if --this-handler--95110 type ...) type))
(let ((type ...)) (if (w3m-process-p type) (if --this-handler--95110 type ...) (if ... ... type)))
(progn (progn (set --G95113--95114 ...) (set --G95112--95115 ...)) (let (...) (if ... ... ...)))
(let ((--G95113--95114 ...) (--G95112--95115 ...)) (progn (set --G95113--95114 nil) (set --G95112--95115 nil)) (progn (progn ... ...) (let ... ...)))
(let ((--this-handler--95110 handler) (--temp-buffer--95111 ...)) (let (... ...) (progn ... ...) (progn ... ...)))
(let ((--url--95106 ...) (--charset--95107 ...) (--page-buffer--95108 ...) (--arrived-time--95109 ...)) (setf (symbol-value --url--95106) (w3m-url-strip-fragment url) (symbol-value --charset--95107) charset (symbol-value --page-buffer--95108) (current-buffer) (symbol-value --arrived-time--95109) (current-time)) (let (... ...) (let ... ... ...)))
(lexical-let ((url ...) (charset charset) (page-buffer ...) (arrived-time ...)) (w3m-process-do-with-temp-buffer (type ...) (when ... ... ...)))
(if (and w3m-current-ssl (not ...) (not ...)) nil (lexical-let (... ... ... ...) (w3m-process-do-with-temp-buffer ... ...)))
(unless (and w3m-current-ssl (not ...) (not ...)) (lexical-let (... ... ... ...) (w3m-process-do-with-temp-buffer ... ...)))
w3m-retrieve-and-render("http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja"; nil nil nil "http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja"; (lambda (action) ((lambda ... ...) action nil)))
(setq w3m-current-process (w3m-retrieve-and-render (symbol-value --orig--95037) (symbol-value --reload--95039) (symbol-value --charset--95041) (symbol-value --post-data--95042) (symbol-value --referer--95043) handler))
(if (and (not ...) (not ...) (stringp w3m-current-url) (string= ... w3m-current-url)) (progn (w3m-refontify-anchor) (quote cursor-moved)) (setq w3m-current-process (w3m-retrieve-and-render ... ... ... ... ... handler)))
(let ((handler ...)) (if (and ... ... ... ...) (progn ... ...) (setq w3m-current-process ...)))
(let ((action ...)) (if (w3m-process-p action) (if --this-handler--95055 action ...) (if ... ... action)))
(progn (progn (set --G95057--95058 ...) (set --G95056--95059 ...)) (let (...) (if ... ... ...)))
(let ((--G95057--95058 ...) (--G95056--95059 ...)) (progn (set --G95057--95058 nil) (set --G95056--95059 nil)) (progn (progn ... ...) (let ... ...)))
(let ((--this-handler--95055 handler)) (let (... ...) (progn ... ...) (progn ... ...)))
(let ((w3m-current-buffer ...) (history-position ...)) (let (...) (let ... ... ...)))
(progn (if w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (if (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (if (and ... ...) (w3m-history-remove-properties ...)) (if (and ... ... ... ... ...) (progn ... ...)) (and (string-match w3m-url-components-regexp ...) (match-beginning 8) (progn ... ...)) (let (... ...) (let ... ...)))
(let ((--orig--95037 ...) (--url--95038 ...) (--reload--95039 ...) (--redisplay--95040 ...) (--charset--95041 ...) (--post-data--95042 ...) (--referer--95043 ...) (--name--95044 ...)) (setf (symbol-value --orig--95037) url (symbol-value --url--95038) (w3m-url-strip-authinfo url) (symbol-value --reload--95039) (and ... reload) (symbol-value --redisplay--95040) (eq reload ...) (symbol-value --charset--95041) charset (symbol-value --post-data--95042) post-data (symbol-value --referer--95043) referer (symbol-value --name--95044) nil) (progn (if w3m-current-forms ...) (if ... ...) (if ... ...) (if ... ...) (and ... ... ...) (let ... ...)))
(lexical-let ((orig url) (url ...) (reload ...) (redisplay ...) (charset charset) (post-data post-data) (referer referer) (name)) (when w3m-current-forms (w3m-history-plist-put :forms w3m-current-forms)) (when (setq w3m-current-forms ...) (setq w3m-current-forms ...)) (when (and post-data ...) (w3m-history-remove-properties ...)) (when (and ... ... ... ... ...) (setq url ... orig url)) (and (string-match w3m-url-components-regexp url) (match-beginning 8) (setq name ... url ...)) (let (... ...) (w3m-process-do ... ...)))
(if (string-match "\\`group:" url) (let (...) (w3m-process-do ... type)) (lexical-let (... ... ... ... ... ... ... ...) (when w3m-current-forms ...) (when ... ...) (when ... ...) (when ... ...) (and ... ... ...) (let ... ...)))
(cond ((string-match "\\`mailto:"; url) (w3m-goto-mailto-url url post-data)) ((and w3m-use-ange-ftp ... ...) (w3m-goto-ftp-url url)) ((condition-case nil ... ...)) ((w3m-url-valid url) (w3m-buffer-setup) (w3m-arrived-setup) (switch-to-buffer ...) (w3m-cancel-refresh-timer ...) (when w3m-current-process ...) (w3m-process-stop ...) (w3m-history-store-position) (if ... ... ...)) (t (w3m-message "Invalid URL: %s" url)))
w3m-goto-url("http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja"; nil nil nil "http://www.google.com/search?q=read_ZEIT_char&hl=ja&lr=lang_ja";)
(progn (w3m-goto-url (caar hist) nil nil (w3m-history-plist-get :post-data) (w3m-history-plist-get :referer)) (setcar w3m-history (cdr hist)) (w3m-history-restore-position))
(if hist (progn (w3m-goto-url ... nil nil ... ...) (setcar w3m-history ...) (w3m-history-restore-position)))
(when hist (w3m-goto-url (caar hist) nil nil (w3m-history-plist-get :post-data) (w3m-history-plist-get :referer)) (setcar w3m-history (cdr hist)) (w3m-history-restore-position))
(let ((hist ...) (w3m-history-reuse-history-elements t) (w3m-use-refresh nil)) (when hist (w3m-goto-url ... nil nil ... ...) (setcar w3m-history ...) (w3m-history-restore-position)))
w3m-view-previous-page(1)
call-interactively(w3m-view-previous-page)