mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(which-func-cleanup-function): New variable.

Browse Source 
(which-function): Call that function.
This commit is contained in:
Richard M. Stallman 1999-08-29 19:05:44 +00:00
parent 848e837103
commit 1e68f8d0fe
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/which-func.el
View File

@ -113,6 +113,17 @@ use either \\[customize] or the function `which-func-mode'."
:group 'which-func :group 'which-func
:require 'which-func) :require 'which-func)
(defvar which-func-cleanup-function nil
"Function to transform a string before displaying it in the mode line.
The function is called with one argument, the string to display.
Its return value is displayed in the modeline.
If nil, no function is called. The default value is nil.
This feature can be useful if Imenu is set up to make more
detailed entries (e.g., containing the argument list of a function),
and you want to simplify them for the mode line
\(e.g., removing the parameter list to just have the function name.)")
;;; Code, nothing to customize below here ;;; Code, nothing to customize below here
;;; ------------------------------------- ;;; -------------------------------------
;;; ;;;
@ -211,7 +222,10 @@ is located before first function, returns nil."
(setq name (car pair)) (setq name (car pair))
(setq pair (car-safe rest)) (setq pair (car-safe rest))
(setq rest (cdr-safe rest))) (setq rest (cdr-safe rest)))
name))) (and name
(if which-func-cleanup-function
(funcall which-func-cleanup-function name)
name)))))
(provide 'which-func) (provide 'which-func)