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>
* 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 ()
"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."
(when enable
(when (and (not ruler-mode)
(local-variable-p 'header-line-format)
(not (local-variable-p 'ruler-mode-header-line-format-old)))
(set (make-local-variable 'ruler-mode-header-line-format-old)
header-line-format))
(setq header-line-format ruler-mode-header-line-format)))
(when (and (not ruler-mode)
(local-variable-p 'header-line-format)
(not (local-variable-p 'ruler-mode-header-line-format-old)))
(set (make-local-variable 'ruler-mode-header-line-format-old)
header-line-format))
(setq header-line-format ruler-mode-header-line-format))
;;;###autoload
(define-minor-mode ruler-mode