unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Re: info,bookmark and bzip2
       [not found] <20020605091708.6000BAA1@smtp.ether.antenova.co.uk>
@ 2002-06-07  0:46 ` Richard Stallman
  2002-06-07 15:18   ` Stefan Monnier
  0 siblings, 1 reply; 4+ messages in thread
From: Richard Stallman @ 2002-06-07  0:46 UTC (permalink / raw)
  Cc: emacs-devel

Does this patch make it work?

*** bookmark.el.~1.59.~	Fri Dec 21 04:05:59 2001
--- bookmark.el	Thu Jun  6 18:41:39 2002
***************
*** 1078,1086 ****
--- 1078,1088 ----
     ((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 ".bz2"))       (concat file ".bz2"))
     ((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.bz2"))  (concat file ".info.bz2"))
     ((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?

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: info,bookmark and bzip2
  2002-06-07  0:46 ` info,bookmark and bzip2 Richard Stallman
@ 2002-06-07 15:18   ` Stefan Monnier
  2002-06-07 15:33     ` Karl Fogel
  0 siblings, 1 reply; 4+ messages in thread
From: Stefan Monnier @ 2002-06-07 15:18 UTC (permalink / raw)
  Cc: robert.thorpe, emacs-devel

> Does this patch make it work?
> 
> *** bookmark.el.~1.59.~	Fri Dec 21 04:05:59 2001
> --- bookmark.el	Thu Jun  6 18:41:39 2002
> ***************
> *** 1078,1086 ****
> --- 1078,1088 ----
>      ((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 ".bz2"))       (concat file ".bz2"))
>      ((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.bz2"))  (concat file ".info.bz2"))
>      ((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?

Yuck!  Can someone fix this code to use Info-suffix-list ?


	Stefan

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: info,bookmark and bzip2
  2002-06-07 15:18   ` Stefan Monnier
@ 2002-06-07 15:33     ` Karl Fogel
       [not found]       ` <87d6v2ppaw.fsf@floss.i-did-not-set--mail-host-address--so-shoot-me>
  0 siblings, 1 reply; 4+ messages in thread
From: Karl Fogel @ 2002-06-07 15:33 UTC (permalink / raw)
  Cc: robert.thorpe, Stefan Monnier

Stefan Monnier writes:
> Yuck!  Can someone fix this code to use Info-suffix-list ?

Yes, I will do that tonight.  Thanks for the suggestion!

-Karl

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: info,bookmark and bzip2
       [not found]       ` <87d6v2ppaw.fsf@floss.i-did-not-set--mail-host-address--so-shoot-me>
@ 2002-06-10  9:35         ` Robert Thorpe
  0 siblings, 0 replies; 4+ messages in thread
From: Robert Thorpe @ 2002-06-10  9:35 UTC (permalink / raw)


On 7 Jun 2002, at 19:49, Karl Fogel wrote:

> Okay, Robert, I applied a fix to bookmark.el.  Please let me know how
> it works for you.  
> 
> The new revision of bookmark.el is 1.60; here is the diff from 1.59 to
> 1.60:

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.

> 
>    2002-06-07  Karl Fogel  <kfogel@red-bean.com>
> 
>    * bookmark.el (bookmark-file-or-variation-thereof): Just use
>    Info-suffix-list, as suggested by Stefan Monnier.
> 
> 
> $ cvs diff -c -r 1.59 -r 1.60 bookmark.el
> Index: bookmark.el
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/bookmark.el,v
> retrieving revision 1.59
> retrieving revision 1.60
> diff -c -r1.59 -r1.60
> *** 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)
> 




-- 
The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2002-06-10  9:35 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
     [not found] <20020605091708.6000BAA1@smtp.ether.antenova.co.uk>
2002-06-07  0:46 ` info,bookmark and bzip2 Richard Stallman
2002-06-07 15:18   ` Stefan Monnier
2002-06-07 15:33     ` Karl Fogel
     [not found]       ` <87d6v2ppaw.fsf@floss.i-did-not-set--mail-host-address--so-shoot-me>
2002-06-10  9:35         ` Robert Thorpe

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).