Mercurial > emacs

changeset 77293:e262afb73c6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 739c769399f7
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
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