mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

* ruler-mode.el (ruler--save-header-line-format): Fix typos.

Browse Source
This commit is contained in:
Chong Yidong 2010-07-01 01:32:01 -04:00
parent c1ef4455ea
commit b32d1614ab
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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> 2010-06-30 Chong Yidong <cyd@stupidchicken.com>
* frame.el (make-frame): Add default-frame-alist to the PARAMETERS * frame.el (make-frame): Add default-frame-alist to the PARAMETERS

15
lisp/ruler-mode.el
View File

@ -557,15 +557,14 @@ Use the command `ruler-mode' to change this variable.")
(defun ruler--save-header-line-format () (defun ruler--save-header-line-format ()
"Install the header line format for Ruler mode. "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." format first."
(when enable (when (and (not ruler-mode)
(when (and (not ruler-mode) (local-variable-p 'header-line-format)
(local-variable-p 'header-line-format) (not (local-variable-p 'ruler-mode-header-line-format-old)))
(not (local-variable-p 'ruler-mode-header-line-format-old))) (set (make-local-variable 'ruler-mode-header-line-format-old)
(set (make-local-variable 'ruler-mode-header-line-format-old) header-line-format))
header-line-format)) (setq header-line-format ruler-mode-header-line-format))
(setq header-line-format ruler-mode-header-line-format)))
;;;###autoload ;;;###autoload
(define-minor-mode ruler-mode (define-minor-mode ruler-mode