[Emacs-diffs] /srv/bzr/emacs/trunk r100676: * ruler-mode.el (ruler--save-header-line-format): Fix typos.

[Chong Yidong]

------------------------------------------------------------
revno: 100676
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2010-07-01 01:32:01 -0400
message:
  * ruler-mode.el (ruler--save-header-line-format): Fix typos.
modified:
  lisp/ChangeLog
  lisp/ruler-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-01 00:14:17 +0000
+++ b/lisp/ChangeLog    2010-07-01 05:32:01 +0000
@@ -1,3 +1,7 @@
+2010-07-01  Chong Yidong  <address@hidden>
+
+       * ruler-mode.el (ruler--save-header-line-format): Fix typos.
+
 2010-06-30  Chong Yidong  <address@hidden>
 
        * frame.el (make-frame): Add default-frame-alist to the PARAMETERS

=== modified file 'lisp/ruler-mode.el'
--- a/lisp/ruler-mode.el        2010-06-30 22:43:52 +0000
+++ b/lisp/ruler-mode.el        2010-07-01 05:32:01 +0000
@@ -557,15 +557,14 @@
 
 (defun ruler--save-header-line-format ()
   "Install the header line format for Ruler mode.
-Unless if Ruler mode is already enabled, save the old header line
+Unless Ruler mode is already enabled, save the old header line
 format first."
-  (when enable
-    (when (and (not ruler-mode)
-              (local-variable-p 'header-line-format)
-              (not (local-variable-p 'ruler-mode-header-line-format-old)))
-      (set (make-local-variable 'ruler-mode-header-line-format-old)
-          header-line-format))
-    (setq header-line-format ruler-mode-header-line-format)))
+  (when (and (not ruler-mode)
+            (local-variable-p 'header-line-format)
+            (not (local-variable-p 'ruler-mode-header-line-format-old)))
+    (set (make-local-variable 'ruler-mode-header-line-format-old)
+        header-line-format))
+  (setq header-line-format ruler-mode-header-line-format))
 
 ;;;###autoload
 (define-minor-mode ruler-mode