aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2010-07-01 01:32:01 -0400
committerChong Yidong2010-07-01 01:32:01 -0400
commitb32d1614abd91e784a95a34b9979b7ec0c541c9e (patch)
treebb2f0b4a8efe3942b58aa5f0e913c00e18a1b185
parentc1ef4455eaa816d8953d0c7cbef498cc727d4d34 (diff)
downloademacs-b32d1614abd91e784a95a34b9979b7ec0c541c9e.tar.gz
emacs-b32d1614abd91e784a95a34b9979b7ec0c541c9e.zip
* ruler-mode.el (ruler--save-header-line-format): Fix typos.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/ruler-mode.el15
2 files changed, 11 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0184aa2dd94..ea4ac607970 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12010-07-01 Chong Yidong <cyd@stupidchicken.com>
2
3 * ruler-mode.el (ruler--save-header-line-format): Fix typos.
4
12010-06-30 Chong Yidong <cyd@stupidchicken.com> 52010-06-30 Chong Yidong <cyd@stupidchicken.com>
2 6
3 * frame.el (make-frame): Add default-frame-alist to the PARAMETERS 7 * frame.el (make-frame): Add default-frame-alist to the PARAMETERS
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index c8ae2afc0d5..1c809bbd7e0 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -557,15 +557,14 @@ Use the command `ruler-mode' to change this variable.")
557 557
558(defun ruler--save-header-line-format () 558(defun ruler--save-header-line-format ()
559 "Install the header line format for Ruler mode. 559 "Install the header line format for Ruler mode.
560Unless if Ruler mode is already enabled, save the old header line 560Unless Ruler mode is already enabled, save the old header line
561format first." 561format first."
562 (when enable 562 (when (and (not ruler-mode)
563 (when (and (not ruler-mode) 563 (local-variable-p 'header-line-format)
564 (local-variable-p 'header-line-format) 564 (not (local-variable-p 'ruler-mode-header-line-format-old)))
565 (not (local-variable-p 'ruler-mode-header-line-format-old))) 565 (set (make-local-variable 'ruler-mode-header-line-format-old)
566 (set (make-local-variable 'ruler-mode-header-line-format-old) 566 header-line-format))
567 header-line-format)) 567 (setq header-line-format ruler-mode-header-line-format))
568 (setq header-line-format ruler-mode-header-line-format)))
569 568
570;;;###autoload 569;;;###autoload
571(define-minor-mode ruler-mode 570(define-minor-mode ruler-mode