master e97ca476a1: ; Minor improvements in 'standard-display-by-replacement-char'

[Eli Zaretskii]

branch: master
commit e97ca476a138411c4624d76028eefba47e974e7c
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; Minor improvements in 'standard-display-by-replacement-char'
    
    * lisp/disp-table.el (standard-display-by-replacement-char): Minor
    improvements.  Suggested by Richard Stallman <rms@gnu.org>.
---
 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 c762b88cb6..f0ee3d1d78 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)