diff options
| author | Richard M. Stallman | 1998-01-02 23:04:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-02 23:04:39 +0000 |
| commit | c5059c2cf2ca8505d084574e014053659d62e3e0 (patch) | |
| tree | 45c4e203e1ccabc98364a860a412566b7135cd52 /lisp | |
| parent | 5303ab61e0fbf40ed6ec7f421dbd767d5276ac1e (diff) | |
| download | emacs-c5059c2cf2ca8505d084574e014053659d62e3e0.tar.gz emacs-c5059c2cf2ca8505d084574e014053659d62e3e0.zip | |
(which-func-update): Fix paren error.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/which-func.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/which-func.el b/lisp/which-func.el index c3fa3b82912..1de0ad5e5ae 100644 --- a/lisp/which-func.el +++ b/lisp/which-func.el | |||
| @@ -129,18 +129,18 @@ It creates the Imenu index for the buffer, if necessary." | |||
| 129 | (defun which-func-update () | 129 | (defun which-func-update () |
| 130 | ;; Update the string containing the current function. | 130 | ;; Update the string containing the current function. |
| 131 | (condition-case info | 131 | (condition-case info |
| 132 | (progn | 132 | (progn |
| 133 | (if (not (setq which-func-current (which-function))) | 133 | (if (not (setq which-func-current (which-function))) |
| 134 | (setq which-func-current which-func-unknown)) | 134 | (setq which-func-current which-func-unknown)) |
| 135 | (if (not (string= which-func-current which-func-previous)) | 135 | (if (not (string= which-func-current which-func-previous)) |
| 136 | (progn | 136 | (progn |
| 137 | (force-mode-line-update) | 137 | (force-mode-line-update) |
| 138 | (setq which-func-previous which-func-current)))) | 138 | (setq which-func-previous which-func-current)))) |
| 139 | (error | 139 | (error |
| 140 | (ding) | 140 | (ding) |
| 141 | (remove-hook 'post-command-hook 'which-func-update) | 141 | (remove-hook 'post-command-hook 'which-func-update) |
| 142 | (which-func-mode -1) ; Function mode off | 142 | (which-func-mode -1) ; Function mode off |
| 143 | (message "Error in which-func-update: %s" info))) | 143 | (message "Error in which-func-update: %s" info)))) |
| 144 | 144 | ||
| 145 | (defun which-func-mode (&optional arg) | 145 | (defun which-func-mode (&optional arg) |
| 146 | "Toggle Which Function mode, globally. | 146 | "Toggle Which Function mode, globally. |