From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: find-library-name, used by org-reload, missing on XEmacs Date: Sun, 5 Apr 2009 16:18:39 +0200 Message-ID: <7A771765-FEE0-49D3-991F-7561BE1BF618@gmail.com> References: Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LqTBP-00079Y-SD for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 10:18:47 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LqTBL-00070B-Cu for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 10:18:47 -0400 Received: from [199.232.76.173] (port=51607 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LqTBL-000700-0r for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 10:18:43 -0400 Received: from mail-ew0-f160.google.com ([209.85.219.160]:41116) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LqTBK-0007Q9-Jb for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 10:18:42 -0400 Received: by ewy4 with SMTP id 4so1806594ewy.42 for ; Sun, 05 Apr 2009 07:18:41 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "Tony E. Bennett" Cc: emacs-orgmode@gnu.org Hi Tony, thanks for this, org-reload now works on XEmacs. - Carsten On Mar 31, 2009, at 8:38 PM, Tony E. Bennett wrote: > > Hi > > org-reload needs 'find-library-name', which is missing on XEmacs v21.5 > at least. However there is 'find-library' which can be coerced into > providing the filename: > > ;; hack - XEmacs does not have find-library-name, needed by org- > reload. > (when (not (fboundp 'find-library-name)) > (require 'find-func) > ;; still not found? then create it if find-library exists, as > it does on xemacs > (when (and (not (fboundp 'find-library-name)) > (fboundp 'find-library)) > (defun find-library-name-helper (filename ignored-codesys) > filename) > (defun find-library-name (library) > (find-library library nil 'find-library-name-helper)) > )) > > > thanks > > --tony > > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode