[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: defadvice bug or something else?
|
From: |
dick . r . chiang |
|
Subject: |
Re: defadvice bug or something else? |
|
Date: |
Thu, 29 Apr 2021 00:11:06 -0400 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) |
You make it so hard to help you, what with the syntactically erroneous code,
the hand-wavy minimum reproducible example, the verbiage, and the transposition
of up versus down (C-v is scroll-up, not scroll-down).
emacs -Q --eval
\
"(dolist (f (quote (scroll-up-command scroll-down-command)))
\
(add-function
\
:after (symbol-function f)
\
(lambda (&rest _args)
\
(redisplay)
\
(princ (format \"wstart = %d, wend = %d\n\" (window-start) (window-end))
\
(function external-debugging-output)))))"
\
--eval "(save-excursion (apply (function insert) (mapcar (apply-partially
\
(function format) \"%d\n\") (number-sequence 1 1000))))"
\
--eval "(progn (scroll-up-command) (scroll-up-command) (scroll-down-command)
\
(scroll-down-command))"
\
--eval "(kill-emacs)"
emacs -Q --eval
\
"(defun tx-window ()
\
(redisplay)
\
(princ (format \"wstart = %d, wend = %d\n\" (window-start) (window-end))
\
(function external-debugging-output)))"
\
--eval "(save-excursion (apply (function insert) (mapcar (apply-partially
\
(function format) \"%d\n\") (number-sequence 1 1000))))"
\
--eval "(progn (scroll-up-command) (tx-window) (scroll-up-command) (tx-window)
\
(scroll-down-command) (tx-window) (scroll-down-command)
(tx-window))" \
--eval "(kill-emacs)"