Re: info,bookmark and bzip2

[Karl Fogel]

"Robert Thorpe" <address@hidden> writes:
> This works fine.  It doesn't check vc anymore as far as I can tell.
>   I don't know whether this is a problem, I just thought you might 
> have forgotten about it.

Nope, that's a total oversight on my part, I'll put it back in.

Score one for Old Hundred Eyes :-)

Thanks,
-Karl

> > *** bookmark.el     20 Dec 2001 18:32:12 -0000      1.59
> > --- bookmark.el     8 Jun 2002 03:33:09 -0000       1.60
> > ***************
> > *** 1072,1090 ****
> >   
> >   
> >   (defun bookmark-file-or-variation-thereof (file)
> > !   "Return FILE (a string) if it exists in any reasonable variation, else 
> > nil.
> > ! Reasonable variations are FILE.gz, FILE.Z, FILE.info, FILE.info.gz, etc."
> > !   (cond
> > !    ((file-exists-p file)                       file)
> > !    ((file-exists-p (concat file ".Z"))         (concat file ".Z"))
> > !    ((file-exists-p (concat file ".gz"))        (concat file ".gz"))
> > !    ((file-exists-p (concat file ".z"))         (concat file ".z"))
> > !    ((file-exists-p (concat file ".info"))      (concat file ".info"))
> > !    ((file-exists-p (concat file ".info.gz"))   (concat file ".info.gz"))
> > !    ((file-exists-p (concat file ".info.Z"))    (concat file ".info.Z"))
> > !    ((file-exists-p (concat file ".info.z"))    (concat file ".info.z"))
> > !    ((vc-backend file)                          file) ; maybe VC has it?
> > !    (t                                          nil)))
> >   
> >   
> >   (defun bookmark-jump-noselect (str)
> > --- 1072,1089 ----
> >   
> >   
> >   (defun bookmark-file-or-variation-thereof (file)
> > !   "Return FILE if it exists, or return the first variation based on
> > ! `Info-suffix-list' that exists, else return nil."
> > !   (if (file-exists-p file)
> > !       file
> > !     (require 'info)  ; ensure Info-suffix-list is bound
> > !     (catch 'found
> > !       (mapc (lambda (elt)
> > !               (let ((suffixed-file (concat file (car elt))))
> > !                 (if (file-exists-p suffixed-file)
> > !                     (throw 'found suffixed-file))))
> > !             Info-suffix-list)
> > !       nil)))
> >   
> >   
> >   (defun bookmark-jump-noselect (str)