Re: Usage of standard-display-table in MSDOS

[Kenichi Handa <handa@m17n.org>]

In article <201009012333.o81NXrRq016732@beta.mvs.co.il>, "Ehud Karni" <ehud@unix.mvs.co.il> writes:

As for Problem 1, I'll reply later.

> Problem 2:
> When I use `find-file-literally' to visit a file,

My change was to make (standard-display-8bit 128 255) work
as Emacs 21 for a unibyte buffer; i.e. when you visit a file
by specifying no-conversion coding-system or by using
find-file-literally.

> I attach a tar.bz2 file containing the following files:

> 1. test-heb.el - 2 functions: `display-hebrew' sets the display table.
>                               `chars-list' - show characters #x20-#xFF.

Please try the attached version of chars-list without any
other display-table setting.  Does it work?

---
Kenichi Handa
handa@m17n.org

;; -*- mode: emacs-lisp; coding: hebrew-iso-8bit-unix -*-
(defun chars-list ()
  "display all characters in range 0x20-0xFF"
  (interactive)
  (let ((svbuf (get-buffer-create "*Help*"))
	(ch 32))
    (with-current-buffer svbuf
      (erase-buffer)
      ;; Make this a unibyte buffer.
      (set-buffer-multibyte nil)
      ;; Make all 8-bit bytes (0x80..0xFF) displayed literally.
      (standard-display-8bit 128 255)
      (insert " List of all displayable characters:\n\n")
      (while (< ch 88)
	(let ((c ch))
	  (while (< c 256)
	    (insert (format " [%c]=%3dD,%3oO,%2xX"  c c c c))
	    (setq c (+ c 56))
	    (if (< c 256)
		(insert " "))))
	(insert "\n")
	(setq ch (1+ ch)))
      (goto-char (point-min)))
    (pop-to-buffer svbuf)))