+ '(("\N{LEFT-TO-RIGHT EMBEDDING}\\|\N{RIGHT-TO-LEFT EMBEDDING}\\|\
+\N{LEFT-TO-RIGHT OVERRIDE}\\|\N{RIGHT-TO-LEFT OVERRIDE}\\|\
+\N{LEFT-TO-RIGHT ISOLATE}\\|\N{RIGHT-TO-LEFT ISOLATE}\\|\
+\N{FIRST STRONG ISOLATE}\\|\N{POP DIRECTIONAL FORMATTING}\\|\
+\N{POP DIRECTIONAL ISOLATE}" . (0 'font-lock-warning-face t)))))
A [...] would be a lot more efficient than this "...\\|...\\|...\\|...".
+(defun bidi-reordering-character-toggle-visibility ()
+ "Toggle the visibility of bidi reordering characters."
+ (interactive)
+ (setq bidi-reordering-characters-visible
+ (not bidi-reordering-characters-visible))
Aka
(define-minor-mode bidi-reordering-characters-visible
"Make the bidi reordering characters visible."
:global t
...)
(define-obsolete-function-alias
'bidi-reordering-character-toggle-visibility
#'bidi-reordering-characters-visible "...")