[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: info,bookmark and bzip2
From: |
Karl Fogel |
Subject: |
Re: info,bookmark and bzip2 |
Date: |
10 Jun 2002 15:36:39 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50 |
"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)
- Re: info,bookmark and bzip2, Richard Stallman, 2002/06/06
- Re: info,bookmark and bzip2, Karl Fogel, 2002/06/06
- Re: info,bookmark and bzip2, Stefan Monnier, 2002/06/07
- Re: info,bookmark and bzip2, Karl Fogel, 2002/06/07
- Re: info,bookmark and bzip2, Karl Fogel, 2002/06/08
- Re: info,bookmark and bzip2, Robert Thorpe, 2002/06/10
- Re: info,bookmark and bzip2,
Karl Fogel <=
- Re: info,bookmark and bzip2, Karl Fogel, 2002/06/12