Re: Small bug in lazy-lock.
>>>> "Paul" == Paul Stodghill
<stodghil(a)cs.cornell.edu> writes:
Paul> I just did a package update and suddenly started seeing a
Paul> bunch of errors like the following,
Paul> (20) (error/warning) Error in `post-command-hook' (setting hook to nil):
(wrong-number-of-arguments #<subr window-minibuffer-p> 0)
I see the exact same problem in (emacs-version)
"XEmacs 21.1 (patch 10) \"Capitol Reef\" [Lucid] (i386-pc-win32) of
Fri Jun 09 2000 on ZJ75T"
after a package update on edit-utils.
Adrian
Paul> I think that the following fixes the problem. Could someone look this over
Paul> and check it in?
Paul> Thanks.
Paul> --- edit-utils/lazy-lock.el.orig Thu Jul 6 17:08:22 2000
Paul> +++ edit-utils/lazy-lock.el Thu Jul 6 17:08:44 2000
Paul> ＠＠ -454,7 +454,7 ＠＠
Paul> ;; Do the visible parts of the buffer(s), i.e., the window(s).
Paul> (if (or (not lazy-lock-walk-windows)
Paul> (and (eq lazy-lock-walk-windows t) (one-window-p t)))
Paul> - (or (window-minibuffer-p)
Paul> + (or (window-minibuffer-p (selected-window))
Paul> (lazy-lock-maybe-fontify-window (selected-window)))
Paul> (walk-windows #'lazy-lock-maybe-fontify-window
Paul> 'no-minibuf (eq lazy-lock-walk-windows 'all-frames)))))
Paul> ＠＠ -472,7 +472,7 ＠＠
Paul> ;; from FSF Emacs, which doesn't (or didn't?) have built-in
timers.
Paul> ;; using sit-for is unfriendly and can cause weird interactions.
Paul> (when (and (not (memq this-command lazy-lock-ignore-commands))
Paul> - (not (window-minibuffer-p))
Paul> + (not (window-minibuffer-p (selected-window)))
Paul> lazy-lock-stealth-time)
Paul> (if lazy-lock-timeout-id (disable-timeout lazy-lock-timeout-id))
Paul> (setq lazy-lock-timeout-id