xemacs-beta: lisp/disp-table.el annotate

annotate lisp/disp-table.el @ 4451:e214ff9f9507

Use char-tables, not vectors, to instantiate the display table specifiers. 2007-07-21 Aidan Kehoe <kehoea@parhasard.net> * mule/cyril-util.el: * mule/cyril-util.el (cyrillic-encode-koi8-r-char): Removed. * mule/cyril-util.el (cyrillic-encode-alternativnyj-char): Removed. No-one uses these functions in google.com/codesearch, GNU have a comment doubting their utility, and their implementation is trivial. * mule/cyril-util.el (cyrillic-language-alist): Reformatted. * mule/cyril-util.el (standard-display-table)): Removed. It wasn't used anyway. * mule/cyril-util.el (standard-display-cyrillic-translit): Rewrite it to work with character tables as display tables, and not to abort with an error. 2007-07-21 Aidan Kehoe <kehoea@parhasard.net> * disp-table.el: * disp-table.el (make-display-table): Moved earlier in the file in a weak attempt at making syncing with GNU easier. * disp-table.el (frob-display-table): Autoload it, accept TAG-SET, for editing specifiers. * disp-table.el (describe-display-table): Have it handle character sets. * disp-table.el (standard-display-8bit-1): * disp-table.el (standard-display-8bit): * disp-table.el (standard-display-default-1): * disp-table.el (standard-display-ascii): * disp-table.el (standard-display-g1): * disp-table.el (standard-display-graphic): * disp-table.el (standard-display-underline): * disp-table.el (standard-display-european): Rework them all to use put-char-table, remove-char-table instead of aset. Limit standard-display-g1, standard-display-graphic to TTYs; have standard-display-underline work on X11 too. * font.el (font-caps-display-table): Use put-char-table instead of aset when editing a display table. * x-init.el: * x-init.el (tab): Create the initial display table as a char-table, not a vector.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Mon, 24 Dec 2007 20:22:08 +0100
parents	262b8bb4a523
children	82f8351e71c8

rev	line source
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	1 ;;; disp-table.el --- functions for dealing with char tables.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	2
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	3 ;; Copyright (C) 1987, 1994, 1997, 2007 Free Software Foundation, Inc.
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	4 ;; Copyright (C) 1995 Sun Microsystems.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	5
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	6 ;; Author: Howard Gayle
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	7 ;; Maintainer: XEmacs Development Team
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	8 ;; Keywords: i18n, internal
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	9
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	10 ;; This file is part of XEmacs.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	11
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	12 ;; XEmacs is free software; you can redistribute it and/or modify it
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	13 ;; under the terms of the GNU General Public License as published by
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	14 ;; the Free Software Foundation; either version 2, or (at your option)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	15 ;; any later version.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	16
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	17 ;; XEmacs is distributed in the hope that it will be useful, but
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	20 ;; General Public License for more details.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	21
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	23 ;; along with XEmacs; see the file COPYING. If not, write to the
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	24 ;; Free Software Foundation, 59 Temple Place - Suite 330,
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	25 ;; Boston, MA 02111-1307, USA.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	26
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	27 ;;; Synched up with: Not synched with FSF.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	28
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	29 ;;; Commentary:
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	30
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	31 ;; Rewritten for XEmacs July 1995, Ben Wing.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	32
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	33
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	34 ;;; Code:
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	35
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	36 ;;;###autoload
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	37 (defun make-display-table ()
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	38 "Return a new, empty display table.
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	39
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	40 This returns a generic character table; previously it returned a vector, but
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	41 that was not helpful when dealing with internationalized characters above
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	42 #xFF. See `make-char-table' for details of character tables in general. To
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	43 write code that works with both vectors and character tables, add something
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	44 like the following to the beginning of your file, and use
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	45 `put-display-table' to set what a given character is displayed as, and
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	46 `get-display-table' to examine what that character is currently displayed
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	47 as:
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	48
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	49 \(defun-when-void put-display-table (range value display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	50 \"Set the value for char RANGE to VALUE in DISPLAY-TABLE. \"
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	51 (ecase (type-of display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	52 (vector
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	53 (aset display-table range value))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	54 (char-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	55 (put-char-table range value display-table))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	56
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	57 \(defun-when-void get-display-table (character display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	58 \"Find value for CHARACTER in DISPLAY-TABLE. \"
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	59 (ecase (type-of display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	60 (vector
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	61 (aref display-table character))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	62 (char-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	63 (get-char-table character display-table))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	64
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	65 In this implementation, `put-display-table' and `get-display-table' are
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	66 aliases of `put-char-table' and `get-char-table' respectively, and are
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	67 always available. "
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	68 (make-char-table 'generic))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	69
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	70 ;;;###autoload
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	71 (defalias 'put-display-table #'put-char-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	72
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	73 ;;;###autoload
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	74 (defalias 'get-display-table #'get-char-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	75
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	76 (defun describe-display-table (dt)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	77 "Describe the display table DT in a help buffer."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	78 (with-displaying-help-buffer
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	79 (lambda ()
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	80 (map-char-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	81 (lambda (range value)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	82 (cond
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	83 ((eq range t)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	84 (princ "\nAll characters: \n")
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	85 (princ (format " %S" value)))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	86 ((eq 'charset (and (symbolp range) (type-of (find-charset range))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	87 (princ (format "\n\nCharset %S: \n" (charset-name range)))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	88 (princ (format " %S" value)))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	89 ((vectorp range)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	90 (princ (format "\n\nCharset %S, row %d \n"
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	91 (charset-name (aref value 0))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	92 (aref value 1)))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	93 (princ (format " %S\n\n" value)))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	94 ((characterp range)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	95 (princ (format "\nCharacter U+%04X, %S: "
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	96 range (if (fboundp 'split-char)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	97 (split-char range)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	98 (list 'ascii (char-to-int range)))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	99 (princ (format " %S" value))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	100 nil) dt)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	101 (princ
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	102 "\n\nFor some of the various other glyphs that GNU Emacs uses the display
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	103 table for, see the XEmacs specifiers `truncation-glyph' ,
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	104 `continuation-glyph', `control-arrow-glyph', `octal-escape-glyph' and the
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	105 others described in the docstring of `make-glyph'. \n\n"))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	106
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	107
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	108 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	109 (defun describe-current-display-table (&optional domain)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	110 "Describe the display table in use in the selected window and buffer."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	111 (interactive)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	112 (or domain (setq domain (selected-window)))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	113 (let ((disptab (specifier-instance current-display-table domain)))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	114 (if disptab
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	115 (describe-display-table disptab)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	116 (message "No display table"))))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	117
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	118 ;; #### we need a generic frob-specifier function.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	119 ;; #### this also needs to be redone like frob-face-property.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	120
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	121 ;; Let me say one more time how much dynamic scoping sucks.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	122
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	123 ;;;###autoload
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	124 (defun frob-display-table (fdt-function fdt-locale &optional tag-set)
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	125 (or fdt-locale (setq fdt-locale 'global))
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	126 (or (specifier-spec-list current-display-table fdt-locale tag-set)
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	127 (add-spec-to-specifier current-display-table (make-display-table)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	128 fdt-locale tag-set))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	129 (add-spec-list-to-specifier
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	130 current-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	131 (list (cons fdt-locale
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	132 (mapcar
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	133 (lambda (fdt-x)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	134 (funcall fdt-function (cdr fdt-x))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	135 fdt-x)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	136 (cdar (specifier-spec-list current-display-table
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	137 fdt-locale tag-set)))))))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	138
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	139 (defun standard-display-8bit-1 (dt l h)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	140 (while (<= l h)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	141 (remove-char-table (int-to-char l) dt)
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	142 (setq l (1+ l))))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	143
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	144 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	145 (defun standard-display-8bit (l h &optional locale)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	146 "Display characters in the range L to H literally [sic].
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	147
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	148 GNU Emacs includes this function. There, `literally' has no good meaning.
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	149 Under XEmacs, this function makes characters with numeric values in the
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	150 range L to H display as themselves; that is, as ASCII, latin-iso8859-1,
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	151 latin-iso8859-2 or whatever. See `standard-display-default' for the inverse
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	152 function. "
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	153 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	154 (lambda (x)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	155 (standard-display-8bit-1 x l h))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	156 locale))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	157
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	158 (defun standard-display-default-1 (dt l h)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	159 "Misnamed function under XEmacs. See `standard-display-default'."
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	160 (while (<= l h)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	161 (put-char-table (int-to-char l) (format "\\%o" l) dt)
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	162 (setq l (1+ l))))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	163
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	164 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	165 (defun standard-display-default (l h &optional locale)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	166 "Display characters in the range L to H using octal escape notation.
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	167
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	168 In the XEmacs context this function is misnamed. Under GNU Emacs,
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	169 characters in the range #xA0 to #xFF display as octal escapes unless
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	170 `standard-display-european' has been called; this function neutralizes the
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	171 effects of `standard-display-european'. Under XEmacs, those characters
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	172 normally do not display as octal escapes (this ignores hackery like
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	173 specifying the X11 font character set on non-Mule builds) and this function
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	174 sets them to display as octal escapes. "
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	175 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	176 (lambda (x)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	177 (standard-display-default-1 x l h))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	178 locale))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	179
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	180 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	181 (defun standard-display-ascii (c s &optional locale)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	182 "Display character C using printable string S."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	183 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	184 (lambda (x)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	185 (put-char-table c s x))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	186 locale))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	187
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	188 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	189 (defun standard-display-g1 (c sc &optional locale)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	190 "Display character C as character SC in the g1 character set.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	191 This function assumes that your terminal uses the SO/SI characters;
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	192 it is meaningless for an X frame."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	193 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	194 (lambda (x)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	195 (put-char-table c (concat "\016" (char-to-string sc) "\017") x))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	196 locale '(tty)))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	197
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	198 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	199 (defun standard-display-graphic (c gc &optional locale)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	200 "Display character C as character GC in graphics character set.
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	201 This function assumes VT100-compatible escapes; it is meaningless for an
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	202 X frame."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	203 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	204 (lambda (x)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	205 (put-char-table c (concat "\e(0" (char-to-string gc) "\e(B") x))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	206 locale '(tty)))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	207
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	208 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	209 (defun standard-display-underline (c uc &optional locale)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	210 "Display character C as character UC plus underlining."
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	211 (frob-display-table
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	212 (lambda (x)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	213 (let (glyph)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	214 (setq glyph (make-glyph (vector 'string :data (char-to-string uc))))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	215 (set-glyph-face glyph 'underline)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	216 (put-char-table c glyph x)))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	217 locale))
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	218
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	219 ;;;###autoload
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	220 (defun standard-display-european (arg &optional locale)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	221 "Toggle display of European characters encoded with ISO 8859-1.
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	222 When enabled (the default), characters in the range of 160 to 255 display
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	223 as accented characters. With negative prefix argument, display characters in
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	224 that range as octal escapes.
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	225
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	226 If you want to work in a Western European language under XEmacs, it
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	227 shouldn't be necessary to call this function--things should just work. But
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	228 it's in a sufficient number of init files that we're not in a hurry to
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	229 remove it. "
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	230 (interactive "P")
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	231 (if (<= (prefix-numeric-value arg) 0)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	232 (frob-display-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	233 (lambda (x)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	234 (standard-display-default-1 x 160 255))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	235 locale)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	236 (frob-display-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	237 (lambda (x)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	238 (standard-display-8bit-1 x 160 255))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 219 diff changeset	239 locale)))
219 262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	240
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	241 (provide 'disp-table)
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	242
262b8bb4a523 Import from CVS: tag r20-4b8 cvs parents: diff changeset	243 ;;; disp-table.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/disp-table.el @ 4451:e214ff9f9507