Re: Emacs20.7 での compile

[Taiji.Can@xxxxxxxxxxxxxxxxxxx]

  菅です。

> 菅原です。

  おはようございます。お世話になります。

> > http://biztech.nikkeibp.co.jp/biztech/
> > 
> >   を見たときに以下のエラーになりました。長いので、略します。
> 
> ごめんなさい、直しました。

  えと、今朝のCVS（幹）をとってきたのですが、同じことをすると、
  以下のようになります。変わっていないような。

  emacs -q

  で、立ち上げ、

(set-language-environment 'Japanese)
(require 'mime-w3m)
(autoload 'w3m "w3m" "*Interface for w3m on Emacs." t)
(setq w3m-default-display-inline-images t)

  をして、w3m を立ち上げています。

  w3m は CVSの最新の物を利用しています。
  長いですが、今回は全部付けておきます。

Signaling: (wrong-type-argument overlayp nil)
  overlay-get(nil w3m-bitmap-image-count)
  (or (overlay-get ovr (quote w3m-bitmap-image-count)) 0)
  (1+ (or (overlay-get ovr ...) 0))
  (overlay-put ovr (quote w3m-bitmap-image-count) (1+ (or ... 0)))
  (let ((ovr ...)) (overlay-put ovr (quote w3m-bitmap-image-count) (1+ ...)))
  w3m-bitmap-image-insert(16635 (" "))
  (let ((properties ...) (name ...) (len ...)) (w3m-bitmap-image-delete-string beg (- end beg)) (goto-char beg) (w3m-bitmap-image-insert (point) image) (apply (quote w3m-bitmap-image-add-text-properties) (point) len (quote w3m-image-status) (quote on) (quote face) (quote w3m-image-face) (quote w3m-bitmap-image) t (quote w3m-bitmap-image-width) len (quote w3m-image-name) name properties))
  (save-excursion (let (... ... ...) (w3m-bitmap-image-delete-string beg ...) (goto-char beg) (w3m-bitmap-image-insert ... image) (apply ... ... len ... ... ... ... ... t ... len ... name properties)))
  w3m-insert-image(#<marker at 16635 in *w3m*> #<marker at 16635 in *w3m*> (" "))
  (let (buffer-read-only) (w3m-insert-image (symbol-value G73750) (symbol-value G73749) image))
  (progn (let (buffer-read-only) (w3m-insert-image ... ... image)) (if w3m-force-redisplay (sit-for 0)))
  (if (equal (symbol-value G73748) w3m-current-url) (progn (let ... ...) (if w3m-force-redisplay ...)))
  (if image (if (equal ... w3m-current-url) (progn ... ...)) (let (buffer-read-only) (add-text-properties ... ... ... nil)))
  (save-current-buffer (set-buffer (marker-buffer ...)) (if image (if ... ...) (let ... ...)) (set-buffer-modified-p nil))
  (progn (save-current-buffer (set-buffer ...) (if image ... ...) (set-buffer-modified-p nil)) (set-marker (symbol-value G73750) nil) (set-marker (symbol-value G73749) nil))
  (if (buffer-live-p (marker-buffer ...)) (progn (save-current-buffer ... ... ...) (set-marker ... nil) (set-marker ... nil)))
  (lambda (G73746 G73747 G73748 G73749 G73750 image handler) (if (buffer-live-p ...) (progn ... ... ...)))(--G73737-- --G73738-- --url-- --end-- --start-- (" ") #<subr identity>)
  apply((lambda (G73746 G73747 G73748 G73749 G73750 image handler) (if (buffer-live-p ...) (progn ... ... ...))) --G73737-- --G73738-- --url-- --end-- --start-- ((" ") #<subr identity>))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G73737--) (quote --G73738--) (quote --url--) (quote --end--) (quote --start--) --cl-rest--))((" ") #<subr identity>)
  funcall((lambda (&rest --cl-rest--) (apply (quote ...) (quote --G73737--) (quote --G73738--) (quote --url--) (quote --end--) (quote --start--) --cl-rest--)) (" ") #<subr identity>)
  (setq image (funcall (symbol-value --G73737--73740) image --this-handler--73736))
  (w3m-process-p (setq image (funcall ... image --this-handler--73736)))
  (if (w3m-process-p (setq image ...)) (if --this-handler--73736 image (w3m-process-start-process image)) image)
  (if (w3m-process-p image) (if --this-handler--73736 image (w3m-process-start-process image)) (if (w3m-process-p ...) (if --this-handler--73736 image ...) image))
  (let ((image ...)) (if (w3m-process-p image) (if --this-handler--73736 image ...) (if ... ... image)))
  (progn (progn (set --G73738--73739 ...) (set --G73737--73740 ...)) (let (...) (if ... ... ...)))
  (let ((--G73738--73739 ...) (--G73737--73740 ...)) (progn (set --G73738--73739 nil) (set --G73737--73740 nil)) (progn (progn ... ...) (let ... ...)))
  (let ((--this-handler--73736 handler)) (let (... ...) (progn ... ...) (progn ... ...)))
  (let ((--start--73733 ...) (--end--73734 ...) (--url--73735 ...)) (setf (symbol-value --start--73733) (set-marker ... start) (symbol-value --end--73734) (set-marker ... end) (symbol-value --url--73735) w3m-current-url) (let (...) (let ... ... ...)))
  (lexical-let ((start ...) (end ...) (url w3m-current-url)) (w3m-process-do (image ...) (when ... ... ... ...)))
  (let ((handler ...)) (lexical-let (... ... ...) (w3m-process-do ... ...)) (w3m-process-start-queued-processes))
  (w3m-process-with-null-handler (lexical-let (... ... ...) (w3m-process-do ... ...)))
  (progn (w3m-process-with-null-handler (lexical-let ... ...)))
  (if iurl (progn (w3m-process-with-null-handler ...)))
  (when iurl (w3m-process-with-null-handler (lexical-let ... ...)))
  (save-excursion (goto-char cur-point) (when iurl (w3m-process-with-null-handler ...)))
  (if (get-text-property start (quote w3m-image-redundant)) (progn (setq image ...) (w3m-add-text-properties start end ...) (w3m-add-text-properties ... ... ...)) (save-excursion (goto-char cur-point) (when iurl ...)))
  (progn (w3m-add-text-properties start end (quote ...)) (if (get-text-property start ...) (progn ... ... ...) (save-excursion ... ...)))
  (if (and (or ... ...) (not ...)) (progn (w3m-add-text-properties start end ...) (if ... ... ...)))
  (when (and (or ... ...) (not ...)) (w3m-add-text-properties start end (quote ...)) (if (get-text-property start ...) (progn ... ... ...) (save-excursion ... ...)))
  (while (setq start (if ... ... ...)) (setq end (or ... ...) iurl (w3m-image start) size (get-text-property start ...)) (goto-char end) (when (and ... ...) (w3m-add-text-properties start end ...) (if ... ... ...)))
  (save-excursion (goto-char (point-min)) (while (setq start ...) (setq end ... iurl ... size ...) (goto-char end) (when ... ... ...)))
  (if (equal status (quote off)) (save-excursion (goto-char ...) (while ... ... ... ...)) (save-excursion (goto-char ...) (while ... ... ... ...) (set-buffer-modified-p nil)))
  (let ((cur-point ...) (buffer-read-only) start end iurl image size) (if (equal status ...) (save-excursion ... ...) (save-excursion ... ... ...)))
  w3m-toggle-inline-images-internal(off nil nil)
  (unwind-protect (w3m-toggle-inline-images-internal (if w3m-display-inline-images ... ...) no-cache nil) (unless (setq w3m-display-inline-images ...) (w3m-process-stop ...)) (force-mode-line-update))
  (let ((status w3m-display-inline-images)) (unless (w3m-display-graphic-p) (error "Can't display images in this environment")) (if force (setq w3m-display-inline-images nil status nil)) (unwind-protect (w3m-toggle-inline-images-internal ... no-cache nil) (unless ... ...) (force-mode-line-update)))
  w3m-toggle-inline-images(force nil)
  (cond ((w3m-display-inline-images-p) (and w3m-force-redisplay ...) (w3m-toggle-inline-images ... ...)) ((and ... w3m-image-only-page) (and w3m-force-redisplay ...) (w3m-toggle-inline-image ... ...)))
  (cond ((not action) (w3m-history-push ... ...) (w3m-history-push w3m-current-url) (w3m-refontify-anchor)) ((not ...) (w3m-history-push w3m-current-url ...) (w3m-history-add-properties ... nil nil t) (or ... ...) (if w3m-toggle-inline-images-permanently nil ...) (cond ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil)))
  (save-current-buffer (set-buffer w3m-current-buffer) (setq w3m-current-process nil) (set G62976 (nth 5 ...)) (cond (... ... ... ...) (... ... ... ... ... ... ... ...)) (w3m-arrived-add (symbol-value G62985) w3m-current-title nil nil (symbol-value G62977) (symbol-value G62978)) (setq default-directory (w3m-current-directory w3m-current-url)) (w3m-update-toolbar) (run-hook-with-args (quote w3m-display-hook) (or ... ...)) (w3m-refresh-at-time))
  (lambda (G62974 G62975 G62976 G62977 G62978 G62979 G62980 G62981 G62982 G62983 G62984 G62985 action handler) (save-current-buffer (set-buffer w3m-current-buffer) (setq w3m-current-process nil) (set G62976 ...) (cond ... ...) (w3m-arrived-add ... w3m-current-title nil nil ... ...) (setq default-directory ...) (w3m-update-toolbar) (run-hook-with-args ... ...) (w3m-refresh-at-time)))(--G62956-- --G62957-- --real-url-- --cs-- --ct-- --name-- --referer-- --post-data-- --charset-- --reload-- --url-- --orig-- t (lambda (success) ((lambda ... ...) success nil)))
  apply((lambda (G62974 G62975 G62976 G62977 G62978 G62979 G62980 G62981 G62982 G62983 G62984 G62985 action handler) (save-current-buffer (set-buffer w3m-current-buffer) (setq w3m-current-process nil) (set G62976 ...) (cond ... ...) (w3m-arrived-add ... w3m-current-title nil nil ... ...) (setq default-directory ...) (w3m-update-toolbar) (run-hook-with-args ... ...) (w3m-refresh-at-time))) --G62956-- --G62957-- --real-url-- --cs-- --ct-- --name-- --referer-- --post-data-- --charset-- --reload-- --url-- --orig-- (t (lambda (success) (... success nil))))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G62956--) (quote --G62957--) (quote --real-url--) (quote --cs--) (quote --ct--) (quote --name--) (quote --referer--) (quote --post-data--) (quote --charset--) (quote --reload--) (quote --url--) (quote --orig--) --cl-rest--))(t (lambda (success) ((lambda ... ...) success nil)))
  funcall((lambda (&rest --cl-rest--) (apply (quote ...) (quote --G62956--) (quote --G62957--) (quote --real-url--) (quote --cs--) (quote --ct--) (quote --name--) (quote --referer--) (quote --post-data--) (quote --charset--) (quote --reload--) (quote --url--) (quote --orig--) --cl-rest--)) t (lambda (success) ((lambda ... ...) success nil)))
  (setq action (funcall (symbol-value G62960) action handler))
  (w3m-process-p (setq action (funcall ... action handler)))
  (if (w3m-process-p (setq action ...)) nil (funcall (or handler ...) action))
  (lambda (G62960 G62961 G62962 G62963 G62964 G62965 G62966 G62967 G62968 G62969 G62970 G62971 action handler) (if (w3m-process-p ...) nil (funcall ... action)))(--G62956-- --G62957-- --real-url-- --cs-- --ct-- --name-- --referer-- --post-data-- --charset-- --reload-- --url-- --orig-- t (lambda (success) ((lambda ... ...) success nil)))
  apply((lambda (G62960 G62961 G62962 G62963 G62964 G62965 G62966 G62967 G62968 G62969 G62970 G62971 action handler) (if (w3m-process-p ...) nil (funcall ... action))) --G62956-- --G62957-- --real-url-- --cs-- --ct-- --name-- --referer-- --post-data-- --charset-- --reload-- --url-- --orig-- (t (lambda (success) (... success nil))))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G62956--) (quote --G62957--) (quote --real-url--) (quote --cs--) (quote --ct--) (quote --name--) (quote --referer--) (quote --post-data--) (quote --charset--) (quote --reload--) (quote --url--) (quote --orig--) --cl-rest--))(t (lambda (success) ((lambda ... ...) success nil)))
  (lambda (action) ((lambda ... ...) action (lambda ... ...)))(t)
  funcall((lambda (action) ((lambda ... ...) action (lambda ... ...))) t)
  (if (w3m-process-p (setq type ...)) nil (funcall (or handler ...) type))
  (lambda (G63025 G63026 G63027 G63028 G63029 G63030 G63031 type handler --temp-buffer--63020) (if (w3m-process-p ...) nil (funcall ... type)))(--G63021-- --G63022-- --secure-- --output-buffer-- --content-charset-- --content-type-- --url-- "text/html" (lambda (action) ((lambda ... ...) action (lambda ... ...))) #<killed buffer>)
  apply((lambda (G63025 G63026 G63027 G63028 G63029 G63030 G63031 type handler --temp-buffer--63020) (if (w3m-process-p ...) nil (funcall ... type))) --G63021-- --G63022-- --secure-- --output-buffer-- --content-charset-- --content-type-- --url-- ("text/html" (lambda (action) (... action ...)) #<killed buffer>))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G63021--) (quote --G63022--) (quote --secure--) (quote --output-buffer--) (quote --content-charset--) (quote --content-type--) (quote --url--) --cl-rest--))("text/html" (lambda (action) ((lambda ... ...) action (lambda ... ...))) #<killed buffer>)
  (lambda (type) ((lambda ... ...) type (lambda ... ...) #<killed buffer>))("text/html")
  funcall((lambda (type) ((lambda ... ...) type (lambda ... ...) #<killed buffer>)) "text/html")
  (progn (if type (w3m-cache-header ... ...)) (funcall (symbol-value G63089) type))
  (if (or (null w3m-follow-redirection) (null w3m-current-redirect)) (progn (if type ...) (funcall ... type)) (if (zerop ...) (funcall ... type) (set G63096 ...) (set G63094 ...) (erase-buffer) (if ... ...) (if ... ... ...)))
  (lambda (G63085 G63086 G63087 G63088 G63089 G63090 G63091 G63092 G63093 G63094 G63095 G63096 type) (if (or ... ...) (progn ... ...) (if ... ... ... ... ... ... ...)))(--quit-- --return-- --sync-- --redirect-handler-- --orig-handler-- --referer-- --post-data-- --no-cache-- --no-decode-- --url-- --orig-url-- --i-- "text/html")
  apply((lambda (G63085 G63086 G63087 G63088 G63089 G63090 G63091 G63092 G63093 G63094 G63095 G63096 type) (if (or ... ...) (progn ... ...) (if ... ... ... ... ... ... ...))) --quit-- --return-- --sync-- --redirect-handler-- --orig-handler-- --referer-- --post-data-- --no-cache-- --no-decode-- --url-- --orig-url-- --i-- "text/html")
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --quit--) (quote --return--) (quote --sync--) (quote --redirect-handler--) (quote --orig-handler--) (quote --referer--) (quote --post-data--) (quote --no-cache--) (quote --no-decode--) (quote --url--) (quote --orig-url--) (quote --i--) --cl-rest--))("text/html")
  funcall((lambda (&rest --cl-rest--) (apply (quote ...) (quote --quit--) (quote --return--) (quote --sync--) (quote --redirect-handler--) (quote --orig-handler--) (quote --referer--) (quote --post-data--) (quote --no-cache--) (quote --no-decode--) (quote --url--) (quote --orig-url--) (quote --i--) --cl-rest--)) "text/html")
  (if (w3m-process-p (setq attributes ...)) nil (funcall (or handler ...) attributes))
  (lambda (G63135 G63136 G63137 G63138 G63139 attributes handler) (if (w3m-process-p ...) nil (funcall ... attributes)))(--G63131-- --G63132-- --temp-file-- --no-decode-- --url-- ("text/html" nil nil nil nil "http://biztech.nikkeibp.co.jp/biztech/topics.shtml" "http://biztech.nikkeibp.co.jp/biztech/topics.shtml") (lambda (&rest --cl-rest--) (apply (quote ...) (quote --quit--) (quote --return--) (quote --sync--) (quote --redirect-handler--) (quote --orig-handler--) (quote --referer--) (quote --post-data--) (quote --no-cache--) (quote --no-decode--) (quote --url--) (quote --orig-url--) (quote --i--) --cl-rest--)))
  apply((lambda (G63135 G63136 G63137 G63138 G63139 attributes handler) (if (w3m-process-p ...) nil (funcall ... attributes))) --G63131-- --G63132-- --temp-file-- --no-decode-- --url-- (("text/html" nil nil nil nil "http://biztech.nikkeibp.co.jp/biztech/topics.shtml" "http://biztech.nikkeibp.co.jp/biztech/topics.shtml") (lambda (&rest --cl-rest--) (apply ... ... ... ... ... ... ... ... ... ... ... ... ... --cl-rest--))))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G63131--) (quote --G63132--) (quote --temp-file--) (quote --no-decode--) (quote --url--) --cl-rest--))(("text/html" nil nil nil nil "http://biztech.nikkeibp.co.jp/biztech/topics.shtml" "http://biztech.nikkeibp.co.jp/biztech/topics.shtml") (lambda (&rest --cl-rest--) (apply (quote ...) (quote --quit--) (quote --return--) (quote --sync--) (quote --redirect-handler--) (quote --orig-handler--) (quote --referer--) (quote --post-data--) (quote --no-cache--) (quote --no-decode--) (quote --url--) (quote --orig-url--) (quote --i--) --cl-rest--)))
  (lambda (attributes) ((lambda ... ...) attributes (lambda ... ...)))(("text/html" nil nil nil nil "http://biztech.nikkeibp.co.jp/biztech/topics.shtml" "http://biztech.nikkeibp.co.jp/biztech/topics.shtml"))
  funcall((lambda (attributes) ((lambda ... ...) attributes (lambda ... ...))) ("text/html" nil nil nil nil "http://biztech.nikkeibp.co.jp/biztech/topics.shtml" "http://biztech.nikkeibp.co.jp/biztech/topics.shtml"))
  (if (w3m-process-p (setq result ...)) nil (funcall (or handler ...) result))
  (lambda (G63167 G63168 G63169 result handler) (if (w3m-process-p ...) nil (funcall ... result)))(--G63163-- --G63164-- --url-- t (lambda (attributes) ((lambda ... ...) attributes (lambda ... ...))))
  apply((lambda (G63167 G63168 G63169 result handler) (if (w3m-process-p ...) nil (funcall ... result))) --G63163-- --G63164-- --url-- (t (lambda (attributes) (... attributes ...))))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G63163--) (quote --G63164--) (quote --url--) --cl-rest--))(t (lambda (attributes) ((lambda ... ...) attributes (lambda ... ...))))
  (lambda (result) ((lambda ... ...) result (lambda ... ...)))(t)
  funcall((lambda (result) ((lambda ... ...) result (lambda ... ...))) t)
  (if (w3m-process-p (setq exit-status ...)) nil (funcall (or handler ...) exit-status))
  (lambda (G63188 G63189 exit-status handler) (if (w3m-process-p ...) nil (funcall ... exit-status)))(--G63184-- --G63185-- 0 (lambda (result) ((lambda ... ...) result (lambda ... ...))))
  apply((lambda (G63188 G63189 exit-status handler) (if (w3m-process-p ...) nil (funcall ... exit-status))) --G63184-- --G63185-- (0 (lambda (result) (... result ...))))
  (lambda (&rest --cl-rest--) (apply (quote ...) (quote --G63184--) (quote --G63185--) --cl-rest--))(0 (lambda (result) ((lambda ... ...) result (lambda ... ...))))
  (lambda (exit-status) ((lambda ... ...) exit-status (lambda ... ...)))(0)
  funcall((lambda (exit-status) ((lambda ... ...) exit-status (lambda ... ...))) 0)
  (let ((w3m-process-exit-status) (w3m-current-buffer ...)) (when realm (w3m-process-set-authinfo w3m-current-url realm user passwd)) (funcall (w3m-process-handler-function x) exit-status))
  (progn (set-buffer (w3m-process-handler-buffer x)) (let (... ...) (when realm ...) (funcall ... exit-status)))
  (if (buffer-name (w3m-process-handler-buffer x)) (progn (set-buffer ...) (let ... ... ...)))
  (when (buffer-name (w3m-process-handler-buffer x)) (set-buffer (w3m-process-handler-buffer x)) (let (... ...) (when realm ...) (funcall ... exit-status)))
  (while --dolist-temp--63206 (setq x (car --dolist-temp--63206)) (when (buffer-name ...) (set-buffer ...) (let ... ... ...)) (setq --dolist-temp--63206 (cdr --dolist-temp--63206)))
  (let ((--dolist-temp--63206 ...) x) (while --dolist-temp--63206 (setq x ...) (when ... ... ...) (setq --dolist-temp--63206 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--63206 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... x) (while --dolist-temp--63206 ... ... ...) nil))
  (dolist (x (w3m-process-handlers obj)) (when (buffer-name ...) (set-buffer ...) (let ... ... ...)))
  (let ((exit-status ...) (buffer ...) (realm w3m-process-realm) (user w3m-process-user) (passwd w3m-process-passwd) (obj w3m-process-object)) (setq w3m-process-object nil) (dolist (x ...) (when ... ... ...)) (dolist (x ...) (when ... ... ...)))
  (save-current-buffer (set-buffer (process-buffer process)) (setq w3m-process-queue (delq w3m-process-object w3m-process-queue)) (let (... ... ... ... ... ...) (setq w3m-process-object nil) (dolist ... ...) (dolist ... ...)))
  (if (buffer-name (process-buffer process)) (save-current-buffer (set-buffer ...) (setq w3m-process-queue ...) (let ... ... ... ...)) (catch (quote last) (dolist ... ...)))
  (unwind-protect (if (buffer-name ...) (save-current-buffer ... ... ...) (catch ... ...)) (delete-process process) (w3m-process-start-queued-processes))
  (let ((inhibit-quit w3m-process-inhibit-quit)) (unwind-protect (if ... ... ...) (delete-process process) (w3m-process-start-queued-processes)))
  w3m-process-sentinel(#<process /opt/local/bin/w3m> "finished\n")
-- 

					ADVANTEST corp.
					Taiji.Can@grd.advantest.co.jp