bug#25673: 25.1; bug of define-fringe-bitmap

[YAMAMOTO Mitsuharu]

>>>>> On Fri, 10 Feb 2017 17:16:13 +0900, ynyaaa@gmail.com said:

> Evaluating the forms below, emacs does not display a framed square.
> The rightmost edge is not displayed.

> (set-window-fringes nil 20 20) ;; ensure enough space to display image
> (define-fringe-bitmap 'test-bitmap
>   (vector #b1111111
>           #b1000001
>           #b1000001
>           #b1000001
>           #b1000001
>           #b1000001
>           #b1111111)
>   7 7)
> (insert "<" (propertize "x" 'display '(left-fringe test-bitmap)) ">\n")

> It is needed to align patterns left in 8bit.

> (define-fringe-bitmap 'test-bitmap ;; 7x7 pixel framed square
>   (vector #b11111110
>           #b10000010
>           #b10000010
>           #b10000010
>           #b10000010
>           #b10000010
>           #b11111110)
>   7 7)

> To display bitmap images wider than 8pixel,
> it is needed to align patterns left in 16bit
> and swap the higher 8bit and lower 8bit.

> (define-fringe-bitmap 'test-bitmap ;; 12x12 pixel framed square
>   (vector #b1111000011111111
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b0001000010000000
>           #b1111000011111111)
>   12 12)



> In GNU Emacs 25.1.1 (i686-w64-mingw32)
>  of 2016-09-18 built on LAPHROAIG
> Windowing system distributor 'Microsoft Corp.', version 6.0.6002
> Configured using:
>  'configure --host=i686-w64-mingw32 --without-dbus
>  --without-compress-install CFLAGS=-static'

Could you test the change I suggested to you in another list?

http://lists.nongnu.org/archive/html/mule-ja/2015-06/msg00001.html
(make sure that you replace HAVE_MACGUI with HAVE_NTGUI in the patch)

                                     YAMAMOTO Mitsuharu
                                mituharu@math.s.chiba-u.ac.jp