master e1282c8c66: Add instructions to 'standard-display-by-replacement-char'

[Eli Zaretskii]

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

    Add instructions to 'standard-display-by-replacement-char'
    
    * lisp/disp-table.el (standard-display-by-replacement-char): Add a
    preamble to the generated code with instructions.  Suggested by
    Richard Stallman <rms@gnu.org>.
---
 lisp/disp-table.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 53dff1e709..c762b88cb6 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -336,7 +336,14 @@ which characters can be displayed and which cannot."
        first)
     (with-current-buffer buf
       (erase-buffer)
-      (insert "(let ((tbl standard-display-table))\n")
+      (insert "\
+;; 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")
       (while (<= ch to)
        (cond
         ((or (char-displayable-p ch)