Am 29.11.2010 17:15, schrieb Sébastien Vauban:
Hi Rainer,
Rainer Stengele wrote:
after disabling the showing of the outline path in agenda views:
line-move
430 0.1890000000 0.0004395348
line-move-1
430 0.1730000000 0.0004023255
org-agenda-previous-line
214 0.1560000000 0.0007289719
org-agenda-next-line
216 0.095 0.0004398148
next-line
216 0.048 0.0002222222
org-agenda-do-context-action
430 0.047 0.0001093023
org-detach-overlay
431 0.015 3.48...e-005
org-unhighlight
431 0.015 3.48...e-005
line-move-partial
430 0.0 0.0
org-agenda-post-command-hook
431 0.0 0.0
org-get-at-bol
430 0.0 0.0
scrolling with "n" and "p" runs smoothly now! Sigh! That means the
slowness
is connected to my .emacs and org settings!? I'am afraid I have to
go
through all the settings and find the culprit.
What do you exactly mean by: "disabling the showing of the outline
path in agenda
views"?
Best regards,
Seb
Hi Sebastian
I meant setting org-agenda-show-outline-path to nil.
-----------------------------------------------------
Now the more intersting news.
Reading through my .emacs I found and removed the 2 reasons for the
slowness!
1. smooth-scolling.el (from http://www.emacswiki.org/emacs/SmoothScrolling)
The file includes this:
#+BEGIN_SRC emacs-lisp
(defadvice previous-line (after smooth-scroll-down
(&optional arg try-vscroll)
activate)
"Scroll down smoothly if cursor is within `smooth-scroll-margin'
lines of the top of the window."
(and
;; Only scroll down if there is buffer above the start of the
window.
(> (window-start) (buffer-end -1))
(let ((lines-from-window-top
(smooth-scroll-lines-from-window-top)))
(and
;; Only scroll down if we're within the top margin
(<= lines-from-window-top smooth-scroll-margin)
;; Only scroll down if we're in the top half of the window
(<= lines-from-window-top
;; N.B. `window-height' includes modeline, so if it
returned 21,
;; that would mean exactly 10 lines in the top half and 10 in
;; the bottom. 22 (or any even number) means there's one
in the
;; middle. In both cases the following expression will
;; yield 10:
(/ (1- (window-height)) 2))
(save-excursion
(scroll-down
(1+ (- smooth-scroll-margin lines-from-window-top))))))))
(defadvice next-line (after smooth-scroll-up
(&optional arg try-vscroll)
activate)
"Scroll up smoothly if cursor is within `smooth-scroll-margin'
lines of the bottom of the window."
(and
;; Only scroll up if there is buffer below the end of the window.
(< (window-end) (buffer-end 1))
(let ((lines-from-window-bottom
(smooth-scroll-lines-from-window-bottom)))
(and
;; Only scroll up if we're within the bottom margin
(<= lines-from-window-bottom smooth-scroll-margin)
;; Only scroll up if we're in the bottom half of the window.
(<= lines-from-window-bottom
;; See above notes on `window-height'.
(/ (1- (window-height)) 2))
(save-excursion
(scroll-up
(1+ (- smooth-scroll-margin lines-from-window-bottom))))))))
;;;_ + provide
(provide 'smooth-scrolling)
#+END_SRC
2. (add-hook 'org-agenda-mode-hook 'hl-line-mode)
-----------------------------------------------------
Switching off both features brings back immediate scrolling.
I do miss the features of smooth-scrolling and hl-line but it is not
worth the
performance penalty.