Mercurial > emacs
diff lisp/calendar/diary-lib.el @ 77293:e262afb73c6e
Improve previous fix by only setting header-line-format in diary-mode.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 18 Apr 2007 06:43:09 +0000 |
parents | c15c7123019d |
children | 93e11478c954 85f6cb7c9558 e6fdae9180d4 |
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el Wed Apr 18 04:06:37 2007 +0000 +++ b/lisp/calendar/diary-lib.el Wed Apr 18 06:43:09 2007 +0000 @@ -446,8 +446,9 @@ ;; clobbers file local variables. ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-03/msg00363.html ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-04/msg00404.html - (setq header-line-format (and diary-header-line-flag - diary-header-line-format))) + (if (eq major-mode 'diary-mode) + (setq header-line-format (and diary-header-line-flag + diary-header-line-format)))) ;; d-s-p is passed to the diary display function. (let ((diary-saved-point (point))) (save-excursion