diff options
author | Eli Zaretskii <eliz@gnu.org> | 2011-08-25 13:45:33 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2011-08-25 13:45:33 +0300 |
commit | 0c95fcf739dbfbae70f4e4700fdafedb4497e8df (patch) | |
tree | f27c148c083aa9a6d290053b26ac8e45bfdcb07a /lisp/buff-menu.el | |
parent | a2ebe600c947152c10bf657dfb9dfabdb601c766 (diff) | |
download | emacs-0c95fcf739dbfbae70f4e4700fdafedb4497e8df.tar.gz |
Handle `(space ...)' display spec as paragraph separator.
src/xdisp.c (compute_display_string_pos): Return 2 in DISP_PROP when
the display spec is of the form `(space ...)'.
(handle_display_spec): Return the value returned by
handle_single_display_spec, not just 1 or zero.
(handle_single_display_spec): If the display spec is of the form
`(space ...)', and specifies display in the text area, return 2
rather than 1.
src/dispextern.h (struct bidi_it): Rename the disp_prop_p member
into disp_prop; all users changed.
src/bidi.c (bidi_fetch_char): If compute_display_string_pos returns
DISP_PROP = 2, substitute the u+2029 PARAGRAPH SEPARATOR character
for the text covered by the display property.
lisp/buff-menu.el (Buffer-menu-buffer+size): Remove calls to
bidi-string-mark-left-to-right; they are unnecessary now.
doc/lispref/display.texi (Specified Space): Mention that `space' specs
influence bidi reordering.
(Bidirectional Display): Explain how to use `(space . PROPS)' for
separating fields with bidirectional content.
Diffstat (limited to 'lisp/buff-menu.el')
-rw-r--r-- | lisp/buff-menu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 2eac33d8157..2be74cf5efb 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -681,9 +681,9 @@ For more information, see the function `buffer-menu'." (string-width tail) 2)) Buffer-menu-short-ellipsis - (bidi-string-mark-left-to-right tail)))) + tail))) ;; Don't put properties on (buffer-name). - (setq name (bidi-string-mark-left-to-right name))) + (setq name (copy-sequence name))) (add-text-properties 0 (length name) name-props name) (add-text-properties 0 (length size) size-props size) (let ((name+space-width (- Buffer-menu-buffer+size-width |