Re: Emacs 21 and w3 on Debian

[Thierry Emery <see.sig@spamfoil.invalid>]

Tim X <timx@spamto.devnul.com> writes:

> Well, it seems pretty much any page with a relative link which is not
> relative to the document root of the server. An example is
>
> http://www.une.edu.au/itd/index.html
>
> If you try to follow the "About ITD" link on that page, instead of
> getting 
>
> http://www.une.edu.au/itd/about/index.html

Hmm, strange, this works for me when using the same environment as you have:

Debian GNU/Linux sid
GNU Emacs 21.4.1 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-03-17 on trouble, modified by Debian
w3-el-e21 4.0pre.2001.10.27-16
w3-url-e21 2001.11.08-7

with the following procedure:

/usr/bin/emacs -q &
M-x w3-fetch
http://www.une.edu.au/itd/index.html
<click on "About ITD">

this does get http://www.une.edu.au/itd/about/index.html ...


However:

1. Errors are signaled when loading images ("Text is read-only"),
   this is solved with:

(defadvice w3-finalize-image-download (around set-inhibit-read-only activate)
  (let ((inhibit-read-only t))
    ad-do-it))

(defadvice widget-image-value-create (around set-inhibit-read-only activate)
  (let ((inhibit-read-only t))
    ad-do-it))

2. Images are not inserted where they belong, this is fixed with:
   
(eval-after-load "w3-widget" (quote
(defun widget-image-value-set (widget value)
  ;; Recreate widget with new value.
  (save-excursion
    (let* ((where (widget-get widget 'where)))
      (widget-image-delete widget)
      (if (or (eq 'image (car-safe value)) ; Emacs 21
	      (widget-glyphp value))
	  (widget-put widget 'glyph value)
	(widget-put widget :value value))
      (and where
	   (goto-char where))
      (put-text-property (point)
			 (progn
			   (widget-apply widget :create)
			   (point))
			 'inaudible
			 widget-image-inaudible-p))))
))

3. There are ">" glitches, which are eliminated with:

(add-hook 'w3-parse-hooks
	  (lambda ()
	    (while (search-forward "/>" nil t) 
	      (replace-match ">"))))


Hoping this helps,

Thierry
-- 
thierry |point| emery |chez| free |point| fr