diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ruler-mode.el | 15 |
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 @@ | |||
| 1 | 2010-07-01 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * ruler-mode.el (ruler--save-header-line-format): Fix typos. | ||
| 4 | |||
| 1 | 2010-06-30 Chong Yidong <cyd@stupidchicken.com> | 5 | 2010-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. |
| 560 | Unless if Ruler mode is already enabled, save the old header line | 560 | Unless Ruler mode is already enabled, save the old header line |
| 561 | format first." | 561 | format 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 |