From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?UTF-8?B?RnLDqWTDqXJpYw==?= Perrin Newsgroups: gmane.emacs.devel Subject: Re: Woman path : adding l10n man pages Date: Tue, 8 Jan 2008 15:14:46 +0100 Message-ID: <20080108151446.7bcd3769@girafe.maisel.enst-bretagne.fr> References: <20071231144731.6993df8e@girafe.maisel.enst-bretagne.fr> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1199801733 28273 80.91.229.12 (8 Jan 2008 14:15:33 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 8 Jan 2008 14:15:33 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jan 08 15:15:54 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JCFFC-0007bW-4c for ged-emacs-devel@m.gmane.org; Tue, 08 Jan 2008 15:15:54 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JCFEo-0002Xg-P5 for ged-emacs-devel@m.gmane.org; Tue, 08 Jan 2008 09:15:30 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JCFEj-0002Th-Ve for emacs-devel@gnu.org; Tue, 08 Jan 2008 09:15:26 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JCFEi-0002SG-JL for emacs-devel@gnu.org; Tue, 08 Jan 2008 09:15:25 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JCFEi-0002S9-Cv for emacs-devel@gnu.org; Tue, 08 Jan 2008 09:15:24 -0500 Original-Received: from coliposte.enst-bretagne.fr ([192.108.115.12]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JCFEi-00024n-5c for emacs-devel@gnu.org; Tue, 08 Jan 2008 09:15:24 -0500 Original-Received: from localhost (localhost.localdomain [127.0.0.1]) by coliposte.enst-bretagne.fr (8.13.7/8.13.7/2006.08.14) with ESMTP id m08EFKlt026075 for ; Tue, 8 Jan 2008 15:15:20 +0100 Original-Received: from maisel-gw.enst-bretagne.fr (maisel-gw.enst-bretagne.fr [192.44.76.8]) by coliposte.enst-bretagne.fr (8.13.7/8.13.7/2007.03.20) with ESMTP id m08EFHYk026063 for ; Tue, 8 Jan 2008 15:15:19 +0100 Original-Received: from localhost (localhost.maisel.enst-bretagne.fr [127.0.0.1]) by maisel-gw.enst-bretagne.fr (Postfix) with ESMTP id EF864495A9 for ; Tue, 8 Jan 2008 15:15:13 +0100 (CET) Original-Received: from maisel-gw.enst-bretagne.fr ([127.0.0.1]) by localhost (venus.maisel.enst-bretagne.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id WcjutQ8uaCCE for ; Tue, 8 Jan 2008 15:15:13 +0100 (CET) Original-Received: from girafe.maisel.enst-bretagne.fr (girafe.maisel.enst-bretagne.fr [172.22.206.119]) by maisel-gw.enst-bretagne.fr (Postfix) with ESMTP id 78BCE49534 for ; Tue, 8 Jan 2008 15:15:13 +0100 (CET) In-Reply-To: <20071231144731.6993df8e@girafe.maisel.enst-bretagne.fr> X-Mailer: Claws Mail 3.2.0 (GTK+ 2.12.3; i486-pc-linux-gnu) X-Virus-Scanned: amavisd-new at enst-bretagne.fr X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:86567 Archived-At: Le Mon, 31 Dec 2007 14:47:31 +0100, Fr=C3=A9d=C3=A9ric Perrin a =C3=A9crit : > Hello, >=20 > Would it be possible to add to Woman's default manpath the local > manpages ? I manage to write a patch that does this, by adding /fr*/ to every path found in manpath.config. Would it be possible to install it ? Here it is : =20 $ diff woman.el.~1.16.4.29~ woman.el 596,600c596,609 < (add-to-list 'manpath < (if (match-beginning 1) < (match-string 1) < (cons (match-string 2) < (match-string 3))))) --- > (if (match-beginning 1) > (let ((new-path (match-string 1))) > (add-to-list 'manpath new-path) > ;; adding localized manpages > (dolist > (loc-path > (file-expand-wildcards=20 > (format "%s/%s*" > new-path > (substring (getenv > "LANG") 0 2)))) (add-to-list 'manpath > loc-path))) > (add-to-list 'manpath (cons (match-string 2) > (match-string > 3))))) --=20 Fred