Hello,
first a question:
Is the attached jde-which-func.el a complete replacement of the original which-func.el?
And could you please write in English in an english mailing list so people who don�t
understand french can follow the discussion too?! Thanx a lot!
Klaus
> -----Urspr�ngliche Nachricht-----
> Von: Paul Kinnucan [mailto:[EMAIL PROTECTED]]
> Gesendet am: Donnerstag, 17. August 2000 01:10
> An: Stephane; [EMAIL PROTECTED]
> Betreff: Re: jde-which-function-mode
>
> At 11:01 PM 8/16/00 -0300, you wrote:
> >
> >
> >Bonjour paul,
> >
> >voici la nouvelle version de jde-which-func.el.
> >Cela marche tr�s bien avec Xemacs,
> >j'ai finalement d�cid� de faire disparaitre le which-func du
> mode-line
> >apr�s un certain temps...customizable.
> >
> >La version semble suffisament stable pour l'inclure, mais je vous
> >laisse tester.
> >
> >Je suis d�sol� de ne pas pouvoir vous envoyer mon code par fichier
> >joint, Netscape a encore plant�. :)
> >
> >Vous recevez donc mon fichier � la fin de mon premier mail-emacs.
> >
> >Vive JDE!
> >
> >St�phane.
> > (PS : je vous laisse inclure (require 'jde-which-func) dans
> > jde.el)
> >
> >Au fait, j'ai 2 petites questions:
> >1-pourquoi ne trouverais t on pas un logo pour JDE?
>
> Il y a un genre de logo sur le website JDE que j'avais fait
> il y a deux ans
> avac PaintShop Pro. Ce logo se trouve sur le JPDA website de Sun
> Microsystems avec des autres logos de debuggers qu'employe
> JPDA. Si vous
> pouvez proposer une idee pour un meilleur logo, je serai heureux de le
> considerer.
>
> >2-est ce que vous annoncez les releases de JDE sur les news groups
> >de comp.lang.java.*?
>
> Mais oui.
>
> Merci beaucoup pour cette nouvelle addition au repertoire de
> tools de JDE.
>
> Comme toujours, excusez moi pour ma francais maudite.
>
> - Paul
>
> >
> >
> >
> >
> >
> >;;; jde-which-func.el --- Print current function in mode line
> >
> >;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc.
> >
> >;; Author: Alex Rezinsky <[EMAIL PROTECTED]>
> >;; Adapted for JDE by Stephane Nicolas <[EMAIL PROTECTED]>
> >;; Keywords: mode-line, imenu, tools
> >
> >;; This file is part of GNU Emacs.
> >
> >;; GNU Emacs is free software; you can redistribute it and/or modify
> >;; it under the terms of the GNU General Public License as
> published by
> >;; the Free Software Foundation; either version 2, or (at
> your option)
> >;; any later version.
> >
> >;; GNU Emacs is distributed in the hope that it will be useful,
> >;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> >;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> >;; GNU General Public License for more details.
> >
> >;; You should have received a copy of the GNU General Public License
> >;; along with GNU Emacs; see the file COPYING. If not, write to the
> >;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
> >;; Boston, MA 02111-1307, USA.
> >
> >;;; Commentary:
> >
> >;; This package prints name of function where your current point is
> >;; located in mode line. It assumes that you work with imenu package
> >;; and imenu--index-alist is up to date.
> >
> >;; KNOWN BUGS
> >;; ----------
> >;; Really this package shows not "function where the current point is
> >;; located now", but "nearest function which defined above
> the current
> >;; point". So if your current point is located after end of function
> >;; FOO but before begin of function BAR, FOO will be
> displayed in mode
> >;; line.
> >
> >;; TODO LIST
> >;; ---------
> >;; 1. Dependence on imenu package should be removed. Separate
> >;; function determination mechanism should be used to
> determine the end
> >;; of a function as well as the beginning of a function.
> >;; 2. This package should be realized with the help of overlay
> >;; properties instead of imenu--index-alist variable.
> >
> >;;; History:
> >
> >;; THANKS TO
> >;; ---------
> >;; Per Abrahamsen <[EMAIL PROTECTED]>
> >;; Some ideas (inserting in mode-line, using of
> post-command hook
> >;; and toggling this mode) have been borrowed from
> his package
> >;; column.el
> >;; Peter Eisenhauer <[EMAIL PROTECTED]>
> >;; Bug fixing in case nested indexes.
> >;; Terry Tateyama <[EMAIL PROTECTED]>
> >;; Suggestion to use find-file-hooks for first imenu
> >;; index building.
> >
> >;;; Code:
> >
> >;; Variables for customization
> >;; ---------------------------
> >;;
> >(defvar jde-which-func-unknown "???"
> > "String to display in the mode line when current function
> is unknown.")
> >
> >(defgroup jde-which-func nil
> > "Mode to display the current function name in the modeline."
> > :group 'tools
> > :version "20.3")
> >
> >(defcustom jde-which-func-modes
> > '(emacs-lisp-mode c-mode c++-mode perl-mode makefile-mode sh-mode
> > fortran-mode jde-mode)
> > "List of major modes for which Which Function mode should be used.
> >For other modes it is disabled. If this is equal to t,
> >then Which Function mode is enabled in any major mode that
> supports it."
> > :group 'jde-which-func
> > :type '(choice (const :tag "All modes" t)
> > (repeat (symbol :tag "Major mode"))))
> >
> >(defcustom jde-which-func-non-auto-modes nil
> > "List of major modes where Which Function mode is inactive
> till Imenu is
> used.
> >This means that Which Function mode won't really do anything
> >until you use Imenu, in these modes. Note that files
> >larger than `jde-which-func-maxout' behave in this way too;
> >Which Function mode doesn't do anything until you use Imenu."
> > :group 'jde-which-func
> > :type '(repeat (symbol :tag "Major mode")))
> >
> >(defcustom jde-which-func-maxout 100000
> > "Don't automatically compute the Imenu menu if buffer is
> this big or
> bigger.
> >Zero means compute the Imenu menu regardless of size."
> > :group 'jde-which-func
> > :type 'integer)
> >
> >(defcustom jde-which-func-format '(" [" jde-which-func-current "]")
> > "Format for displaying the function in the mode line."
> > :group 'jde-which-func
> > :type 'sexp)
> >
> >;;;###autoload
> >(defcustom jde-which-func-mode-global nil
> > "*Toggle `jde-which-func-mode' globally.
> >Setting this variable directly does not take effect;
> >use either \\[customize] or the function `jde-which-func-mode'."
> > :set #'(lambda (symbol value)
> > (jde-which-func-mode (if value 1 0)))
> > :initialize 'custom-initialize-default
> > :type 'boolean
> > :group 'jde-which-func
> > :require 'jde-which-func)
> >
> >;;;###autoload
> >(defcustom jde-which-func-time-out 2
> > "Timeout during which `jde-which-func-current' is
> displayed in mode-line."
> > :type 'integer
> > :group 'jde-which-func
> > :require 'jde-which-func)
> >
> >;;; Code, nothing to customize below here
> >;;; -------------------------------------
> >;;;
> >(require 'imenu)
> >
> >(defvar jde-which-func-current jde-which-func-unknown)
> >(defvar jde-which-func-previous jde-which-func-unknown)
> >(make-variable-buffer-local 'jde-which-func-current)
> >(make-variable-buffer-local 'jde-which-func-previous)
> >
> >(defvar jde-which-func-old-mode-line-format nil)
> >(defvar jde-which-func-mode-timer nil)
> >
> >(defvar jde-which-func-mode nil
> > "Non-nil means display current function name in mode line.
> >This makes a difference only if `jde-which-func-mode-global'
> is non-nil")
> >(make-variable-buffer-local 'jde-which-func-mode)
> >(put 'jde-which-func-mode 'permanent-local t)
> >
> >(add-hook 'find-file-hooks 'jde-which-func-ff-hook t)
> >
> >(defun jde-which-func-ff-hook ()
> > "File find hook for Which Function mode.
> >It creates the Imenu index for the buffer, if necessary."
> > (if (or (eq jde-which-func-modes t) (member major-mode
> jde-which-func-modes))
> > (setq jde-which-func-mode jde-which-func-mode-global)
> > (setq jde-which-func-mode nil))
> >
> > (condition-case nil
> > (if (and jde-which-func-mode
> > (not (member major-mode jde-which-func-non-auto-modes))
> > (or (< buffer-saved-size jde-which-func-maxout)
> > (= jde-which-func-maxout 0)))
> > (setq imenu--index-alist
> > (save-excursion (funcall imenu-create-index-function))))
> > (error
> > (setq jde-which-func-mode nil))))
> >
> >(defun jde-which-func-restore-mode-line (arg)
> > (if jde-which-func-old-mode-line-format
> > (setq mode-line-format jde-which-func-old-mode-line-format))
> > (force-mode-line-update)
> >)
> >
> >(defun jde-which-func-update ()
> > ;; Update the string containing the current function.
> > (if jde-which-func-mode-timer
> > (disable-async-timeout jde-which-func-mode-timer))
> > (condition-case info
> > (progn
> > (if (not (setq jde-which-func-current (jde-which-function)))
> > (setq jde-which-func-current jde-which-func-unknown))
> > (if (not (string= jde-which-func-current
> jde-which-func-previous))
> > (progn
> > (setq mode-line-format 'jde-which-func-format)
> > (force-mode-line-update)
> > (setq jde-which-func-previous jde-which-func-current)))
> > (setq jde-which-func-mode-timer (add-async-timeout
> jde-which-func-time-out 'jde-which-func-restore-mode-line nil)))
> > (error
> > (debug)
> > (remove-hook 'post-command-hook 'jde-which-func-update)
> > (jde-which-func-mode -1) ; Function mode off
> > (message "Error in jde-which-func-update: %s" info))))
> >
> >;; This is the name people would normally expect.
> >;;;###autoload
> >(defalias 'jde-which-function-mode 'jde-which-func-mode)
> >
> >;;;###autoload
> >(defun jde-which-func-mode (&optional arg)
> > "Toggle Which Function mode, globally.
> >When Which Function mode is enabled, the current function name is
> >continuously displayed in the mode line, in certain major modes.
> >
> >With prefix arg, turn Which Function mode on iff arg is positive,
> >and off otherwise."
> > (interactive "P")
> > (if (or (and (null arg) jde-which-func-mode-global)
> > (<= (prefix-numeric-value arg) 0))
> > ;; Turn it off
> > (if jde-which-func-mode-global
> > (progn
> > (remove-hook 'post-command-hook 'jde-which-func-update)
> > (setq jde-which-func-mode-global nil)
> > (setq jde-which-func-mode nil)
> > (jde-which-func-restore-mode-line nil)
> > (force-mode-line-update)))
> > ;;Turn it on
> > (if jde-which-func-mode-global
> > ()
> > (setq jde-which-func-old-mode-line-format mode-line-format)
> > (add-hook 'post-command-hook 'jde-which-func-update)
> > (setq jde-which-func-mode-global t)
> > (setq jde-which-func-mode
> > (or (eq jde-which-func-modes t)
> > (member major-mode jde-which-func-modes))))))
> >
> >(defun jde-which-function-rec (o name min)
> > (cond
> > ((null o)
> > (list name min))
> > ((stringp o)
> > (list (concat name "." o ) min))
> > ((listp o)
> > (if (and (cdr o)
> > (number-or-marker-p (cdr o)))
> > (if (and (> (point) (cdr pair))
> > (or (null min) (< (- (point) (cdr o)) min)))
> > (list (car o) (- (point) (cdr o))))
> >
> > (progn
> > (let ((pair (car-safe o))
> > (rest (cdr-safe o))
> > (temp nil)
> > (class-name nil))
> >
> > (if (stringp pair)
> > (setq class-name pair))
> >
> > (while (or rest pair)
> > (setq temp (jde-which-function-rec pair name min))
> > (if (and
> > (number-or-marker-p (nth 1 temp))
> > (or (null min) (< (nth 1 temp) min)))
> > (progn
> > (setq name (nth 0 temp))
> > (setq min (nth 1 temp))
> > ))
> > (setq pair (car rest))
> > (setq rest (cdr rest)))
> >
> > (if class-name
> > (setq name (concat class-name " : " name)))
> >
> > (list name min)))))))
> >
> >(defun jde-which-function ()
> > "Return current function name based on point.
> >If `imenu--index-alist' does not exist, or is empty or if point
> >is located before first function, returns nil."
> > (and
> > (boundp 'imenu--index-alist)
> > imenu--index-alist
> > (car (jde-which-function-rec imenu--index-alist nil nil))))
> >
> >(provide 'jde-which-func)
> >
> >;; jde-which-func.el ends here
> >
> >
> ------------------------------------------------------------
> HOW TO ASK FOR TECH SUPPORT
>
> When requesting technical support, please generate a problem
> report, using
> the JDE->Help->Submit Problem Report command, and submit this
> report along
> with your help request. The Submit Problem Report command is
> designed to
> gather all the information that someone who does not have
> direct access to
> your system might need to solve your problem. It saves people
> who want to
> help you from having to waste time trying to dig relevant
> information out
> of you. Please note that if you do not get a response to a
> question, it may
> be because you did not provide sufficient information to
> solve the problem.
> Filing a problem report is the best way to ensure that you
> get a response.
>
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> JDE website: http://sunsite.auc.dk/jde/
>
> JDE mailing list archive:
> http://www.mail-archive.com/[email protected]/maillist.html
>
