Navigation

diary-lib.el

Timestamp:

2005年11月26日 08時33分26秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

r3939	r3988
379	379	(revert-buffer t t))))
380	380	;; Setup things like the header-line-format and invisibility-spec.
381		(when (eq major-mode ~~'fundamental~~-mode) (diary-mode))
	381	(when (eq major-mode default-major-mode) (diary-mode))
382	382	;; d-s-p is passed to the diary display function.
383	383	(let ((diary-saved-point (point)))
…	…
453	453	(while (looking-at " \\\|\^I")
454	454	(re-search-forward "\^M\\\|\n" nil 'move))
455		(unless (eobp) (backward-char 1))
	455	(unless (and (eobp) (not (bolp)))
	456	(backward-char 1))
456	457	(unless list-only
457	458	(remove-overlays date-start (point)
…	…
774	775	(with-current-buffer (or (find-buffer-visiting d-file)
775	776	(find-file-noselect d-file t))
776		(when (eq major-mode ~~'fundamental~~-mode) (diary-mode))
	777	(when (eq major-mode default-major-mode) (diary-mode))
777	778	(diary-unhide-everything)
778	779	(display-buffer (current-buffer)))))
…	…
877	878	(with-current-buffer (find-file-noselect (diary-check-diary-file) t)
878	879	(save-excursion
879		(when (eq major-mode ~~'fundamental~~-mode) (diary-mode))
	880	(when (eq major-mode default-major-mode) (diary-mode))
880	881	(setq mark-diary-entries-in-calendar t)
881	882	(message "Marking diary entries...")
…	…
1672	1673	(let ((pop-up-frames (window-dedicated-p (selected-window))))
1673	1674	(find-file-other-window (substitute-in-file-name (or file diary-file))))
1674		(when (eq major-mode ~~'fundamental~~-mode) (diary-mode))
	1675	(when (eq major-mode default-major-mode) (diary-mode))
1675	1676	(widen)
1676	1677	(diary-unhide-everything)