Add new bidi-string-strip-control-characters function
* lisp/international/characters.el (bidi-string-strip-control-characters): New function.
This commit is contained in:
parent
e4f59a6d1a
commit
7785463c8e
2 changed files with 10 additions and 0 deletions
4
etc/NEWS
4
etc/NEWS
|
@ -960,6 +960,10 @@ The input must be encoded text.
|
|||
|
||||
* Lisp Changes in Emacs 29.1
|
||||
|
||||
** New function 'bidi-string-strip-control-characters'.
|
||||
This utility function is meant for displaying strings when it's
|
||||
essential that there's no bidirectional context.
|
||||
|
||||
---
|
||||
** The Gnus range functions have been moved to a new library, range.el.
|
||||
All the old names have been made obsolete.
|
||||
|
|
|
@ -1541,6 +1541,12 @@ Setup `char-width-table' appropriate for non-CJK language environment."
|
|||
#x2069) ; ?\N{pop directional isolate}
|
||||
"List of bidirectional control characters.")
|
||||
|
||||
(defun bidi-string-strip-control-characters (string)
|
||||
"Strip bidi control characters from STRING and return the result."
|
||||
(apply #'string (seq-filter (lambda (char)
|
||||
(not (memq char bidi-control-characters)))
|
||||
string)))
|
||||
|
||||
(defun update-glyphless-char-display (&optional variable value)
|
||||
"Make the setting of `glyphless-char-display-control' take effect.
|
||||
This function updates the char-table `glyphless-char-display',
|
||||
|
|
Loading…
Add table
Reference in a new issue