bug#16034: 24.3.50; scrolling is very long to happen or never happen

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Hi all,

1) Go to scratch buffer

2) `switch-to-buffer-other-window' in a consequent buffer

3) eval this code:

(with-selected-window (next-window) (scroll-up 12))


This return nil as expected but the next window to the one handling
"*scratch*" doesn't move, but wait a certain time (up to one minute or
more sometimes) and the window finish to scroll.

Sometimes it doesn't scroll at all but maybe I don't wait enough. 




In GNU Emacs 24.3.50.1 (x86_64-unknown-linux-gnu, X toolkit)
 of 2013-12-03 on dell-14z
Windowing system distributor `The X.Org Foundation', version 11.0.11103000
System Description:	Ubuntu 12.04.3 LTS

Configured using:
 `configure --with-x-toolkit=lucid --without-toolkit-scroll-bars
 --without-gconf --without-gsettings'

Important settings:
  value of $LC_MONETARY: fr_FR.UTF-8
  value of $LC_NUMERIC: fr_FR.UTF-8
  value of $LC_TIME: fr_FR.UTF-8
  value of $LANG: fr_FR.UTF-8
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  diff-auto-refine-mode: t
  psession-mode: t
  global-semanticdb-minor-mode: t
  global-semantic-idle-scheduler-mode: t
  semantic-mode: t
  golden-ratio-mode: t
  winner-mode: t
  global-undo-tree-mode: t
  undo-tree-mode: t
  auto-image-file-mode: t
  eldoc-in-minibuffer-mode: t
  show-paren-mode: t
  display-time-mode: t
  recentf-mode: t
  savehist-mode: t
  eldoc-mode: t
  minibuffer-depth-indicate-mode: t
  helm-mode: t
  helm-descbinds-mode: t
  shell-dirtrack-mode: t
  helm-adaptative-mode: t
  helm-match-plugin-mode: t
  helm-occur-match-plugin-mode: t
  tooltip-mode: t
  electric-indent-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<down> <right> <right> <backspace> <backspace> <down> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> C-x C-e C-x C-b C-c o C-< <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
C-M-SPC M-w C-x 1 C-M-SPC M-w C-x C-b C-c o C-< C-e 
C-x C-e C-x o C-< C-< C-< <left> <left> <backspace> 
1 2 <right> <right> <right> <up> C-e C-x C-e C-< C-< 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> C-x C-² C-x C-b C-c o C-< C-e 
C-x C-e C-x C-e <left> <left> <left> <left> C-x 1 <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> C-M-SPC M-w 
M-x r e p o r t <return>

Recent messages:
Entering debugger...
Back to top level.
Type "q" to quit the help frame.
nil
Mark set
Auto-saving...done
Mark set
nil [4 times]
Auto-saving...
Mark set

Load-path shadows:
/usr/local/share/emacs/24.3.50/lisp/gnus/.dir-locals hides ~/elisp/magit/.dir-locals
~/elisp/auctex/lpath hides ~/elisp/emacs-wget/lpath
/usr/local/share/emacs/24.3.50/lisp/emacs-lisp/tq hides ~/elisp/emms/lisp/tq

Features:
(shadow gnus-dired nnir mail-extr gnus-msg gnus-art mm-uu mml2015
mm-view mml-smime smime dig gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source gnus-start gnus-spec gnus-int gnus-range gnus-win emacsbug
help-mode debug diff-mode cl-indent edebug cus-start cus-load
helm-command ido sh-script smie executable vc-hg semantic/tag-file
semantic/db-file data-debug cedet-files semantic/wisent/python
semantic/decorate/include semantic/db-find semantic/db-ref
semantic/decorate/mode semantic/decorate pulse semantic/dep
semantic/wisent/python-wy semantic/wisent semantic/wisent/wisent vc-git
naquadah-theme em-unix em-script em-prompt em-ls em-hist em-pred em-glob
em-dirs em-cmpl em-basic em-banner em-alias align-let git-gutter server
persistent-sessions semantic/db-mode semantic/db eieio-base
semantic/idle semantic/format ezimage semantic/tag-ls semantic/find
semantic/ctxt semantic/util-modes semantic/util semantic semantic/tag
semantic/lex semantic/fw mode-local cedet package golden-ratio winner
undo-tree diff image-file newsticker newst-treeview newst-plainview
newst-reader newst-ticker newst-backend xdvi-search preview-latex
tex-site auto-loads pcomplete-extension em-term term disp-table ehelp
helm-ipython helm-elisp helm-eval python rx eldoc-eval warnings
whitespace paren time avoid recentf tree-widget savehist smtpmail-async
smtpmail sendmail helm-async iterator simple-call-tree iedit-rect rect
iedit iedit-lib smallurl mm-url gnus gnus-ems nnheader wid-edit
rectangle-utils ledger-config ledger esh-var esh-io esh-cmd esh-opt
esh-ext esh-proc eldoc esh-groups eshell esh-module esh-mode esh-arg
esh-util tv-utils async pcvs vc-cvs pcvs-parse pcvs-info pcvs-defs
pcvs-util ewoc mb-depth cl-info slime-autoloads esh-toggle flymake
no-word htmlize dired-extension emms-mpd-config emms-playlist-limit
emms-volume emms-volume-amixer emms-i18n emms-history emms-score
emms-stream-info emms-metaplaylist-mode emms-bookmarks emms-cue
emms-mode-line-icon emms-browser sort emms-playlist-sort
emms-last-played emms-player-xine emms-player-mpd tq emms-playing-time
emms-lyrics emms-url hl-line emms-tag-editor emms-mark emms-mode-line
emms-cache emms-info-ogginfo emms-info-mp3info emms-playlist-mode
emms-player-vlc emms-player-mplayer emms-info emms-streams later-do
emms-source-playlist emms-source-file emms-player-simple emms-setup emms
emms-compat org-config-thierry ob-sh cal-china lunar solar cal-dst
cal-bahai cal-islam cal-hebrew holidays hol-loaddefs appt diary-lib
diary-loaddefs org-element org-rmail org-mhe org-irc org-info org-gnus
org-docview org-bibtex bibtex org-bbdb org-w3m org-agenda
org-annotation-helper addressbook-bookmark message rfc822 mml mml-sec
mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
ietf-drums mailabbrev mail-utils gmm-utils mailheader firefox-protocol
bookmark-firefox-handler bookmark-extensions bookmark pp
init-helm-thierry helm-mode helm-ls-git helm-descbinds helm-ls-hg
helm-files image-dired tramp tramp-compat tramp-loaddefs trampver shell
dired-x dired-aux ffap thingatpt helm-buffers helm-elscreen helm-tags
helm-bookmark helm-adaptative helm-info helm-net browse-url xml url
url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util url-parse url-vars mailcap helm-plugin helm-help
helm-match-plugin helm-grep wgrep-helm wgrep helm-regexp grep
helm-external helm-utils dired compile helm-locate helm vc vc-dispatcher
helm-config helm-aliases epa-file epa derived epg epg-config auth-source
eieio eieio-core gnus-util mm-util mail-prsvr password-cache info
cl-macs gv edmacro kmacro org-crypt org byte-opt bytecomp byte-compile
cconv advice help-fns org-macro org-footnote org-pcomplete pcomplete
org-list org-faces org-entities time-date noutline outline easy-mmode
org-version ob-emacs-lisp ob ob-tangle org-src ob-ref ob-lob ob-table
ob-keys ob-exp ob-comint comint ansi-color ring ob-core ob-eval
org-compat org-macs org-loaddefs format-spec find-func cal-menu easymenu
calendar cal-loaddefs net-utils cl cl-loaddefs cl-lib tooltip electric
uniquify ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list newcomment lisp-mode
prog-mode register page menu-bar rfn-eshadow timer select scroll-bar
mouse jit-lock font-lock syntax facemenu font-core frame cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese hebrew greek romanian slovak czech european ethiopic indian
cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev
minibuffer nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote make-network-process
dbusbind gfilenotify dynamic-setting font-render-setting x-toolkit x
multi-tty emacs)

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Eli Zaretskii]

> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
> Date: Tue, 03 Dec 2013 10:26:19 +0100
> 
> 1) Go to scratch buffer
> 
> 2) `switch-to-buffer-other-window' in a consequent buffer

What do you mean by "consequent buffer"?  Is this in "emacs -Q" or in
a session that has other buffers besides *scratch* and *Messages*?

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
>> Date: Tue, 03 Dec 2013 10:26:19 +0100
>> 
>> 1) Go to scratch buffer
>> 
>> 2) `switch-to-buffer-other-window' in a consequent buffer
>
> What do you mean by "consequent buffer"?

Use a buffer that is longer enough to scroll (i.e in emacs -Q *Messages*
is not long enough to be scrolled)

> Is this in "emacs -Q" or in a session that has other buffers besides
> *scratch* and *Messages*?

In both.

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> Eli Zaretskii <eliz@gnu.org> writes:
>
>>> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
>>> Date: Tue, 03 Dec 2013 10:26:19 +0100
>>> 
>>> 1) Go to scratch buffer
>>> 
>>> 2) `switch-to-buffer-other-window' in a consequent buffer
>>
>> What do you mean by "consequent buffer"?
>
> Use a buffer that is longer enough to scroll (i.e in emacs -Q *Messages*
> is not long enough to be scrolled)
>
>> Is this in "emacs -Q" or in a session that has other buffers besides
>> *scratch* and *Messages*?
>
> In both.

To make this happen faster, you can repeat the recipe I sent, then when
you see nothing happen, hit `C-x o', the window is immediately scrolled.

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Eli Zaretskii]

> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
> Date: Tue, 03 Dec 2013 11:58:39 +0100
> 
> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
> 
> > Eli Zaretskii <eliz@gnu.org> writes:
> >
> >>> From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
> >>> Date: Tue, 03 Dec 2013 10:26:19 +0100
> >>> 
> >>> 1) Go to scratch buffer
> >>> 
> >>> 2) `switch-to-buffer-other-window' in a consequent buffer
> >>
> >> What do you mean by "consequent buffer"?
> >
> > Use a buffer that is longer enough to scroll (i.e in emacs -Q *Messages*
> > is not long enough to be scrolled)
> >
> >> Is this in "emacs -Q" or in a session that has other buffers besides
> >> *scratch* and *Messages*?
> >
> > In both.
> 
> To make this happen faster, you can repeat the recipe I sent, then when
> you see nothing happen, hit `C-x o', the window is immediately scrolled.

If I evaluate the expression via "M-:", I don't see any problem, the
other buffer is scrolled immediately.

I still am not sure I did what you meant me to do (rant: why is it
that some Emacs developers don't bother to post detailed enough
recipes that spell everything out and leave no t's uncrossed?).
Here's what I did:

  emacs -Q
  C-x C-f src/xdisp.c RET
  C-x 4 b *scratch* RET
  M-: (with-selected-window (next-window) (scroll-up 12)) RET

This scrolls immediately.

Perhaps you meant to type the expression in *scratch* and evaluate it
with C-j or C-x C-e?  If so, I can indeed confirm that the scroll
doesn't happen in that case.  I'm guessing this is due to the latest
Stefan's changes, because in an older build I don't see this.

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Eli Zaretskii <eliz@gnu.org> writes:

> Perhaps you meant to type the expression in *scratch* and evaluate it
> with C-j or C-x C-e?

Yes. (`C-x C-e')

> If so, I can indeed confirm that the scroll doesn't happen in that
> case.  I'm guessing this is due to the latest Stefan's changes,
> because in an older build I don't see this.

Indeed.

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> Eli Zaretskii <eliz@gnu.org> writes:
>
>> Perhaps you meant to type the expression in *scratch* and evaluate it
>> with C-j or C-x C-e?
>
> Yes. (`C-x C-e')
>
>> If so, I can indeed confirm that the scroll doesn't happen in that
>> case.  I'm guessing this is due to the latest Stefan's changes,
>> because in an older build I don't see this.
>
> Indeed.

BTW I found this bug because it affect helm, it is no more possible to
scroll other window while in a helm session.

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Stefan Monnier]

> (with-selected-window (next-window) (scroll-up 12))

> This return nil as expected but the next window to the one handling
> "*scratch*" doesn't move, but wait a certain time (up to one minute or
> more sometimes) and the window finish to scroll.

I think I know what's going on.  It's probably due to my patch that adds
`redisplay' fields everywhere, and here it ends up not marking the
`next-window' for redisplay, for some reason.

Thanks for the good recipe, the patch should follow later today,


        Stefan

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Stefan Monnier]

> 3) eval this code:
> (with-selected-window (next-window) (scroll-up 12))
> This return nil as expected but the next window to the one handling
> "*scratch*" doesn't move, but wait a certain time (up to one minute or
> more sometimes) and the window finish to scroll.

Should be fixed now, thank to the patch below,


        Stefan


--- src/window.c	2013-12-03 21:37:41 +0000
+++ src/window.c	2013-12-04 18:23:14 +0000
@@ -4732,6 +4731,8 @@
   immediate_quit = 1;
   n = clip_to_bounds (INT_MIN, n, INT_MAX);
 
+  wset_redisplay (XWINDOW (window));
+
   /* If we must, use the pixel-based version which is much slower than
      the line-based one but can handle varying line heights.  */
   if (FRAME_WINDOW_P (XFRAME (XWINDOW (window)->frame)))

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> Should be fixed now, thank to the patch below,

Thanks Stefan, works great now.

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Thierry Volpiatto]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> 3) eval this code:
>> (with-selected-window (next-window) (scroll-up 12))
>> This return nil as expected but the next window to the one handling
>> "*scratch*" doesn't move, but wait a certain time (up to one minute or
>> more sometimes) and the window finish to scroll.
>
> Should be fixed now, thank to the patch below,

Hoops! It is working fine in helm now but now from gnus-summary hitting
RET don't scroll anymore (same symptoms).

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997 

bug#16034: 24.3.50; scrolling is very long to happen or never happen

[Stefan Monnier]

> Hoops! It is working fine in helm now but now from gnus-summary hitting
> RET don't scroll anymore (same symptoms).

Ha!  Indeed!  Thanks again, should be fixed as well, now.  On to the
next problem,


        Stefan