window-scroll-functions called too often

[Ryan Yeske]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

(defun foo-scroll (window display-start)
  (message "foo-scroll %S %S" window (current-time))
  (when (and window (window-live-p window))
    (with-selected-window window
      (when (>= (window-point) (mark))
        (save-excursion
          (recenter -1))))))

(add-hook 'window-scroll-functions 'foo-scroll nil t)

;;; 1 - hit C-SPC to set the mark on this line somewhere
;;
;;; 2 - hit C-l here to force a call to `foo-scroll'
;;
;;; 3 - C-n, C-p, C-a will all result in `foo-scroll' being called now
;;
;;; 4 - C-p until you are above line 1 and back down and notice C-a
;;;   doesnt trigger `foo-scroll', even when you move below line 1
;;;   again

In rcirc, I am using a scroll-function, like the one above, and it is
being called on every keypress once recenter has been called once.  Is
this an emacs bug?  If not, how do I suppress those subsequent calls
cleanly?


If emacs crashed, and you have the emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/home/rcyeske/contrib/emacs/etc/DEBUG for instructions.


In GNU Emacs 22.0.50.2 (i386-unknown-openbsd3.8, X toolkit)
 of 2006-08-28 on cut.bc.hsia.telus.net
X server distributor `The X.Org Foundation', version 11.0.60802000
configured using `configure '--without-tiff' 'CFLAGS=-g -I/usr/local/include' 
'LDFLAGS=-L/usr/local/lib''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
C-a C-a C-a C-a C-a C-a C-a C-a C-a C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-n C-p C-n C-n C-p C-p C-n C-n C-n C-p C-x 
1 C-x h M-w M-x r e p o r t - e m a c s - b u g <r
eturn>

Recent messages:
foo-scroll #<window 3 on foo-scroll.el> (17652 28559 660672)
foo-scroll #<window 3 on foo-scroll.el> (17652 28559 670002)
foo-scroll #<window 3 on foo-scroll.el> (17652 28560 192117)
foo-scroll #<window 3 on foo-scroll.el> (17652 28560 310095)
foo-scroll #<window 3 on foo-scroll.el> (17652 28560 319762)
foo-scroll #<window 3 on foo-scroll.el> (17652 28560 573353)
Mark set [2 times]
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done