Re: Emacs20.7 での compile

[Taiji.Can@xxxxxxxxxxxxxxxxxxx]

  菅です。

> 白井> # 対処方法はあとで考えましょう。
> 
> 自信はないのですが、とりあえず、エラーにはならないようにしました。

  わかりました。私も適当に eval-when-compile の範囲でコンパイル時のエラーは
  出ないようにして実験してみたところ、うまく動きましたが、emacs20.7 で

(setq w3m-default-display-inline-images t)

  としておいて、

http://biztech.nikkeibp.co.jp/biztech/

  を見たときに以下のエラーになりました。長いので、略します。

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(542 ("\x4513f"))
  (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 542 in *w3m*> #<marker at 542 in *w3m*> ("\x4513f"))
  (let (buffer-read-only) (w3m-insert-image (symbol-value G17664) (symbol-value G17663) image))
  (progn (let (buffer-read-only) (w3m-insert-image ... ... image)) (if w3m-force-redisplay (sit-for 0)))
  (if (equal (symbol-value G17662) 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 G17664) nil) (set-marker (symbol-value G17663) nil))
  (if (buffer-live-p (marker-buffer ...)) (progn (save-current-buffer ... ... ...) (set-marker ... nil) (set-marker ... nil)))
  (lambda (G17660 G17661 G17662 G17663 G17664 image handler) (if (buffer-live-p ...) (progn ... ... ...)))(--G17651-- --G17652-- --url-- --end-- --start-- ("\x4513f") #<subr identity>)
:
:
:
  (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