From e97ca476a138411c4624d76028eefba47e974e7c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 8 Sep 2022 10:14:10 +0300 Subject: [PATCH] ; Minor improvements in 'standard-display-by-replacement-char' * lisp/disp-table.el (standard-display-by-replacement-char): Minor improvements. Suggested by Richard Stallman . --- lisp/disp-table.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/disp-table.el b/lisp/disp-table.el index c762b88cb66..f0ee3d1d780 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -337,13 +337,15 @@ which characters can be displayed and which cannot." (with-current-buffer buf (erase-buffer) (insert "\ +;; This code was produced by `standard-display-by-replacement-char'. ;; Evaluate the Lisp code below to make Emacs show the standard ;; replacement character as a substitute for each undisplayable character. ;; One way to do that is with \"C-x h M-x eval-region RET\". ;; Normally you would put this code in your Emacs initialization file, ;; perhaps conditionally based on the type of terminal, so that ;; this setup happens automatically on each startup. -(let ((tbl standard-display-table))\n") +(let ((tbl (or standard-display-table + (setq standard-display-table (make-display-table)))))\n") (while (<= ch to) (cond ((or (char-displayable-p ch) -- 2.39.2