diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-08-18 11:53:29 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-08-18 11:53:29 -0400 |
| commit | f635daa1e056a564d13b4ef1ea8d1a4ff5b7401c (patch) | |
| tree | 6b6f721809174e63545eccd2ff502ff67356c9fa /lisp/buff-menu.el | |
| parent | 156bffbe26748a0e60ec7125da4b960a0b6b455f (diff) | |
| download | emacs-f635daa1e056a564d13b4ef1ea8d1a4ff5b7401c.tar.gz | |
Add L and R categories to standard category table, and use them.
* lisp/international/characters.el: Add L and R categories.
* lisp/subr.el (bidi-string-mark-left-to-right): Rename from
string-mark-left-to-right. Use category search.
* lisp/buff-menu.el (Buffer-menu-buffer+size): Callers changed.
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 a5b45921d28..2eac33d8157 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 - (string-mark-left-to-right tail)))) + (bidi-string-mark-left-to-right tail)))) ;; Don't put properties on (buffer-name). - (setq name (string-mark-left-to-right name))) + (setq name (bidi-string-mark-left-to-right 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 |