mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-24 13:57:36 +00:00
Improve previous fix by only setting header-line-format in diary-mode.
This commit is contained in:
parent
253b50b479
commit
e8bc96a3c6
2 changed files with 5 additions and 4 deletions
|
|
@ -3,8 +3,8 @@
|
|||
* calendar/diary-lib.el (diary-header-line-format): Add a custom
|
||||
:set function.
|
||||
(diary-list-entries): Only switch to diary-mode from
|
||||
default-major-mode (reverts 2007-03-21 change). Otherwise, set
|
||||
header-line-format, in case of any customization.
|
||||
default-major-mode (reverts 2007-03-21 change). Otherwise, if in
|
||||
diary-mode set header-line-format, in case of any customization.
|
||||
|
||||
2007-04-18 Levin Du <zslevin@gmail.com> (tiny change)
|
||||
|
||||
|
|
|
|||
|
|
@ -446,8 +446,9 @@ If LIST-ONLY is non-nil don't modify or display the buffer, only return a list."
|
|||
;; 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
|
||||
|
|
|
|||
Loading…
Reference in a new issue