# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 883782279 0
# Node ID b46523ef0e0a5a04058c8007b61b89fd64d0c508
# Parent  763c253911c3fd9ad826f2b42d263ae553332f98
(which-func-update): Fix paren error.

diff -r 763c253911c3 -r b46523ef0e0a lisp/which-func.el
--- a/lisp/which-func.el	Fri Jan 02 21:48:33 1998 +0000
+++ b/lisp/which-func.el	Fri Jan 02 23:04:39 1998 +0000
@@ -129,18 +129,18 @@
 (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.