diff options
| author | Chong Yidong | 2010-07-01 01:32:01 -0400 |
|---|---|---|
| committer | Chong Yidong | 2010-07-01 01:32:01 -0400 |
| commit | b32d1614abd91e784a95a34b9979b7ec0c541c9e (patch) | |
| tree | bb2f0b4a8efe3942b58aa5f0e913c00e18a1b185 | |
| parent | c1ef4455eaa816d8953d0c7cbef498cc727d4d34 (diff) | |
| download | emacs-b32d1614abd91e784a95a34b9979b7ec0c541c9e.tar.gz emacs-b32d1614abd91e784a95a34b9979b7ec0c541c9e.zip | |
* ruler-mode.el (ruler--save-header-line-format): Fix typos.
| -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 |