mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

; Minor improvements in 'standard-display-by-replacement-char'

Browse Source 
* lisp/disp-table.el (standard-display-by-replacement-char): Minor
improvements.  Suggested by Richard Stallman <rms@gnu.org>.
This commit is contained in:
Eli Zaretskii 2022-09-08 10:14:10 +03:00
parent 740a1a3d0e
commit e97ca476a1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/disp-table.el
View File

@ -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)