764 |
(pop-up-frames (window-dedicated-p (selected-window)))) |
(pop-up-frames (window-dedicated-p (selected-window)))) |
765 |
(with-current-buffer (or (find-buffer-visiting d-file) |
(with-current-buffer (or (find-buffer-visiting d-file) |
766 |
(find-file-noselect d-file t)) |
(find-file-noselect d-file t)) |
767 |
(diary-unhide-everything)))) |
(diary-unhide-everything) |
768 |
|
(display-buffer (current-buffer))))) |
769 |
|
|
770 |
(defcustom diary-mail-addr |
(defcustom diary-mail-addr |
771 |
(if (boundp 'user-mail-address) user-mail-address "") |
(if (boundp 'user-mail-address) user-mail-address "") |