Mercurial > emacs

changeset 109090:4de0b34e2c2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* ruler-mode.el (ruler--save-header-line-format): Fix typos.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 01 Jul 2010 01:32:01 -0400
parents bd58a72bb9bb
children b4da23aa9b59 52a665d72788
files lisp/ChangeLog lisp/ruler-mode.el
diffstat 2 files changed, 11 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Jun 30 20:14:17 2010 -0400
+++ b/lisp/ChangeLog	Thu Jul 01 01:32:01 2010 -0400
@@ -1,3 +1,7 @@
+2010-07-01  Chong Yidong  <cyd@stupidchicken.com>
+
+	* ruler-mode.el (ruler--save-header-line-format): Fix typos.
+
 2010-06-30  Chong Yidong  <cyd@stupidchicken.com>
 
 	* frame.el (make-frame): Add default-frame-alist to the PARAMETERS
--- a/lisp/ruler-mode.el	Wed Jun 30 20:14:17 2010 -0400
+++ b/lisp/ruler-mode.el	Thu Jul 01 01:32:01 2010 -0400
@@ -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