From xemacs-m  Wed Jul 30 07:31:10 1997
Received: from kurims.kurims.kyoto-u.ac.jp (kurims.kurims.kyoto-u.ac.jp [130.54.16.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id HAA07460
	for <xemacs-beta@xemacs.org>; Wed, 30 Jul 1997 07:31:07 -0500 (CDT)
Received: from orion.kurims.kyoto-u.ac.jp (orion.kurims.kyoto-u.ac.jp [130.54.16.5]) by kurims.kurims.kyoto-u.ac.jp (8.8.5/3.4W2) with SMTP id VAA27593 for <xemacs-beta@xemacs.org>; Wed, 30 Jul 1997 21:30:55 +0900 (JST)
Received: (from petersen@localhost) by orion.kurims.kyoto-u.ac.jp (SMI-8.6/3.5Wbeta) id VAA26655; Wed, 30 Jul 1997 21:30:55 +0900
Date: Wed, 30 Jul 1997 21:30:55 +0900
Message-Id: <199707301230.VAA26655@orion.kurims.kyoto-u.ac.jp>
From: Jens-Ulrik Holger Petersen <petersen@kurims.kyoto-u.ac.jp>
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: find-function.el
X-Mailer: VM 6.33 under 20.3 "Berlin" XEmacs  Lucid (beta15)
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII

Just a courtesy message (advertisement) about a package I posted
to <news:gnu.emacs.sources> and <news:comp.emacs.xemacs>, which I 
imagine people on this list would find rather useful.

Here is the commentary (although the file is very small):


;;; find-function.el --- find the definition of the elisp function near point

;; Copyright (C) 1997 Free Software Foundation, Inc.

;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp>
;; Maintainer: petersen@kurims.kyoto-u.ac.jp
;; Keywords: emacs-lisp, help, functions
;; Status: works with emacs-19.34+ and xemacs-20.2+ (xemacs-19.15 probably)
;; Created: 97/07/25
;; URL: <http://www.kurims.kyoto-u.ac.jp/~petersen/emacs-lisp/find-function.el>

;; $Id: find-function.el,v 0.8 1997/07/30 11:32:22 petersen Exp $

;;; Commentary:
;;
;; This requires a modern Emacs or XEmacs, in particular it requires
;; the functions `describe-function-find-file' and `locate-library'.
;; Maybe that explains why a package so obviously useful as this
;; hasn't been written before!!  I guess this should really go into
;; "help.el".
;;
;; Put this file in your `load-path' and the following code in your init
;; file:
;;
;; ;;; find-function
;; (autoload 'find-function "find-function" nil t)
;; (global-set-key [(control ?c) ?f] 'find-function)
;; (global-set-key [(control ?c) ?4 ?f] 'find-function-other-window)
;; (global-set-key [(control ?c) ?5 ?f] 'find-function-other-frame)
;;
;; and away you go!  It does pretty much what you would expect,
;; putting the cursor at the definition of the function at point.
;;
;; In XEmacs the source file of dumped functions is recorded (and can
;; be accessed with the function `compiled-function-annotation', which
;; doesn't exist in Emacs), so in XEmacs non-primitive dumped function
;; can also be found.  Unfortunately to my knowledge this is not
;; possible in Emacs.  It would be nice if the location of primitive
;; functions in the C code was also recorded!

;; The code is largely adapted from "help.el" and Noah Friedman's
;; "fff.el".


Jens

