# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 995035027 0
# Node ID d215f2e1339715896820fff1e4412df2770c2aca
# Parent  f4969ed98b9c9011a8bbcec669829df2495d5a15
(which-func-mode, which-func-ff-hook)
(which-function-mode): Remove references to
which-func-mode-global.

diff -r f4969ed98b9c -r d215f2e13397 lisp/which-func.el
--- 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)