mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-30 08:08:26 +00:00
Code

Prefer set-window-start' over recenter' in some places.

Browse Source 
* org-agenda.el (org-agenda-show-1):
* org-table.el (org-table-show-reference):
* org.el (org-fix-ellipsis-at-bol)
(org-first-headline-recenter): Use `set-window-start' instead
of `recenter'.

* org-agenda.el (org-recenter-heading): Delete.
This commit is contained in:
Bastien Guerry 2014-06-12 12:04:24 +02:00
parent 6c9b3ad91f
commit 30220ffcdc
3 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-agenda.el
View File

@ -8599,7 +8599,8 @@ if it was hidden in the outline."
(interactive "p")
(let ((win (selected-window)))
(org-agenda-goto t)
(org-recenter-heading 1)
(org-back-to-heading)
(set-window-start (selected-window) (point-at-bol))
(cond
((= more 0)
(hide-subtree)
@ -8638,11 +8639,6 @@ if it was hidden in the outline."
(message "Remote: SUBTREE AND ALL DRAWERS")))
(select-window win)))
(defun org-recenter-heading (n)
(save-excursion
(org-back-to-heading)
(recenter n)))
(defvar org-agenda-cycle-counter nil)
(defun org-agenda-cycle-show (&optional n)
"Show the current entry in another window, with default settings.

5
lisp/org-table.el
View File

@ -3863,9 +3863,10 @@ With prefix ARG, apply the new formulas to the table."
(push org-table-current-begin-pos org-show-positions)
(let ((min (apply 'min org-show-positions))
(max (apply 'max org-show-positions)))
(goto-char min) (recenter 0)
(set-window-start (selected-window) (point-min))
(goto-char max)
(or (pos-visible-in-window-p max) (recenter -1))))
(or (pos-visible-in-window-p max)
(set-window-start (selected-window) (point-max)))))
(select-window win))))
(defun org-table-force-dataline ()

11
lisp/org.el
View File

@ -5484,7 +5484,8 @@ The following commands are available:
(put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify)
(defsubst org-fix-ellipsis-at-bol ()
(save-excursion (goto-char (window-start)) (recenter 0)))
(save-excursion
(set-window-start (selected-window) (point-min))))
(defun org-find-invisible-foreground ()
(let ((candidates (remove
@ -7117,13 +7118,11 @@ Otherwise make it visible."
(pos-visible-in-window-p
(save-excursion (org-end-of-subtree t) (point))))
(defun org-first-headline-recenter (&optional N)
"Move cursor to the first headline and recenter the headline.
Optional argument N means put the headline into the Nth line of the window."
(defun org-first-headline-recenter ()
"Move cursor to the first headline and recenter the headline."
(goto-char (point-min))
(when (re-search-forward (concat "^\\(" org-outline-regexp "\\)") nil t)
(beginning-of-line)
(recenter (prefix-numeric-value N))))
(set-window-start (selected-window) (point-at-bol))))
;;; Saving and restoring visibility