Lines Matching +defs:window +defs:buffer
64 ;;; You can change the way the appointment window is created/deleted by
67 ;;; appt-disp-window-function
69 ;;; appt-delete-window-function
85 "*Non-nil means check for appointments in the diary buffer.
110 This variable is only relevant if `appt-msg-window' is nil."
117 (defcustom appt-msg-window t
118 "*Non-nil means display appointment message in another window.
123 (make-obsolete-variable 'appt-msg-window 'appt-display-format "22.1")
129 window - use a separate window
135 of the (obsolete) variables `appt-msg-window' and `appt-visible'."
137 (const :tag "Separate window" window)
155 Only relevant if reminders are to be displayed in their own window."
171 (defcustom appt-disp-window-function 'appt-disp-window
172 "Function called to display appointment window.
173 Only relevant if reminders are being displayed in a window."
174 :type '(choice (const appt-disp-window)
178 (defcustom appt-delete-window-function 'appt-delete-window
179 "Function called to remove appointment window and buffer.
180 Only relevant if reminders are being displayed in a window."
181 :type '(choice (const appt-delete-window)
188 (defconst appt-buffer-name " *appt-buf*"
189 "Name of the appointments buffer.")
233 ;; vars appt-msg-window and appt-visible are dropped.
236 (cond (appt-msg-window 'window)
239 (cond ((eq appt-display-format 'window)
240 (funcall appt-disp-window-function
248 appt-delete-window-function))
292 Display the diary buffer when the appointment list is
296 displayed in a window:
301 `appt-disp-window-function'
302 Function called to display appointment window.
304 `appt-delete-window-function'
305 Function called to remove appointment window and buffer."
347 (d-buff (find-buffer-visiting
350 (if d-buff ; Diary buffer exists.
351 (with-current-buffer d-buff
354 ;; If the diary buffer existed before this command,
357 ;; Displays the diary buffer.
360 (setq d-buff (find-buffer-visiting
362 (kill-buffer d-buff)))))
435 (defun appt-disp-window (min-to-app new-time appt-msg)
436 "Display appointment message APPT-MSG in a separate buffer.
442 ;; before splitting the window.
444 (if (equal (selected-window) (minibuffer-window))
445 (if (other-window 1)
446 (select-window (other-window 1))
450 (let ((this-window (selected-window))
451 (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name))))
455 (display-buffer appt-disp-buf)
456 (unless (or (special-display-p (buffer-name appt-disp-buf))
457 (same-window-p (buffer-name appt-disp-buf)))
458 ;; By default, split the bottom window and use the lower part.
459 (appt-select-lowest-window)
460 ;; Split the window, unless it's too small to do so.
461 (when (>= (window-height) (* 2 window-min-height))
462 (select-window (split-window))))
463 (switch-to-buffer appt-disp-buf))
466 (erase-buffer)
468 (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t))
469 (set-buffer-modified-p nil)
471 (select-window this-window)))
473 (defun appt-delete-window ()
475 Usually just deletes the appointment buffer."
476 (let ((window (get-buffer-window appt-buffer-name t)))
477 (and window
478 (or (eq window (frame-root-window (window-frame window)))
479 (delete-window window))))
480 (kill-buffer appt-buffer-name)
484 (defun appt-select-lowest-window ()
485 "Select the lowest window on the frame."
486 (let ((lowest-window (selected-window))
487 (bottom-edge (nth 3 (window-edges))))
489 (let ((next-bottom-edge (nth 3 (window-edges w))))
492 lowest-window w)))))
493 (select-window lowest-window)))
539 "Update the appointments list from today's diary buffer.
664 "If the current buffer is visiting the diary, update appointments.
666 (and (string-equal buffer-file-name (expand-file-name diary-file))