diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-02 23:04:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-02 23:04:39 +0000 |
| commit | c5059c2cf2ca8505d084574e014053659d62e3e0 (patch) | |
| tree | 45c4e203e1ccabc98364a860a412566b7135cd52 /lisp | |
| parent | 5303ab61e0fbf40ed6ec7f421dbd767d5276ac1e (diff) | |
| download | emacs-c5059c2cf2ca8505d084574e014053659d62e3e0.tar.gz | |
(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." (defun which-func-update () ;; Update the string containing the current function. (condition-case info - (progn - (if (not (setq which-func-current (which-function))) - (setq which-func-current which-func-unknown)) - (if (not (string= which-func-current which-func-previous)) - (progn - (force-mode-line-update) - (setq which-func-previous which-func-current)))) + (progn + (if (not (setq which-func-current (which-function))) + (setq which-func-current which-func-unknown)) + (if (not (string= which-func-current which-func-previous)) + (progn + (force-mode-line-update) + (setq which-func-previous which-func-current)))) (error (ding) (remove-hook 'post-command-hook 'which-func-update) (which-func-mode -1) ; Function mode off - (message "Error in which-func-update: %s" info))) + (message "Error in which-func-update: %s" info)))) (defun which-func-mode (&optional arg) "Toggle Which Function mode, globally. |