diff options
| author | Gerd Moellmann | 2001-07-13 14:37:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-07-13 14:37:39 +0000 |
| commit | e0f82ad8c8fae8913faf3ec2e4b1a4688c625232 (patch) | |
| tree | a907d2048515d0eaf7f2e6a3854533df5aed971b | |
| parent | aa11456f41b3cbf067b689f7b66c18c37ec080ac (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/which-func.el | 11 |
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 @@ | |||
| 1 | 2001-07-13 Gerd Moellmann <gerd@gnu.org> | 1 | 2001-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. |
| 130 | This makes a difference only if `which-func-mode-global' is non-nil") | 130 | This 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. |
| 138 | It creates the Imenu index for the buffer, if necessary." | 138 | It 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. | |||
| 177 | With prefix ARG, turn Which Function mode on iff arg is positive, | 178 | With prefix ARG, turn Which Function mode on iff arg is positive, |
| 178 | and off otherwise." | 179 | and 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) |