emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Usage of standard-display-table in MSDOS


From: Kenichi Handa
Subject: Re: Usage of standard-display-table in MSDOS
Date: Thu, 02 Sep 2010 14:20:42 +0900

In article <address@hidden>, "Ehud Karni" <address@hidden> 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
address@hidden

;; -*- 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]