GNU bug report logs - #6000
describe-text-sexp does not know window-width

Previous Next

Full log

View this message in rfc822 format

From: martin rudalics <rudalics <at> gmx.at>
To: Juri Linkov <juri <at> jurta.org>, Lars Ingebrigtsen <larsi <at> gnus.org>
Cc: 6000 <at> debbugs.gnu.org, Lennart Borgman <lennart.borgman <at> gmail.com>
Subject: bug#6000: describe-text-sexp does not know window-width
Date: Fri, 4 Jun 2021 11:18:35 +0200

>> This sounds like a good idea to me, but there wasn't a recipe to
>> reproduce whatever error this bug report was talking about, so I can't
>> test.
>>
>> Does anybody have a test case that displays the problem (in case it's
>> still in place after all these years)?
>
> Indeed a test case would be needed, but I have none.

There's no realistic test case for this.  You can do

(defun foo ()
  (interactive)
  (with-current-buffer (get-buffer-create "*foo*")
    (describe-text-sexp 'foooooooooooooooooooooooooooooooooo)))

and M-x foo in some window.  Dependent on the width of that window,
`describe-text-sexp' will decide whether to insert the expression in
*foo* or display a "Show" button instead.  When you eventually display
*foo* you will see the result.  I think a simple check like

    (if (and (not (string-match-p "\n" pp))
             (eq (window-buffer) (current-buffer))
             (<= (length pp) (- (window-width) (current-column))))
	(insert pp)

should work.

martin

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.