Mercurial > emacs
comparison lisp/ruler-mode.el @ 109090:4de0b34e2c2e
* 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 | 9e474f641740 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 109089:bd58a72bb9bb | 109090:4de0b34e2c2e |
|---|---|
| 555 Use the command `ruler-mode' to change this variable.") | 555 Use the command `ruler-mode' to change this variable.") |
| 556 (make-variable-buffer-local 'ruler-mode) | 556 (make-variable-buffer-local 'ruler-mode) |
| 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 |
| 572 "Toggle Ruler mode. | 571 "Toggle Ruler mode. |
| 573 In Ruler mode, Emacs displays a ruler in the header line." | 572 In Ruler mode, Emacs displays a ruler in the header line." |