aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-07-13 14:37:39 +0000
committerGerd Moellmann2001-07-13 14:37:39 +0000
commite0f82ad8c8fae8913faf3ec2e4b1a4688c625232 (patch)
treea907d2048515d0eaf7f2e6a3854533df5aed971b
parentaa11456f41b3cbf067b689f7b66c18c37ec080ac (diff)
downloademacs-e0f82ad8c8fae8913faf3ec2e4b1a4688c625232.tar.gz
emacs-e0f82ad8c8fae8913faf3ec2e4b1a4688c625232.zip
(which-func-mode, which-func-ff-hook)
(which-function-mode): Remove references to which-func-mode-global.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/which-func.el11
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 596f13aef76..1ff3b7dfd67 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
12001-07-13 Gerd Moellmann <gerd@gnu.org> 12001-07-13 Gerd Moellmann <gerd@gnu.org>
2 2
3 * which-func.el (which-func-mode, which-func-ff-hook)
4 (which-function-mode): Remove references to
5 which-func-mode-global.
6
3 * calendar/cal-islam.el (calendar-goto-islamic-date): Add 7 * calendar/cal-islam.el (calendar-goto-islamic-date): Add
4 autoload cookie. 8 autoload cookie.
5 9
diff --git a/lisp/which-func.el b/lisp/which-func.el
index 0d4dfd6b93d..1bcd0ea97c9 100644
--- a/lisp/which-func.el
+++ b/lisp/which-func.el
@@ -1,6 +1,6 @@
1;;; which-func.el --- Print current function in mode line 1;;; which-func.el --- Print current function in mode line
2 2
3;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc. 3;; Copyright (C) 1994, 1997, 1998, 2001 Free Software Foundation, Inc.
4 4
5;; Author: Alex Rezinsky <alexr@msil.sps.mot.com> 5;; Author: Alex Rezinsky <alexr@msil.sps.mot.com>
6;; (doesn't seem to be responsive any more) 6;; (doesn't seem to be responsive any more)
@@ -127,7 +127,7 @@ and you want to simplify them for the mode line
127 127
128(defvar which-func-mode nil 128(defvar which-func-mode nil
129 "Non-nil means display current function name in mode line. 129 "Non-nil means display current function name in mode line.
130This makes a difference only if `which-func-mode-global' is non-nil") 130This makes a difference only if `which-function-mode' is non-nil")
131(make-variable-buffer-local 'which-func-mode) 131(make-variable-buffer-local 'which-func-mode)
132;;(put 'which-func-mode 'permanent-local t) 132;;(put 'which-func-mode 'permanent-local t)
133 133
@@ -137,8 +137,9 @@ This makes a difference only if `which-func-mode-global' is non-nil")
137 "File find hook for Which Function mode. 137 "File find hook for Which Function mode.
138It creates the Imenu index for the buffer, if necessary." 138It creates the Imenu index for the buffer, if necessary."
139 (setq which-func-mode 139 (setq which-func-mode
140 (and which-func-mode-global 140 (and which-function-mode
141 (or (eq which-func-modes t) (member major-mode which-func-modes)))) 141 (or (eq which-func-modes t)
142 (member major-mode which-func-modes))))
142 143
143 (condition-case nil 144 (condition-case nil
144 (if (and which-func-mode 145 (if (and which-func-mode
@@ -177,7 +178,7 @@ continuously displayed in the mode line, in certain major modes.
177With prefix ARG, turn Which Function mode on iff arg is positive, 178With prefix ARG, turn Which Function mode on iff arg is positive,
178and off otherwise." 179and off otherwise."
179 :global t :group 'which-func 180 :global t :group 'which-func
180 (if which-func-mode-global 181 (if which-function-mode
181 ;;Turn it on 182 ;;Turn it on
182 (progn 183 (progn
183 (add-hook 'post-command-idle-hook 'which-func-update) 184 (add-hook 'post-command-idle-hook 'which-func-update)