Lines Matching +defs:article +defs:window
54 ;; C-x 4 f ffap-other-window
55 ;; C-x 4 r ffap-read-only-other-window
56 ;; C-x 4 d ffap-dired-other-window
304 (window-buffer (car (event-start event))))
1636 ;; So instead, we just fake it with a slow save-window-excursion.
1638 (defun ffap-other-window nil
1639 "Like `ffap', but put buffer in another window.
1643 (switch-to-buffer-other-window
1644 (save-window-excursion
1656 (let* ((win (selected-window))
1657 (wdp (window-dedicated-p win))
1661 (set-window-dedicated-p win nil)
1663 (save-window-excursion
1668 (set-window-dedicated-p win wdp))
1682 (defun ffap-read-only-other-window ()
1683 "Like `ffap', but put buffer in another window and mark as read-only.
1686 (let ((value (ffap-other-window)))
1747 (defvar gnus-article-buffer)
1751 (gnus-summary-select-article)) ; get article of current line
1752 ;; Preserve selected buffer, but do not do save-window-excursion,
1753 ;; since we want to see any window created by the form. Temporarily
1754 ;; select the article buffer, so we can see any point movement.
1755 (let ((sb (window-buffer (selected-window))))
1756 (gnus-configure-windows 'article)
1757 (pop-to-buffer gnus-article-buffer)
1766 "Run `ffap-next' in the gnus article buffer."
1770 "Run `ffap-menu' in the gnus article buffer."
1844 (defun ffap-dired-other-window ()
1845 "Like `dired-at-point', but put buffer in another window.
1849 (switch-to-buffer-other-window
1850 (save-window-excursion
1860 (let* ((win (selected-window))
1861 (wdp (window-dedicated-p win))
1865 (set-window-dedicated-p win nil)
1867 (save-window-excursion
1870 (set-window-dedicated-p win wdp))
1893 (global-set-key "\C-x4f" 'ffap-other-window)
1895 (global-set-key "\C-x4r" 'ffap-read-only-other-window)
1899 (global-set-key "\C-x4d" 'ffap-dired-other-window)
1904 (add-hook 'gnus-article-mode-hook 'ffap-gnus-hook)