diff options
| author | Eli Zaretskii | 2011-08-25 13:45:33 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2011-08-25 13:45:33 +0300 |
| commit | 0c95fcf739dbfbae70f4e4700fdafedb4497e8df (patch) | |
| tree | f27c148c083aa9a6d290053b26ac8e45bfdcb07a /lisp | |
| parent | a2ebe600c947152c10bf657dfb9dfabdb601c766 (diff) | |
| download | emacs-0c95fcf739dbfbae70f4e4700fdafedb4497e8df.tar.gz emacs-0c95fcf739dbfbae70f4e4700fdafedb4497e8df.zip | |
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')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/buff-menu.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a42711dccc4..064e745d1f5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-08-25 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * buff-menu.el (Buffer-menu-buffer+size): Remove calls to | ||
| 4 | bidi-string-mark-left-to-right; they are unnecessary now. | ||
| 5 | |||
| 1 | 2011-08-25 Deniz Dogan <deniz@dogan.se> | 6 | 2011-08-25 Deniz Dogan <deniz@dogan.se> |
| 2 | 7 | ||
| 3 | * net/quickurl.el: Documentation typo fixes. | 8 | * net/quickurl.el: Documentation typo fixes. |
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'." | |||
| 681 | (string-width tail) | 681 | (string-width tail) |
| 682 | 2)) | 682 | 2)) |
| 683 | Buffer-menu-short-ellipsis | 683 | Buffer-menu-short-ellipsis |
| 684 | (bidi-string-mark-left-to-right tail)))) | 684 | tail))) |
| 685 | ;; Don't put properties on (buffer-name). | 685 | ;; Don't put properties on (buffer-name). |
| 686 | (setq name (bidi-string-mark-left-to-right name))) | 686 | (setq name (copy-sequence name))) |
| 687 | (add-text-properties 0 (length name) name-props name) | 687 | (add-text-properties 0 (length name) name-props name) |
| 688 | (add-text-properties 0 (length size) size-props size) | 688 | (add-text-properties 0 (length size) size-props size) |
| 689 | (let ((name+space-width (- Buffer-menu-buffer+size-width | 689 | (let ((name+space-width (- Buffer-menu-buffer+size-width |