From: Keith David Bershatsky <esq@lawlist.com>
To: Eli Zaretskii <eliz@gnu.org>
Cc: 22637@debbugs.gnu.org
Subject: bug#22637: 25.1.50; `mode-line` face `:height` incompatible with `scroll-conservatively 101`.
Date: Mon, 15 Feb 2016 18:00:06 -0800 [thread overview]
Message-ID: <m2k2m5fm8p.wl%esq@lawlist.com> (raw)
In-Reply-To: <m21t8ioevq.wl%esq@lawlist.com>
[-- Attachment #1: Type: text/plain, Size: 1724 bytes --]
Thank you, Eli, for the most recent fix implemented in relation to #22637. Both of the fixes that you have already implemented do indeed resolve the two test cases.
You might be interested to know that the `window-scroll-functions` hook never runs after `window-start` is corrected in the following example, so anyone seeking to use that hook with a correct `window-start` is out of luck. In addition to the test example below, this type of fact pattern occurs when using things such as isearch and ispell (e.g., when programmatically moving to a point that is not yet visible). Attached is an updated `window_start_end_hook.diff` that depicts an example of how I have tentatively dealt with it for the new hook (but I did not attempt to fix the WSF).
(face-spec-set 'mode-line
'((((class color) (min-colors 88))
:box (:line-width -1 :style released-button)
:background "grey75" :foreground "black" :height 120)
(t
:inverse-video t)))
(setq scroll-conservatively 101)
(global-eldoc-mode -1)
(global-font-lock-mode -1)
(blink-cursor-mode -1)
(defun wsf-test-fn (win start)
(let* (
(end (window-end nil t))
(pos-visible (pos-visible-in-window-p nil win nil)) )
(message "window-start: %s | window-end: %s | pos-visible: %s"
start end pos-visible)))
(defun test ()
(interactive)
(switch-to-buffer (get-buffer-create "*foo*"))
(add-hook 'window-scroll-functions 'wsf-test-fn nil 'local)
(buffer-disable-undo)
(setq undo-auto-current-boundary-timer t
timer-list (delq 'undo-auto--boundary-timer timer-list))
(dotimes (i 200)
(insert (format "I will not obey absurd orders %d.\n" i)))
(goto-char (point-min))
(goto-char (- (point-max) 1000)))
(global-set-key [f1] 'test)
[-- Attachment #2: window_start_end_hook.diff --]
[-- Type: application/diff, Size: 13413 bytes --]
next prev parent reply other threads:[~2016-02-16 2:00 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-02-12 2:12 bug#22637: 25.1.50; `mode-line` face `:height` incompatible with `scroll-conservatively 101` Keith David Bershatsky
2016-02-12 8:17 ` Eli Zaretskii
2016-02-12 16:17 ` Keith David Bershatsky
2016-02-12 19:40 ` Eli Zaretskii
2016-02-14 3:40 ` Keith David Bershatsky
2016-02-14 6:05 ` Eli Zaretskii
2016-02-14 7:55 ` Keith David Bershatsky
2016-02-14 19:26 ` Eli Zaretskii
2016-02-16 2:00 ` Keith David Bershatsky [this message]
2016-02-16 2:51 ` Keith David Bershatsky
2016-02-16 15:51 ` Eli Zaretskii
2022-02-10 8:09 ` Lars Ingebrigtsen
2022-02-10 12:33 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2k2m5fm8p.wl%esq@lawlist.com \
--to=esq@lawlist.com \
--cc=22637@debbugs.gnu.org \
--cc=eliz@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.