让emacs真正的等宽，补丁

[cjacker]

这下好了。非常感谢 感觉跟gnome终端里一样中文的字符间有些微间距，就是感觉光标在中文上移动的时候有一点迟钝，不知道是不是在计算距离？

图左边那个是打补丁之前的吧？
上面那个补丁是打开DEBUG的，一定要把dbg关掉，否则确实会慢


见首页。

[Fermat618]

这下好了。非常感谢 感觉跟gnome终端里一样中文的字符间有些微间距，就是感觉光标在中文上移动的时候有一点迟钝，不知道是不是在计算距离？

图左边那个是打补丁之前的吧？
上面那个补丁是打开DEBUG的，一定要把dbg关掉，否则确实会慢


另试试附件补丁，看看能不能更快点？

相对上面这个已经OK的补丁， 主要是：
尽量减少计算，减少函数调用跳转之类的。
期望能比原来的补丁关掉Debug之后更快一些。

报告楼主，这个有问题。我中英文都用文泉驿的，这时英文字体也变成了跟中文字体同样宽。
在选择字体对话框选Sans的话，这时中英文又不是等宽的了。还有一种现象就是光标所在处英文字体可能变得很宽。

[cjacker]

这下好了。非常感谢 感觉跟gnome终端里一样中文的字符间有些微间距，就是感觉光标在中文上移动的时候有一点迟钝，不知道是不是在计算距离？

图左边那个是打补丁之前的吧？
上面那个补丁是打开DEBUG的，一定要把dbg关掉，否则确实会慢


另试试附件补丁，看看能不能更快点？

相对上面这个已经OK的补丁， 主要是：
尽量减少计算，减少函数调用跳转之类的。
期望能比原来的补丁关掉Debug之后更快一些。

报告楼主，这个有问题。我中英文都用文泉驿的，这时英文字体也变成了跟中文字体同样宽。
在选择字体对话框选Sans的话，这时中英文又不是等宽的了。还有一种现象就是光标所在处英文字体可能变得很宽。

第一个问题好改，加个判断即可，容易，我一会儿处理一下。
第二个问题这么设置就是错的，Emacs默认字体必须是等宽字体，只不过它没限制死，当然，这个也好改，只要设置成默认字体是非等宽字体，那就怎么都没有可能对齐了，所以，也就不需要特别处理了。

这个问题，我一会儿处理一下，更新一下patch，你再试试。

[cjacker]

在选择字体对话框选Sans的话，这时中英文又不是等宽的了。还有一种现象就是光标所在处英文字体可能变得很宽。

我是中英文分开用的 Monaco+文泉驿微米黑
我发现 使用补丁后 不能在 ~/.emacs 里面的自定义 faces 部分有自定义的字体， 或者再改其他字体， 不然就出现问题，
只要不再更改字体等宽是没有问题

这个可以啊。
(custom-set-faces '(default ((t (:family "Monaco")))))
(set-fontset-font "fontset-default" 'han "Microsoft YaHei 25" )

下图英文、中文、韩文是不同字体，不同字号的配置，韩文还用了点阵字库。
只不过对不齐了而已，如果这时候要强迫它对齐，那必须调整英文等宽字体的宽度，这个做法就不合理了，所以，补丁对这种情况是不做处理的。

[acid303]

终于可以等宽了

希望 LZ 能反映给上游，修复这个 bug：
https://lists.gnu.org/archive/html/emac ... 00938.html

[cjacker]

这下好了。非常感谢 感觉跟gnome终端里一样中文的字符间有些微间距，就是感觉光标在中文上移动的时候有一点迟钝，不知道是不是在计算距离？

图左边那个是打补丁之前的吧？
上面那个补丁是打开DEBUG的，一定要把dbg关掉，否则确实会慢


另试试附件补丁，看看能不能更快点？

相对上面这个已经OK的补丁， 主要是：
尽量减少计算，减少函数调用跳转之类的。
期望能比原来的补丁关掉Debug之后更快一些。

报告楼主，这个有问题。我中英文都用文泉驿的，这时英文字体也变成了跟中文字体同样宽。
在选择字体对话框选Sans的话，这时中英文又不是等宽的了。还有一种现象就是光标所在处英文字体可能变得很宽。

两个问题都处理了，多谢测试和报告。
1，文泉驿等宽黑或者NSimSun等宽宋等等宽中文字体不受影响了。
2，虽然默认字体设成Sans不对，但是现在补丁也能Handle了，方法是取emacs当前frame的列宽和空格宽，如果默认字体不是等宽的，两者不相等，这样补丁就不会生效了。

更新过的补丁见楼顶附件。

[cjacker]

终于可以等宽了

希望 LZ 能反映给上游，修复这个 bug：
https://lists.gnu.org/archive/html/emac ... 00938.html

OK, I will clean codes and report.

[cjacker]

首页补丁更新，Call for more test.

[lhui]

谢谢，补丁已经打上，没有发现别的问题。

[acid303]

打上补丁后，没有发现问题

可是 emacs 23.4 下补丁要作一些修改才能打上：

代码： 全选

97,99c97,99
<  static Lisp_Object xftfont_list (Lisp_Object, Lisp_Object);
<  static Lisp_Object xftfont_match (Lisp_Object, Lisp_Object);
<  static Lisp_Object xftfont_open (FRAME_PTR, Lisp_Object, int);
---
>  static Lisp_Object xftfont_list P_ ((Lisp_Object, Lisp_Object));
>  static Lisp_Object xftfont_match P_ ((Lisp_Object, Lisp_Object));
>  static Lisp_Object xftfont_open P_ ((FRAME_PTR, Lisp_Object, int));

[cjacker]

打上补丁后，没有发现问题

可是 emacs 23.4 下补丁要作一些修改才能打上：

代码： 全选

97,99c97,99
<  static Lisp_Object xftfont_list (Lisp_Object, Lisp_Object);
<  static Lisp_Object xftfont_match (Lisp_Object, Lisp_Object);
<  static Lisp_Object xftfont_open (FRAME_PTR, Lisp_Object, int);
---
>  static Lisp_Object xftfont_list P_ ((Lisp_Object, Lisp_Object));
>  static Lisp_Object xftfont_match P_ ((Lisp_Object, Lisp_Object));
>  static Lisp_Object xftfont_open P_ ((FRAME_PTR, Lisp_Object, int));

恩，发现了，我一直在emacs-24 git head下弄的，在23.4上补丁会被reject，手工改下就可以了。

今天发现cedet-1.1会导致emacs-24hang，主要是emacs-24对process部分的修改导致，所以就回退到23.4了。

我一会儿更新下。

[duyanning]

支持！
另外请问，这个补丁是通盘考虑后系统性的solution，还是针对一些特殊组合的workaround？
有没有可能作为emacs的一个新特性（通过开关开启）合并到trunk中去？

[hhmhfh]

弱弱的问一下,这个补丁文件怎么用呢?

patch -pl < ./emacs-cjk-monospace-v24.patch
是这样么?
提示:
patch: **** strip count l is not a number


没打过补丁,给说一下.

[ACGNX]

同楼上, 没打上...

[jashy]

这个补丁，两年也没有补上，什么原因啊？

diff --git a/src/xftfont.c b/src/xftfont.c
index 18c180f..2020b4f 100644
--- a/src/xftfont.c
+++ b/src/xftfont.c
@@ -60,6 +60,8 @@ struct xftfont_info
Display *display;
XftFont *xftfont;
unsigned x_display_id;
+ struct frame *frame; /* hold frame ptr, cjk double width fix need it */
+ int is_cjk; /* Flag to tell if it is CJK font or not. */
};

/* Structure pointed by (struct face *)->extra */
@@ -133,6 +135,83 @@ xftfont_get_colors (struct frame *f, struct face *face, GC gc,
}


+/* Check whether the font contains CJK Ideograph 'number one', 0x4E00,
+ It should be ok for Chinese/Japanese font.
+ Or font contains Korean script syllable 'Ka',0xAC00,
+ because Korean fonts may not have any Chinese characters at all.
+ codes from xterm.*/
+static int
+xftfont_is_cjk_font(struct xftfont_info *xftfont_info)
+{
+ if(XftCharExists(xftfont_info->display, xftfont_info->xftfont, 0x4E00) ||
+ XftCharExists(xftfont_info->display, xftfont_info->xftfont, 0xAC00))
+ return 1;
+ return 0;
+}
+
+/* Get the padding according to default monospace font width */
+static int
+xftfont_get_cjk_padding(int default_width, int char_width, int *half_width_cjk)
+{
+ int padding = 0;
+ if(half_width_cjk)
+ *half_width_cjk = 0;
+
+ if( default_width == 0 || /* something wrong */
+ default_width == -1 || /* default font is not monospace */
+ char_width == default_width) /* already good */
+ return 0;
+ if( char_width < default_width) {
+ /* almost impossible, but we can handle it */
+ padding = default_width - char_width;
+ if(half_width_cjk)
+ *half_width_cjk = 1;
+ } else /* get the padding, all cjk symbols is DOUBLE width */
+ padding = default_width * 2 - char_width;
+ /* 1, Some old CJK pcf fonts may bigger than 2*default_width.
+ 2, User may set a very big font size for script HAN manually.
+ Keep it unchanged, NOT adjust default font width. */
+ return (padding > 0 && padding < default_width) ? padding : 0;
+}
+
+/* Get the font width of monospace font.
+ Something wrong: return 0;
+ Default is not monospace: return -1;
+ Otherwise: return monospace font width; */
+static int
+xftfont_get_default_width(struct xftfont_info *xftfont_info)
+{
+ Lisp_Object font_object;
+ double request_pixel_size;
+ struct frame *frame = xftfont_info->frame;
+ FcPattern * pattern = xftfont_info->xftfont->pattern;
+ int id = lookup_basic_face (frame, DEFAULT_FACE_ID);
+ struct face *face = FACE_FROM_ID (frame, id);
+ if(!face && !face->font)
+ return 0;
+ XSETFONT (font_object, face->font);
+ /* default font is not monospace */
+ if (XINT(AREF (font_object, FONT_SPACING_INDEX)) != FONT_SPACING_MONO)
+ return -1;
+ if(FcPatternGetDouble(pattern, FC_PIXEL_SIZE, 0, &request_pixel_size) != FcResultMatch)
+ return 0;
+ /* the font of minibuf/modeline never changed when rescaling.
+ it's a little bit difficult to determine where the xftfont draw to.
+ for example, when use mule/leim to input some CJK text.
+ it will draw on the selected frame and minibuf(candidate string).
+ by the way, the 'int' conversion should be ok. */
+ if(FRAME_FONT(frame)->pixel_size == (int)request_pixel_size)
+ return FRAME_FONT(frame)->space_width;
+ /* User may set a fixed font size for script han manually,
+ the font will not rescale when issue rescaling,
+ should not ajust the width offset and avoid to make it too wide.
+ its alignment will be wrong, but let's respect user settings.*/
+ if(face->font->pixel_size != (int)request_pixel_size)
+ return FRAME_FONT(frame)->space_width;
+ /* otherwise return the current font width */
+ return face->font->space_width;
+}
+
struct font_driver xftfont_driver;

static Lisp_Object
@@ -420,6 +499,15 @@ xftfont_open (struct frame *f, Lisp_Object entity, int pixel_size)
XftTextExtents8 (display, xftfont, ascii_printable + 1, 94, &extents);
font->average_width = (font->space_width + extents.xOff) / 95;
}
+
+ /* to fix CJK double width alignment issue.
+ pass FRAME_PTR to every xftfont_info structure,
+ we can not get it in "xftfont_text_extents". */
+ xftfont_info->frame = f;
+ /* mark it is CJK font or not when font opened,
+ avoid calling "xftfont_is_cjk_font" many times. */
+ xftfont_info->is_cjk = xftfont_is_cjk_font(xftfont_info);
+
unblock_input ();

font->ascent = xftfont->ascent;
@@ -588,19 +676,29 @@ xftfont_text_extents (struct font *font, unsigned int *code, int nglyphs, struct
struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
XGlyphInfo extents;

+ int cjk_padding = 0;
+ int l_padding = 0;
+ int r_padding = 0;
+
block_input ();
XftGlyphExtents (xftfont_info->display, xftfont_info->xftfont, code, nglyphs,
&extents);
+ if(xftfont_info->is_cjk)
+ cjk_padding = xftfont_get_cjk_padding(xftfont_get_default_width(xftfont_info), extents.xOff, NULL);
+ /* cjk_padding may equals to 0, then all is zero, still ok */
+ l_padding = cjk_padding >> 1; /* get half */
+ r_padding = cjk_padding - l_padding; /* may not divided by 2 exactly */
+
unblock_input ();
if (metrics)
{
- metrics->lbearing = - extents.x;
- metrics->rbearing = - extents.x + extents.width;
- metrics->width = extents.xOff;
+ metrics->lbearing = - extents.x - l_padding;
+ metrics->rbearing = - extents.x + extents.width + r_padding;
+ metrics->width = extents.xOff + cjk_padding;
metrics->ascent = extents.y;
metrics->descent = extents.height - extents.y;
}
- return extents.xOff;
+ return extents.xOff + cjk_padding;
}

static XftDraw *
@@ -658,9 +756,28 @@ xftfont_draw (struct glyph_string *s, int from, int to, int x, int y,
for (i = 0; i < len; i++)
XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
x + i, y, code + i, 1);
- else
- XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
- x, y, code, len);
+ else {
+ int default_width = xftfont_get_default_width(xftfont_info);
+ if(!xftfont_info->is_cjk || default_width == -1) /* not cjk or default not monospace */
+ XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont, x, y, code, len);
+ else /* draw CJK glyphs one by one and adjust the offset */
+ for (i = 0; i < len; i++) {
+ int cjk_padding = 0;
+ int offset = 0;
+ int half_width_cjk = 0;
+ XGlyphInfo extents;
+ XftGlyphExtents (xftfont_info->display, xftfont_info->xftfont, code+i, 1,
+ &extents);
+ cjk_padding = xftfont_get_cjk_padding(default_width,extents.xOff, &half_width_cjk);
+ if(cjk_padding)
+ offset = default_width * i * (half_width_cjk ? 1 : 2) + (cjk_padding>>1);
+ else
+ offset = extents.xOff * i;
+ XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
+ x+offset, y, code+i, 1);
+ }
+ }
+
unblock_input ();

return len;