Mercurial > emacs

changeset 20573:b46523ef0e0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(which-func-update): Fix paren error.
author Richard M. Stallman <rms@gnu.org>
date Fri, 02 Jan 1998 23:04:39 +0000
parents 763c253911c3
children 928b9aff1e64
files lisp/which-func.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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.