Mercurial > emacs

comparison lisp/international/iso-ascii.el @ 21645:40670d13dd48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customize.
author Stephen Eglen <stephen@gnu.org>
date Sat, 18 Apr 1998 16:35:35 +0000
parents 83f275dcd93a
children 1ff8dc8dbffc
comparison
equal deleted inserted replaced
21644:dd9d371a4489 21645:40670d13dd48
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 (require 'disp-table) 36 (require 'disp-table)
37 37
38 (defvar iso-ascii-convenient nil 38 (defgroup iso-ascii nil
39 "*Non-nil means `iso-ascii' should aim for convenience, not precision.") 39 "Set up char tables for ISO 8859/1 on ASCII terminals."
40 :prefix "iso-ascii-"
41 :group 'i18n)
42
43 (defcustom iso-ascii-convenient nil
44 "*Non-nil means `iso-ascii' should aim for convenience, not precision."
45 :type 'boolean
46 :group 'iso-ascii)
40 47
41 (defun iso-ascii-display (code string &optional convenient-string) 48 (defun iso-ascii-display (code string &optional convenient-string)
42 (if iso-ascii-convenient 49 (if iso-ascii-convenient
43 (setq string (or convenient-string string)) 50 (setq string (or convenient-string string))
44 (setq string (concat "{" string "}"))) 51 (setq string (concat "{" string "}")))