From: Eli Zaretskii Date: Thu, 8 Sep 2022 07:14:10 +0000 (+0300) Subject: ; Minor improvements in 'standard-display-by-replacement-char' X-Git-Tag: emacs-29.0.90~1856^2~669 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e97ca476a138411c4624d76028eefba47e974e7c;p=emacs.git ; Minor improvements in 'standard-display-by-replacement-char' * lisp/disp-table.el (standard-display-by-replacement-char): Minor improvements. Suggested by Richard Stallman . --- 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)