Mercurial > emacs
changeset 38405:d215f2e13397
(which-func-mode, which-func-ff-hook)
(which-function-mode): Remove references to
which-func-mode-global.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 13 Jul 2001 14:37:07 +0000 |
| parents | f4969ed98b9c |
| children | ab9e41f31336 |
| files | lisp/which-func.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/which-func.el Fri Jul 13 14:02:02 2001 +0000 +++ b/lisp/which-func.el Fri Jul 13 14:37:07 2001 +0000 @@ -1,6 +1,6 @@ ;;; which-func.el --- Print current function in mode line -;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1997, 1998, 2001 Free Software Foundation, Inc. ;; Author: Alex Rezinsky <alexr@msil.sps.mot.com> ;; (doesn't seem to be responsive any more) @@ -127,7 +127,7 @@ (defvar which-func-mode nil "Non-nil means display current function name in mode line. -This makes a difference only if `which-func-mode-global' is non-nil") +This makes a difference only if `which-function-mode' is non-nil") (make-variable-buffer-local 'which-func-mode) ;;(put 'which-func-mode 'permanent-local t) @@ -137,8 +137,9 @@ "File find hook for Which Function mode. It creates the Imenu index for the buffer, if necessary." (setq which-func-mode - (and which-func-mode-global - (or (eq which-func-modes t) (member major-mode which-func-modes)))) + (and which-function-mode + (or (eq which-func-modes t) + (member major-mode which-func-modes)))) (condition-case nil (if (and which-func-mode @@ -177,7 +178,7 @@ With prefix ARG, turn Which Function mode on iff arg is positive, and off otherwise." :global t :group 'which-func - (if which-func-mode-global + (if which-function-mode ;;Turn it on (progn (add-hook 'post-command-idle-hook 'which-func-update)