Re: Emacs 21 and w3 on Debian

[Tim X <timx@spamto.devnul.com>]

Thierry Emery <see.sig@spamfoil.invalid> writes:

> 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

Thierry,

You blow me away with all of this! I've used defadvice a bit myself to
get around problems etc, but it would take me ages to work out
everything that you have so quickly. You have reinspired my faith in
newsgroups!

thanks,

Tim

-- 
Tim Cross
The e-mail address on this message is FALSE (obviously!). My real e-mail is
to a company in Australia called rapttech and my login is tcross - if you 
really need to send mail, you should be able to work it out!