Lines Matching +defs:article +defs:window
399 org-optimize-window-after-visibility-change)
488 This can be used to recenter the window to show as much of the structure
1023 (file . find-file-other-window))
1026 this link in another window or frame. This variable can be used to
1036 `find-file-other-window'
1040 another window."
1046 (const vm-visit-folder-other-window)
1055 (const find-file-other-window)
1063 another window. When this option is set, the other window actually displays
1373 A separate window will then pop up and allow you to type a note.
1509 "Non-nil means, make the calendar window follow timestamp changes.
1510 When a timestamp is modified and the calendar window is visible, it will be
1554 This variable can also have the value `expert'. In this case, the window
1849 "The initial value of follwo-mode in a newly created agenda window."
1858 (defcustom org-agenda-window-setup 'reorganize-frame
1862 current-window Show agenda in the current window, keeping all other windows.
1864 other-window Use `switch-to-buffer-other-window' to display agenda.
1866 window and the agenda.
1870 (const current-window)
1872 (const other-window)
1876 "Non-nil means, restore window configuration open exiting agenda.
1877 Before the window configuration is changed for displaying the agenda,
1880 `org-agenda-window-setup' is `other-frame', the value of this
1885 (defcustom org-indirect-buffer-display 'other-window
1890 current-window Display in the current window
1891 other-window Just display in another window.
1897 (const :tag "In current window" current-window)
1898 (const :tag "In current frame, other window" other-window)
3284 (defvar org-window-configuration nil
3285 "Used in various places to store a window configuration.")
3311 (defvar gnus-article-current)
4036 (delq 'org-optimize-window-after-visibility-change
4208 (defun org-optimize-window-after-visibility-change (state)
4209 "Adjust the window after a change in outline visibility.
4211 (when (get-buffer-window (current-buffer))
4222 (pos-visible-in-window-p
4227 Optional argument N means, put the headline into the Nth line of the window."
4235 (defvar org-goto-window-configuration nil)
4300 (save-window-excursion
4305 (shrink-window-if-larger-than-buffer (get-buffer-window "*Help*"))
4325 ;; and that it is impossible to switch to another window.
4390 (cwin (selected-window))
4424 ((eq org-indirect-buffer-display 'current-window)
4426 ((eq org-indirect-buffer-display 'other-window)
4434 (and (window-live-p cwin) (select-window cwin))))
5938 (winstart (window-start))
6082 (set-window-start (selected-window) winstart 'noforce)
6943 "Edit table field in a different window.
6957 (cw (current-window-configuration))
6959 (switch-to-buffer-other-window "*Org tmp*")
6971 (org-set-local 'org-window-configuration cw)
6980 (cw org-window-configuration)
6988 (set-window-configuration cw)
6990 (select-window (get-buffer-window (marker-buffer pos)))
7633 (setq bw (get-buffer-window "*Substitution History*"))
7634 (shrink-window-if-larger-than-buffer bw)
7640 (delete-window bw)
7951 (wc (current-window-configuration))
7953 (switch-to-buffer-other-window "*Edit Formulas*")
7960 (org-set-local 'org-window-configuration wc)
7979 (let ((win (selected-window)))
7984 (select-window win)))))
8003 (set-window-configuration org-window-configuration)
8004 (select-window (get-buffer-window (marker-buffer pos)))
8020 (set-window-configuration org-window-configuration)
8021 (select-window (get-buffer-window (marker-buffer pos)))
8075 (win (selected-window))
8103 (if (get-buffer-window (marker-buffer pos))
8104 (select-window (get-buffer-window (marker-buffer pos)))
8105 (switch-to-buffer-other-window (get-buffer-window
8175 (when (or (not (pos-visible-in-window-p min))
8176 (not (pos-visible-in-window-p max)))
8178 (set-window-start (selected-window) (point-at-bol))
8180 (select-window win))))
8197 "Move cursor one line up in the window showing the table."
8202 "Move cursor one line down in the window showing the table."
8207 "Move cursor one field backward in the window showing the table."
8212 "Move cursor one field forward in the window showing the table."
8217 "Move the cursor in the window shoinw the table.
8220 (pos org-pos) (win (selected-window)) p)
8221 (select-window (get-buffer-window (marker-buffer org-pos)))
8229 (select-window win)))
8233 (let ((other-window-scroll-buffer (marker-buffer org-pos)))
8234 (scroll-other-window N)))
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9169 "#" (number-to-string article))))))
9592 (defvar org-window-config-before-follow-link nil
9593 "The window configuration before following a link.
9607 (setq org-window-config-before-follow-link (current-window-configuration))
9679 (switch-to-buffer-other-window
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
9820 the window configuration before `org-open-at-point' was called using:
9822 (set-window-configuration org-window-config-before-follow-link)")
9945 (let ((cwin (selected-window)) win beg end)
9946 (when (setq win (get-buffer-window "*Occur*"))
9947 (select-window win))
9955 (select-window cwin))))
10048 (delete-window (get-buffer-window "*BBDB*"))
10062 (defun org-follow-gnus-link (&optional group article)
10067 (cond ((and group article)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10128 (save-window-excursion
10136 (or article "")))
10165 (save-window-excursion
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
10292 ;; Restore the window configuration because we just use the web link
10293 (set-window-configuration org-window-config-before-follow-link)
10296 (recenter 0)) ; Move entry start to beginning of window
10359 (save-window-excursion
10870 (if (get-buffer-window "*Completions*")
10871 (delete-window (get-buffer-window "*Completions*")))
11159 (defvar org-log-note-window-configuration nil)
11181 "Pop up a window for taking a note, and add this note later at point."
11183 (setq org-log-note-window-configuration (current-window-configuration))
11188 (switch-to-buffer-other-window "*Org Note*")
11235 (set-window-configuration org-log-note-window-configuration)
11703 (move-to-column (- (window-width) 19) t)
11729 (ncol (/ (- (window-width) 4) fwidth))
11752 (save-window-excursion
11756 (split-window-vertically)
11757 (switch-to-buffer-other-window (get-buffer-create " *Org tags*")))
11805 (if (and (not expert) (fboundp 'fit-window-to-buffer))
11806 (fit-window-to-buffer))
11812 (if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi")))
11826 (split-window-vertically)
11827 (switch-to-buffer-other-window " *Org tags*")
11828 (and (fboundp 'fit-window-to-buffer)
11829 (fit-window-to-buffer))))
12025 (save-window-excursion
12117 "Eval FORM in the calendar window and return to current window.
12119 (let ((sw (selected-window)))
12120 (select-window (get-buffer-window "*Calendar*"))
12127 (select-window sw)))
12137 (if (active-minibuffer-window) (exit-minibuffer))))
12251 (if (active-minibuffer-window) (exit-minibuffer))))
12482 ;; Try to recenter the calendar window, if any
12484 (get-buffer-window "*Calendar*" t)
12490 (let* ((win (selected-window))
12491 (cwin (get-buffer-window "*Calendar*" t))
12494 (select-window cwin)
12497 (select-window win))))
13072 ["Go To (other window)" org-agenda-goto t]
13073 ["Go To (this window)" org-agenda-switch-to t]
13256 (save-window-excursion
13258 (switch-to-buffer-other-window " *Agenda Commands*")
13297 (if (fboundp 'fit-window-to-buffer) (fit-window-to-buffer))
13430 (defun org-fit-agenda-window ()
13431 "Fit the window to the buffer size."
13432 (and (memq org-agenda-window-setup '(reorganize-frame))
13433 (fboundp 'fit-window-to-buffer)
13434 (fit-window-to-buffer nil (/ (* (frame-height) 3) 4)
13454 the buffer and restores the previous window configuration."
13457 (let ((cw (current-window-configuration)))
13459 (org-set-local 'org-window-configuration cw)
13462 (set-window-configuration
13463 (prog1 org-window-configuration
13580 (defvar org-pre-agenda-window-conf nil)
13587 (insert "\n" (make-string (window-width) ?=) "\n"))
13592 (awin (get-buffer-window abuf)))
13595 (awin (select-window awin))
13596 ((not (setq org-pre-agenda-window-conf (current-window-configuration))))
13597 ((equal org-agenda-window-setup 'current-window)
13599 ((equal org-agenda-window-setup 'other-window)
13600 (switch-to-buffer-other-window abuf))
13601 ((equal org-agenda-window-setup 'other-frame)
13603 ((equal org-agenda-window-setup 'reorganize-frame)
13605 (switch-to-buffer-other-window abuf))))
13788 (list 'switch-to-buffer-other-window (current-buffer))
14007 (org-fit-agenda-window)
14008 (unless (and (pos-visible-in-window-p (point-min))
14009 (pos-visible-in-window-p (point-max)))
14012 (if (not (pos-visible-in-window-p (or start-pos 1)))
14086 (org-fit-agenda-window)
14152 (org-fit-agenda-window)
14226 (save-window-excursion
15091 "Exit agenda by removing the window or the buffer."
15094 (if (not (one-window-p)) (delete-window))
15097 ;; Maybe restore the pre-agenda window configuration.
15099 (not (eq org-agenda-window-setup 'other-frame))
15100 org-pre-agenda-window-conf
15101 (set-window-configuration org-pre-agenda-window-conf)))
15104 "Exit agenda by removing the window or the buffer.
15125 (window-line (- line (org-current-line (window-start)))))
15132 (recenter window-line)))
15335 (switch-to-buffer-other-window buffer)
15457 (let ((win (selected-window)))
15459 (select-window win)))
15464 (let ((win (selected-window)))
15467 (select-window win)))
15744 (move-to-column (- (window-width) (length stamp)) t)
15986 (if (fboundp 'fit-window-to-buffer)
15987 (fit-window-to-buffer (get-buffer-window "*Dates*")))))
16248 (insert "\\documentclass{article}
16449 (save-window-excursion
17006 (switch-to-buffer-other-window buffer)
17231 (switch-to-buffer-other-window buffer)
17470 (switch-to-buffer-other-window buffer))
18539 (switch-to-buffer-other-window out)
18595 (not window-system))