xemacs-beta: lisp/descr-text.el annotate

annotate lisp/descr-text.el @ 4820:e6dec75ded0e

Use keywords, not ordinary symbols, in the structure syntax for hash tables. lisp/ChangeLog addition: 2010-01-09 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-char-unihan-field-descriptions): * cl-macs.el: Use keywords, not ordinary symbols, in the hash table read syntax, for compatibility with Common Lisp and recent GNU Emacs. man/ChangeLog addition: 2010-01-09 Aidan Kehoe <kehoea@parhasard.net> * lispref/objects.texi (Hash Table Type): * lispref/hash-tables.texi (Introduction to Hash Tables): Use keywords, not ordinary symbols, in the hash table read syntax; document that we do accept the ordinary symbols for the sake of backward-compatiblity. 2010-01-09 Aidan Kehoe <kehoea@parhasard.net> * elhash.c: (print_hash_table, print_hash_table_data) (hash_table_instantiate) (structure_type_create_hash_table_structure_name): (syms_of_elhash): Use keywords, not ordinary symbols, in the hash table read syntax, for compatibility with Common Lisp and recent GNU Emacs. Accept the non-keyword syntax, but don't allow mixing of the two styles.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sat, 09 Jan 2010 17:28:51 +0000
parents	69cd8e2d2a88
children	b50624d3ae55

rev	line source
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1 ;;; descr-text.el --- describe text mode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	2
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	3 ;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	5
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	6 ;; Author: Boris Goldowsky <boris@gnu.org>
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	7 ;; Maintainer: FSF
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	8 ;; Keywords: faces, i18n, Unicode, multilingual
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	9
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	10 ;; This file is part of XEmacs.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	11
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	12 ;; XEmacs is free software; you can redistribute it and/or modify
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	13 ;; it under the terms of the GNU General Public License as published by
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	14 ;; the Free Software Foundation; either version 2, or (at your option)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	15 ;; any later version.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	16
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	17 ;; XEmacs is distributed in the hope that it will be useful,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	20 ;; GNU General Public License for more details.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	21
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	23 ;; along with XEmacs; see the file COPYING. If not, write to the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	25 ;; Boston, MA 02110-1301, USA.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	26
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	27 ;;; Commentary:
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	28
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	29 ;;; Describe-Text Mode.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	30
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	31 ;;; Code:
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	32
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	33 (eval-when-compile (require 'wid-edit))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	34
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	35 (require 'hyper-apropos)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	36
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	37 ;;; Describe-Text Utilities.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	38
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	39 (defun describe-text-widget (widget)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	40 "Insert text to describe WIDGET in the current buffer."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	41 ;; XEmacs change; use the widget function.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	42 (widget-create 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	43 :notify `(lambda (&rest ignore)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	44 (widget-browse ',widget))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	45 :help-echo
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	46 "mouse-2, RET: browse this widget"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	47 (symbol-name (if (symbolp widget)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	48 widget
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	49 (car widget))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	50 (widget-insert " ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	51 (widget-create 'info-link
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	52 :tag "Widget help"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	53 :help-echo
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	54 "Read widget documentation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	55 "(widget)Top"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	56
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	57 (defun describe-text-sexp (sexp)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	58 "Insert a short description of SEXP in the current buffer."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	59 ;; XEmacs change; use the widget functions.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	60 (let ((pp (condition-case signal
4605 c786c3fd0740 Listen to the byte-compiler, core Lisp. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	61 ;; XEmacs change; pp is in packages, use cl-prettyprint
c786c3fd0740 Listen to the byte-compiler, core Lisp. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	62 ;; instead.
c786c3fd0740 Listen to the byte-compiler, core Lisp. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	63 (with-output-to-string (cl-prettyprint sexp))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	64 (error (prin1-to-string signal)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	65 (when (string-match "\n\\'" pp)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	66 (setq pp (substring pp 0 (1- (length pp)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	67 (if (cond ((string-match "\n" pp)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	68 nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	69 ((> (length pp) (- (window-width) (current-column)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	70 nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	71 (t t))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	72 (widget-insert pp)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	73 (widget-create 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	74 :notify `(lambda (&rest ignore)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	75 (with-output-to-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	76 "Pp Eval Output"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	77 (princ ',pp)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	78 :help-echo
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	79 "mouse-2, RET: pretty print value in another buffer"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	80 "[Show]"))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	81
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	82 (defun describe-property-list (properties)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	83 "Insert a description of PROPERTIES in the current buffer.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	84 PROPERTIES should be a list of overlay or text properties.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	85 The `category', `face' and `font-lock-face' properties are made
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	86 into help buttons that call `describe-text-category' or
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	87 `describe-face' when pushed."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	88 ;; Sort the properties by the size of their value.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	89 (dolist (elt (sort (let (ret)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	90 (while properties
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	91 (push (list (pop properties) (pop properties)) ret))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	92 ret)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	93 (lambda (a b) (string< (prin1-to-string (nth 0 a) t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	94 (prin1-to-string (nth 0 b) t)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	95 (let ((key (nth 0 elt))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	96 (value (nth 1 elt)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	97 ;; XEmacs change; use #'widget-insert, #'widget-create
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	98 (widget-insert (propertize (format " %-20s " key)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	99 'face 'hyper-apropos-heading))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	100 (cond ((eq key 'category)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	101 (widget-create
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	102 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	103 :notify `(lambda (&rest ignore)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	104 (describe-text-category ',value))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	105 :help-echo "mouse-2, RET: describe this category"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	106 (symbol-name value)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	107 ((memq key '(face font-lock-face mouse-face))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	108 (widget-create
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	109 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	110 :notify (lexical-let
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	111 ((value-name (symbol-name value)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	112 (lambda (&rest ignore)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	113 (hyper-describe-face (intern value-name))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	114 :help-echo "mouse-2, RET: describe this face"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	115 (format "%S" value)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	116 ((widgetp value)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	117 (describe-text-widget value))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	118 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	119 (describe-text-sexp value))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	120 (insert "\n")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	121
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	122 ;;; Describe-Text Commands.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	123
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	124 (defun describe-text-category (category)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	125 "Describe a text property category."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	126 (interactive "SCategory: ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	127 ; (help-setup-xref (list #'describe-text-category category) (interactive-p))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	128 (save-excursion
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	129 (with-output-to-temp-buffer "Help"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	130 (set-buffer standard-output)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	131 (insert "Category " (format "%S" category) ":\n\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	132 (describe-property-list (symbol-plist category))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	133 (goto-char (point-min)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	134
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	135 ;;;###autoload
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	136 (defun describe-text-properties (pos &optional output-buffer)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	137 "Describe widgets, buttons, overlays and text properties at POS.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	138 Interactively, describe them for the character after point.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	139 If optional second argument OUTPUT-BUFFER is non-nil,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	140 insert the output into that buffer, and don't initialize or clear it
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	141 otherwise."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	142 (interactive "d")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	143 (if (>= pos (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	144 (error "No character follows specified position"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	145 (if output-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	146 (describe-text-properties-1 pos output-buffer)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	147 (if (not (or (text-properties-at pos) ; (overlays-at pos)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	148 ;; XEmacs change.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	149 (extents-at pos)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	150 (message "This is plain text.")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	151 (let ((buffer (current-buffer))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	152 (target-buffer "Help"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	153 (when (eq buffer (get-buffer target-buffer))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	154 (setq target-buffer "Help<2>"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	155 (save-excursion
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	156 (with-output-to-temp-buffer target-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	157 (set-buffer standard-output)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	158 (setq output-buffer (current-buffer))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	159 (insert "Text content at position " (format "%d" pos) ":\n\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	160 (with-current-buffer buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	161 (describe-text-properties-1 pos output-buffer))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	162 (goto-char (point-min))))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	163
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	164 (defun describe-text-properties-1 (pos output-buffer)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	165 (let* ((properties (text-properties-at pos))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	166 ;; XEmacs change; extents, not overlays.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	167 (extents (extents-at pos))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	168 (wid-field (get-char-property pos 'field))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	169 (wid-button (get-char-property pos 'button))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	170 (wid-doc (get-char-property pos 'widget-doc))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	171 ;; If button.el is not loaded, we have no buttons in the text.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	172 ;; XEmacs change; use the #'and-fboundp, #'declare-fboundp macros.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	173 (button (and-fboundp 'button-at (button-at pos)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	174 (button-type (and button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	175 (declare-fboundp (button-type button))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	176 (button-label (and button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	177 (declare-fboundp (button-label button))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	178 (widget (or wid-field wid-button wid-doc)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	179 (with-current-buffer output-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	180 ;; Widgets
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	181 (when (widgetp widget)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	182 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	183 (insert (cond (wid-field "This is an editable text area")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	184 (wid-button "This is an active area")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	185 (wid-doc "This is documentation text")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	186 (insert " of a ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	187 (describe-text-widget widget)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	188 (insert ".\n\n"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	189 ;; Buttons
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	190 (when (and button (not (widgetp wid-button)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	191 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	192 (insert "Here is a `" (format "%S" button-type)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	193 "' button labeled `" button-label "'.\n\n"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	194 ;; Overlays
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	195 (when extents
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	196 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	197 (if (eq (length extents) 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	198 (insert "There is an extent here:\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	199 (insert "There are " (format "%d" (length extents))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	200 " overlays here:\n"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	201 (dolist (extent extents)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	202 (insert " From " (format "%d" (extent-start-position extent))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	203 " to " (format "%d" (extent-end-position extent)) "\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	204 (describe-property-list (extent-properties extent)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	205 (insert "\n"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	206 ;; Text properties
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	207 (when properties
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	208 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	209 (insert "There are text properties here:\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	210 (describe-property-list properties)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	211
4617 2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	212 (defcustom describe-char-unicodedata-file
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	213 ;; XEmacs change; initialise this by default, using Perl.
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	214 (let ((have-perl
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	215 (member-if
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	216 #'(lambda (path)
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	217 (file-exists-p (format "%s%cperl" path directory-sep-char)))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	218 exec-path))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	219 installprivlib res)
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	220 (when have-perl
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	221 (setq installprivlib
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	222 (with-string-as-buffer-contents ""
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	223 (shell-command "perl -V:installprivlib" t)
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	224 ;; 1+ because buffer offsets start at one.
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	225 (delete-region 1 (1+ (length "installprivlib='")))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	226 ;; Delete the final newline, semicolon and quotation mark.
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	227 (delete-region (- (point-max) 3) (point-max))))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	228 (cond
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	229 ((file-exists-p
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	230 (setq res
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	231 (format "%s%cunicore%cUnicodeData.txt"
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	232 installprivlib directory-sep-char directory-sep-char))))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	233 ((file-exists-p
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	234 (setq res
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	235 (format "%s%cunicode%cUnicodeData.txt"
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	236 installprivlib directory-sep-char directory-sep-char)))))
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	237 res))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	238 "Location of Unicode data file.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	239 This is the UnicodeData.txt file from the Unicode Consortium, used for
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	240 diagnostics. If it is non-nil `describe-char' will print data
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	241 looked up from it. This facility is mostly of use to people doing
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	242 multilingual development.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	243
4617 2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	244 This is a fairly large file, typically installed with Perl.
2d9ba8d925b2 Backed out changeset 16c9098dd3d2. Aidan Kehoe <kehoea@parhasard.net> parents: 4572 diff changeset	245 At the time of writing it is at the URL
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	246 `http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	247
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	248 It is possible to build a DBM or Berkeley index cache for this file, so that
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	249 it is not necessary to parse the whole file at run time. See
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	250 `unidata-initialize-unicodedata-database'.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	251
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	252 See also `describe-char-unihan-file' for the complementary file describing
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	253 East Asian Han characters and their associated information."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	254
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	255 :group 'mule
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	256 :type '(choice (const :tag "None" nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	257 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	258
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	259 ;; XEmacs additions, from here until `describe-char-unicode-data'
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	260 (defcustom describe-char-use-cache t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	261 "Whether `describe-char' should use a DBM or Berkeley DB cache.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	262 This speeds up navigation of `describe-char-unicodedata-file', and makes
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	263 navigation of `describe-char-unihan-file' reasonable."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	264 :group 'mule
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	265 :type '(choice (const :tag "None" nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	266 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	267
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	268 (defcustom describe-char-unihan-file nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	269 "Location of Unihan file.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	270 This the Unihan.txt file from the Unicode Consortium, used for diagnostics.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	271 If it is non-nil `describe-char' can print data looked up from it. This
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	272 facility is of use to people doing multilingual development, to those
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	273 learning Chinese or Japanese, and to a lesser extent to those learning
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	274 Korean or Vietnamese.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	275
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	276 This is large file, typically not installed with the operating system. At
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	277 the time of writing it is at the URL
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	278 `http://www.unicode.org/Public/UNIDATA/UniHan.txt'.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	279
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	280 In contrast with `describe-char-unicodedata-file', `describe-char' will not
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	281 load this entire file and parse it if it is available. It requires a
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	282 pre-initialized cache; see `unidata-initialize-unihan-database'. "
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	283 :group 'mule
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	284 :type '(choice (const :tag "None" nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	285 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	286
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	287 ;; XEmacs addition
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	288 (defvar unidata-database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	289 (or (and (featurep 'dbm) 'dbm)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	290 (and (featurep 'berkeley-db) 'berkeley-db))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	291 "The DB format to use for the `describe-char' cache, or nil if no cache.")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	292
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	293 (defvar describe-char-unihan-field-descriptions
4820 e6dec75ded0e Use keywords, not ordinary symbols, in the structure syntax for hash tables. Aidan Kehoe <kehoea@parhasard.net> parents: 4618 diff changeset	294 #s(hash-table :test equal :data
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	295 ("kAccountingNumeric"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	296 "Value as an an accounting numeral"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	297 "kBigFive"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	298 "Big Five mapping (excluding ETEN, etc. extensions)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	299 "kCCCII"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	300 "Hex CCCII code, for libraries in the Republic of China"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	301 "kCNS1986"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	302 "Hex CNS 11643-1986 mapping, for the Republic of China"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	303 "kCNS1992"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	304 "Hex CNS 11643-1986 mapping, for the Republic of China"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	305 "kCangjie"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	306 "Cangjie input code for the character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	307 "kCantonese"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	308 "Cantonese pronunciation, using jyutping"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	309 "kCheungBauer"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	310 "Radical-stroke index, cangjie input code, \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	311 and Cantonese readings"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	312 "kCheungBauerIndex"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	313 "Index of information about this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	314 in Cheung & Bauer, 2002"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	315 "kCihaiT"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	316 "Lookup information for this character in the \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	317 Cihai dictionary ISBN 962-231-005-2."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	318 "kCompatibilityVariant"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	319 "Compatibility decomposition for this character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	320 "kCowles"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	321 "Lookup information for this character in the \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	322 Cowles dictionary ISBN 962-231-005-2."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	323 "kDaeJaweon"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	324 "Lookup information for this character in the \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	325 Dae Jaweon (Korean) dictionary, 1988"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	326 "kDefinition"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	327 "Definition for this character in modern written Chinese"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	328 "kEACC"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	329 "The EACC (= CCCII, as used by the \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	330 US library of congress) code for this character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	331 "kFenn"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	332 "Frequency information for this character from \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	333 Fenn's Chinese-English dictionary, 1979"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	334 "kFennIndex"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	335 "Lookup information for this character in \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	336 Fenn's Chinese-English dictionary, 1979"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	337 "kFourCornerCode"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	338 "Four-corner lookup code for this character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	339 "kFrequency"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	340 "Frequency information from traditional \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	341 Chinese USENET postings"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	342 "kGB0" "GB 2312-80 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	343 "kGB1" "GB 12345-90 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	344 "kGB3" "GB 7589-87 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	345 "kGB5" "GB 7590-87 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	346 "kGB7" "GB 8565-89 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	347 ;; Identical to the previous information?!
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	348 "kGB8" "GB 8565-89 mapping, ku/ten"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	349 "kGSR"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	350 "Lookup information for this character in \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	351 Karlgern's Grammata Serica Recensa"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	352 "kGradeLevel"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	353 "The first grade in the HK school system \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	354 where knowledge of this character is expected"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	355 "kHDZRadBreak" "Whether Hanyu Da Zidian has a radical break \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	356 beginning with this character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	357 "kHKGlyph" "Lookup information for this character in the HK \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	358 glyph reference, ISBN 962-949-040-4"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	359 "kHKSCS" "Mapping to the HK Supplementary Character Set for \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	360 Big Five."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	361 "kHanYu" "Character lookup information for Hanyu Da Zidian, \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	362 `Great Chinese Character Dictionary'"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	363 "kHangul" "Korean pronunciation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	364 "kHanyuPinlu" "Pronunciation and frequency info, from Xiandai\
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	365 Hanyu Pinlu Cidian"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	366 "kIBMJapan" "IBM Japanese mapping"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	367 "kIICore" "Is this character in the core East Asian \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	368 ideograph set from the IRG?"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	369 "kIRGDaeJaweon" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	370 in the Dae Jaweon (Korean) dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	371 "kIRGDaiKanwaZiten" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	372 in the Morohashi (Japanese) dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	373 "kIRGHanyuDaZidian" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	374 in the Hanyu Da Zidian (Chinese) dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	375 "kIRGKangXi" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	376 in the KangXi dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	377 "kIRG_GSource" "PRC character source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	378 "kIRG_HSource" "Hong Kong character source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	379 "kIRG_JSource" "Japanese character source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	380 "kIRG_KPSource" "Korean character source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	381 "kIRG_KSource" "Republic of Korean character source\
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	382 information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	383 "kIRG_TSource" "Republic of China character source \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	384 information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	385 "kIRG_USource" "Unicode (standards body) source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	386 "kIRG_VSource" "Vietnamese character source information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	387 "kJIS0213" "JIS X 0213-2000 mapping in min,ku,ten form"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	388 "kJapaneseKun" "Native Japanese pronunciation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	389 "kJapaneseOn" "Sino-Japanese pronunciation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	390 "kJis0" "JIS X 0208-1990 mapping in ku/ten form"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	391 "kJis1" "JIS X 0212-1990 mapping in ku/ten form"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	392 "kKPS0" "KPS 9566-97 mapping in hexadecimal"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	393 "kKPS1" "KPS 10721-2000 mapping in hexadecimal"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	394 "kKSC0" "KS X 1001:1992 (KS C 5601-1989) mapping \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	395 in ku/ten form"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	396 "kKSC1" "KS X 1002:1991 (KS C 5657-1991) mapping \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	397 in ku/ten form"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	398 "kKangXi" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	399 in the KangXi (Chinese) dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	400 "kKarlgren" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	401 in Karlgren's dictionary, 1974"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	402 "kKorean" "Pronunciation in Korean"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	403 "kLau" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	404 in Lau's Cantonese-English dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	405 "kMainlandTelegraph" "PRC telegraph code"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	406 "kMandarin" "Mandarin pronunciation in Pinyin"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	407 "kMatthews" "Lookup information for Robert Mathews' \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	408 Chinese-English dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	409 "kMeyerWempe" "Lookup information for Bernard Meyer and \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	410 Theodore Wempe's dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	411 ;; Identical to kIRGDaiKanwaZiten?!?
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	412 "kMorohashi" "Lookup information for this character \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	413 in the Morohashi (Japanese) dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	414 "kNelson" "Lookup information for this character in \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	415 Nelson's Japanese-English dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	416 "kOtherNumeric" "Esoteric numeric value"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	417 "kPhonetic" "Phonetic index data"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	418 "kPrimaryNumeric" "Standard numeric value"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	419 "kPseudoGB1" "Fake GB 12345-90, for the purposes of \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	420 Unicode inclusion"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	421 "kRSAdobe_Japan1_6" "Adobe-Japan1-6 information for \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	422 the character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	423 "kRSJapanese" "Radical/stroke count for Japanese"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	424 "kRSKanWa" "Morohashi radical/stroke count"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	425 "kRSKangXi" "KangXi radical/stroke count"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	426 "kRSKorean" "Korean radical/stroke count"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	427 "kRSUnicode" "Unicode radical/stroke count"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	428 "kSBGY" "Lookup information for this character in the Song \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	429 Ben Guang Yun Chinese dictionary"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	430 "kSemanticVariant" "Semantic variant character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	431 "kSimplifiedVariant" "Simplified variant character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	432 "kSpecializedSemanticVariant" "Specialized semantic variant"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	433 "kTaiwanTelegraph" "Taiwanese telegraph code"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	434 "kTang" "Tang dynasty pronunciation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	435 "kTotalStrokes" "Total number of strokes"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	436 "kTraditionalVariant" "Traditional variant character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	437 "kVietnamese" "Vietnamese pronunciation"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	438 "kXerox" "Xerox code"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	439 "kZVariant" "Z-variant code(s)"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	440 "A map from symbolic Unihan field names to English-language descriptions.")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	441
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	442 (defun unidata-generate-database-file-name (unidata-file-name size
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	443 database-format)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	444 "Return a filename suitable for storing the cache for UNIDATA-FILE-NAME."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	445 (expand-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	446 (format "~%c.xemacs%c%s-%s" directory-sep-char directory-sep-char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	447 (md5 (format "%s-%d" unidata-file-name size))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	448 database-format)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	449
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	450 (defun unidata-initialize-unicodedata-database (unidata-file-name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	451 "Init the berkeley or gdbm lookup table for UNIDATA-FILE-NAME.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	452
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	453 The table is a (non-SQL) database with information on the file offset of
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	454 each Unicode code point described in UNIDATA-FILE-NAME. In the normal
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	455 course of events UNIDATA-FILE-NAME is the value of
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	456 `unidata-default-file-name', which see. "
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	457 (check-argument-type #'file-readable-p unidata-file-name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	458 (unless unidata-database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	459 (error 'unimplemented "No (non-SQL) DB support available"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	460 (let* ((database-format unidata-database-format)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	461 (size (eighth (file-attributes unidata-file-name)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	462 (database-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	463 (unidata-generate-database-file-name unidata-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	464 size database-format))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	465 (database-handle (open-database database-file-name database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	466 nil "rw+" #o644 'no-conversion-unix))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	467 (coding-system-for-read 'no-conversion-unix)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	468 (buffer-size 32768)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	469 (offset-start 0)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	470 (offset-end buffer-size)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	471 (range-information (make-range-table 'start-closed-end-closed))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	472 (range-staging (make-hash-table :test 'equal))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	473 (message "Initializing UnicodeData database cache: ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	474 (loop-count 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	475 range-startinfo)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	476 (with-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	477 (progress-feedback-with-label 'describe-char-unicodedata-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	478 "%s" 0 message)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	479 (while (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	480 (delete-region (point-min) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	481 (insert-file-contents unidata-file-name nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	482 offset-start offset-end)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	483 ;; If we've reached the end of the data, pass nil back to
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	484 ;; the while loop test.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	485 (not (= (point-min) (point-max))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	486
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	487 (when (= buffer-size (- (point-max) (point-min)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	488 ;; If we're in the body of the file, and there's a trailing
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	489 ;; incomplete end-line, delete it, and adjust offset-end
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	490 ;; appropriately.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	491 (goto-char (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	492 (search-backward "\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	493 (forward-char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	494 (delete-region (point) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	495 (setq offset-end (+ offset-start (- (point) (point-min)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	496
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	497 (progress-feedback-with-label 'describe-char-unicodedata-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	498 "%s" (truncate
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	499 (* (/ offset-start size) 100))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	500 (concat message
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	501 (make-string
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	502 (mod loop-count 39) ?.)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	503 (incf loop-count)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	504 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	505 (while (re-search-forward
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	506 #r"^$[0-9A-F]\{4,6\}$;$[^;]$;.$" nil t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	507 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	508 ((and (> (- (match-end 2) (match-beginning 2)) 7)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	509 (equal (substring (match-string 2) -7)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	510 " First>"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	511 ;; Start of a range. Save the start info in range-staging.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	512 (puthash (substring (match-string 2) 0 -7)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	513 (list (string-to-int (match-string 1) 16)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	514 (+ offset-start (1- (match-beginning 0))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	515 range-staging))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	516 ((and (> (- (match-end 2) (match-beginning 2)) 7)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	517 (equal (substring (match-string 2) -6)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	518 " Last>"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	519 ;; End of a range. Combine with the start info, save it to the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	520 ;; range-information range table.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	521 (setq range-startinfo
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	522 (gethash (substring (match-string 2) 0 -6) range-staging))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	523 (assert range-startinfo nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	524 "Unexpected order for range information.")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	525 (put-range-table
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	526 (first range-startinfo)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	527 (string-to-int (match-string 1) 16)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	528 (list (second range-startinfo)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	529 (+ offset-start (1- (match-end 0))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	530 range-information)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	531 (remhash (substring (match-string 2) 0 -6) range-staging))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	532 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	533 ;; Normal character. Save the associated information in the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	534 ;; database directly.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	535 (put-database (match-string 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	536 (format "(%d %d)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	537 (+ offset-start (1- (match-beginning 0)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	538 (+ offset-start (1- (match-end 0))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	539 database-handle))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	540 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	541 (setq offset-start offset-end
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	542 offset-end (+ buffer-size offset-end))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	543 ;; Save the range information as such in the database.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	544 (put-database "range-information"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	545 (let ((print-readably t))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	546 (prin1-to-string range-information))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	547 database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	548 (close-database database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	549 (progress-feedback-with-label 'describe-char-unicodedata-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	550 "%s" 100 message)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	551 database-file-name))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	552
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	553 (defun unidata-initialize-unihan-database (unihan-file-name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	554 "Init the berkeley or gdbm lookup table for UNIHAN-FILE-NAME.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	555
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	556 The table is a (non-SQL) database with information on the file offset of
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	557 each Unicode code point described in Unicode.org's Han character repository.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	558 Unihan.txt (see `describe-char-unihan-file', the usual argument to this
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	559 function) is very large, and manipulating it directly can be tedious and
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	560 slow, so creating this cache makes it reasonable to display Unihan info in
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	561 the output of \\[universal-argument] \\[what-cursor-position] . "
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	562 (check-argument-type #'file-readable-p unihan-file-name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	563 (unless unidata-database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	564 (error 'unimplemented "No (non-SQL) DB support available"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	565 (let* ((database-format unidata-database-format)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	566 (size (eighth (file-attributes unihan-file-name)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	567 (database-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	568 (unidata-generate-database-file-name unihan-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	569 size database-format))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	570 (database-handle (open-database database-file-name database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	571 nil "rw+" #o644 'no-conversion-unix))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	572 (coding-system-for-read 'no-conversion-unix)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	573 (buffer-size 65536)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	574 (offset-start 0)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	575 (offset-end buffer-size)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	576 (message "Initializing Unihan database cache: ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	577 (loop-count 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	578 trailing-unicode leading-unicode character-start character-end)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	579 (with-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	580 (progress-feedback-with-label 'describe-char-unihan-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	581 "%s" 0 message)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	582 (while (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	583 (delete-region (point-min) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	584 (insert-file-contents unihan-file-name nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	585 offset-start offset-end)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	586 ;; If we've reached the end of the data, return nil to the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	587 ;; while.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	588 (not (= (point-min) (point-max))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	589
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	590 (incf loop-count)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	591 (progress-feedback-with-label 'describe-char-unihan-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	592 "%s" (truncate
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	593 (* (/ offset-start size) 100))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	594 (concat message
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	595 (make-string
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	596 (mod loop-count 44) ?.)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	597 (block 'dealing-with-chars
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	598 (when (= buffer-size (- (point-max) (point-min)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	599 ;; If we're in the body of the file, we need to delete the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	600 ;; character info for the last character, and set offset-end
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	601 ;; appropriately. Otherwise, we may not be able to pick where
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	602 ;; the actual description of a character ends and
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	603 ;; begins.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	604 ;;
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	605 ;; This breaks if any single Unihan character description is
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	606 ;; greater than the buffer size in length.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	607 (goto-char (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	608 (beginning-of-line)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	609
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	610 (when (< (- (point-max) (point)) (eval-when-compile
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	611 (length "U+ABCDEF\t")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	612 ;; If the character ID of the last line may have been cut off,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	613 ;; we need to delete all of that line here.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	614 (delete-region (point) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	615 (forward-line -1))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	616
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	617 (when (looking-at "^\$U\\+[0-9A-F]\\{4,6\\}\$\t")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	618 (setq trailing-unicode (match-string 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	619 trailing-unicode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	620 (format "^%s\t" (regexp-quote trailing-unicode)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	621
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	622 (end-of-line)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	623
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	624 ;; Go back until we hit a line that doesn't start with this
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	625 ;; character info.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	626 (while (re-search-backward trailing-unicode nil t))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	627
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	628 ;; The re-search-backward failed, so point is still at the end
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	629 ;; of the last match. Move to its beginning.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	630 (beginning-of-line)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	631 (delete-region (point) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	632 (setq offset-end (+ offset-start (- (point) (point-min))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	633 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	634 (while t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	635 (when (= (point) (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	636 ;; We're at the end of this part of the file.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	637 (return-from 'dealing-with-chars))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	638
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	639 (unless (re-search-forward "^\$U\\+[0-9A-F]\\{4,6\\}\$\t"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	640 nil t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	641 ;; We're probably in the comments at the start of the file. No
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	642 ;; need to look for character info.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	643 (return-from 'dealing-with-chars))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	644
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	645 ;; Store where the character started.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	646 (beginning-of-line)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	647 (setq character-start (point))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	648
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	649 (setq leading-unicode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	650 (format "^%s\t" (regexp-quote (match-string 1))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	651
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	652 ;; Loop until we get past this entry.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	653 (while (re-search-forward leading-unicode nil t))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	654
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	655 ;; Now, store the information.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	656 (setq leading-unicode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	657 (string-to-number (substring leading-unicode 3) 16)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	658 leading-unicode (format "%04X" leading-unicode)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	659 character-end (prog2 (end-of-line) (point)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	660 (put-database leading-unicode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	661 (format "(%d %d)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	662 (+ offset-start (1- character-start))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	663 (+ offset-start (1- character-end)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	664 database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	665 (forward-line)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	666 (setq offset-start offset-end
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	667 offset-end (+ buffer-size offset-end))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	668 (close-database database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	669 (progress-feedback-with-label 'describe-char-unihan-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	670 "%s" 100
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	671 message)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	672 database-file-name))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	673 ;; End XEmacs additions.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	674
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	675 (defun describe-char-unicode-data (char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	676 "Return a list of Unicode data for unicode CHAR.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	677 Each element is a list of a property description and the property value.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	678 The list is null if CHAR isn't found in `describe-char-unicodedata-file'."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	679 (when describe-char-unicodedata-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	680 (unless (file-exists-p describe-char-unicodedata-file)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	681 (error 'file-error
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	682 (format "`unicodedata-file' %s not found"
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	683 describe-char-unicodedata-file)))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	684 ;; XEmacs change; accept a character argument, use the cache if
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	685 ;; appropriate.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	686 (when (characterp char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	687 (setq char (encode-char char 'ucs)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	688 (with-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	689 (if describe-char-use-cache
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	690 ;; Use the database info.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	691 (let ((database-handle (open-database
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	692 (unidata-generate-database-file-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	693 describe-char-unicodedata-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	694 (eighth (file-attributes
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	695 describe-char-unicodedata-file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	696 unidata-database-format)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	697 unidata-database-format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	698 nil "r"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	699 #o644 'no-conversion-unix))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	700 (coding-system-for-read 'no-conversion-unix)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	701 key lookup)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	702 (unless database-handle
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	703 (error 'io-error
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	704 (format "Could not open %s as a %s database"
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	705 (unidata-generate-database-file-name
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	706 describe-char-unicodedata-file
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	707 (eighth (file-attributes
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	708 describe-char-unicodedata-file))
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	709 unidata-database-format)
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	710 unidata-database-format)))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	711 (setq key (format "%04X" char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	712 lookup (get-database key database-handle))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	713 (if lookup
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	714 ;; Okay, we have information on that character in particular.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	715 (progn (setq lookup (read lookup))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	716 (insert-file-contents describe-char-unicodedata-file nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	717 (first lookup) (second lookup)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	718 ;; No information on that character in particular. Do we have
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	719 ;; range information? If so, load and check for our desired
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	720 ;; character.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	721 (setq lookup (get-database "range-information" database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	722 lookup (if lookup (read lookup))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	723 lookup (if lookup (get-range-table char lookup)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	724 (when lookup
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	725 (insert-file-contents describe-char-unicodedata-file nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	726 (first lookup) (second lookup))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	727 (close-database database-handle))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	728
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	729 ;; Otherwise, insert the whole file (the FSF approach).
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	730 (set-buffer (get-buffer-create " Unicode Data"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	731 (when (zerop (buffer-size))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	732 ;; Don't use -literally in case of DOS line endings.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	733 (insert-file-contents describe-char-unicodedata-file)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	734
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	735 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	736 (let ((hex (format "%04X" char))
4474 78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	737 found first last unihan-match unihan-info unihan-database-handle
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	738 (coding-system-for-read 'no-conversion-unix))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	739 (if (re-search-forward (concat "^" hex) nil t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	740 (setq found t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	741 ;; It's not listed explicitly. Look for ranges, e.g. CJK
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	742 ;; ideographs, and check whether it's in one of them.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	743 (while (and (re-search-forward "^\$[^;]+\$;[^;]+First>;" nil t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	744 (>= char (setq first
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	745 (string-to-number (match-string 1) 16)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	746 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	747 (forward-line 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	748 (looking-at "^\$[^;]+\$;[^;]+Last>;")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	749 (> char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	750 (setq last
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	751 (string-to-number (match-string 1) 16))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	752 (if (and first (>= char first)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	753 last (<= char last))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	754 (setq found t)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	755 (if found
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	756 (let ((fields (mapcar (lambda (elt)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	757 (if (> (length elt) 0)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	758 elt))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	759 (cdr (split-string
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	760 (buffer-substring
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	761 (line-beginning-position)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	762 (line-end-position))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	763 ";")))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	764 ;; The length depends on whether the last field was empty.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	765 (unless (or (= 13 (length fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	766 (= 14 (length fields)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	767 (error 'invalid-argument
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	768 (format "Invalid contents in %s"
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	769 describe-char-unicodedata-file)))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	770 ;; The field names and values lists are slightly
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	771 ;; modified from Mule-UCS unidata.el.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	772 (apply #'list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	773 (list "Name" (let ((name (nth 0 fields)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	774 ;; Check for <..., First>, <..., Last>
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	775 (if (string-match "\\`\$<[^,]+\$," name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	776 (concat (match-string 1 name) ">")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	777 name)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	778 (list "Category"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	779 (cdr (assoc
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	780 (nth 1 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	781 '(("Lu" . "uppercase letter")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	782 ("Ll" . "lowercase letter")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	783 ("Lt" . "titlecase letter")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	784 ("Mn" . "non-spacing mark")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	785 ("Mc" . "spacing-combining mark")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	786 ("Me" . "enclosing mark")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	787 ("Nd" . "decimal digit")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	788 ("Nl" . "letter number")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	789 ("No" . "other number")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	790 ("Zs" . "space separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	791 ("Zl" . "line separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	792 ("Zp" . "paragraph separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	793 ("Cc" . "other control")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	794 ("Cf" . "other format")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	795 ("Cs" . "surrogate")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	796 ("Co" . "private use")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	797 ("Cn" . "not assigned")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	798 ("Lm" . "modifier letter")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	799 ("Lo" . "other letter")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	800 ("Pc" . "connector punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	801 ("Pd" . "dash punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	802 ("Ps" . "open punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	803 ("Pe" . "close punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	804 ("Pi" . "initial-quotation punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	805 ("Pf" . "final-quotation punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	806 ("Po" . "other punctuation")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	807 ("Sm" . "math symbol")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	808 ("Sc" . "currency symbol")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	809 ("Sk" . "modifier symbol")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	810 ("So" . "other symbol")))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	811 (list "Combining class"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	812 (cdr (assoc
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	813 (string-to-number (nth 2 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	814 '((0 . "Spacing")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	815 (1 . "Overlays and interior")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	816 (7 . "Nuktas")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	817 (8 . "Hiragana/Katakana voicing marks")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	818 (9 . "Viramas")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	819 (10 . "Start of fixed position classes")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	820 (199 . "End of fixed position classes")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	821 (200 . "Below left attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	822 (202 . "Below attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	823 (204 . "Below right attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	824 (208 . "Left attached (reordrant around \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	825 single base character)")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	826 (210 . "Right attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	827 (212 . "Above left attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	828 (214 . "Above attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	829 (216 . "Above right attached")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	830 (218 . "Below left")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	831 (220 . "Below")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	832 (222 . "Below right")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	833 (224 . "Left (reordrant around single base \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	834 character)")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	835 (226 . "Right")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	836 (228 . "Above left")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	837 (230 . "Above")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	838 (232 . "Above right")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	839 (233 . "Double below")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	840 (234 . "Double above")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	841 (240 . "Below (iota subscript)")))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	842 (list "Bidi category"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	843 (cdr (assoc
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	844 (nth 3 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	845 '(("L" . "Left-to-Right")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	846 ("LRE" . "Left-to-Right Embedding")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	847 ("LRO" . "Left-to-Right Override")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	848 ("R" . "Right-to-Left")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	849 ("AL" . "Right-to-Left Arabic")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	850 ("RLE" . "Right-to-Left Embedding")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	851 ("RLO" . "Right-to-Left Override")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	852 ("PDF" . "Pop Directional Format")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	853 ("EN" . "European Number")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	854 ("ES" . "European Number Separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	855 ("ET" . "European Number Terminator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	856 ("AN" . "Arabic Number")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	857 ("CS" . "Common Number Separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	858 ("NSM" . "Non-Spacing Mark")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	859 ("BN" . "Boundary Neutral")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	860 ("B" . "Paragraph Separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	861 ("S" . "Segment Separator")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	862 ("WS" . "Whitespace")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	863 ("ON" . "Other Neutrals")))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	864 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	865 "Decomposition"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	866 (if (nth 4 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	867 (let* ((parts (split-string (nth 4 fields)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	868 (info (car parts)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	869 (if (string-match "\\`<\$.+\$>\\'" info)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	870 (setq info (match-string 1 info))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	871 (setq info nil))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	872 (if info (setq parts (cdr parts)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	873 ;; Maybe printing ? for unrepresentable unicodes
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	874 ;; here and below should be changed?
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	875 (setq parts (mapconcat
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	876 (lambda (arg)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	877 (string (or (decode-char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	878 'ucs
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	879 (string-to-number arg 16))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	880 ??)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	881 parts " "))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	882 (concat info parts))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	883 (list "Decimal digit value"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	884 (nth 5 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	885 (list "Digit value"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	886 (nth 6 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	887 (list "Numeric value"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	888 (nth 7 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	889 (list "Mirrored"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	890 (if (equal "Y" (nth 8 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	891 "yes"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	892 (list "Old name" (nth 9 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	893 (list "ISO 10646 comment" (nth 10 fields))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	894 (list "Uppercase" (and (nth 11 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	895 (string (or (decode-char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	896 'ucs
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	897 (string-to-number
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	898 (nth 11 fields) 16))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	899 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	900 (list "Lowercase" (and (nth 12 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	901 (string (or (decode-char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	902 'ucs
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	903 (string-to-number
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	904 (nth 12 fields) 16))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	905 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	906 (list "Titlecase" (and (nth 13 fields)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	907 (string (or (decode-char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	908 'ucs
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	909 (string-to-number
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	910 (nth 13 fields) 16))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	911 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	912
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	913 ;; XEmacs addition.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	914 ;; If we're aware the character is a Han character, provide
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	915 ;; the Unihan information, or tell the user that it's not
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	916 ;; available.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	917 (if (and (> (length (nth 0 fields)) 13)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	918 (equal "<CJK Ideograph"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	919 (substring (nth 0 fields) 0 14)))
4474 78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	920 (if (and describe-char-unihan-file
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	921 (setq unihan-database-handle
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	922 (open-database
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	923 (unidata-generate-database-file-name
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	924 describe-char-unihan-file
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	925 (eighth (file-attributes
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	926 describe-char-unihan-file))
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	927 unidata-database-format)
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	928 unidata-database-format
78738a40e31e Don't leak the Unihan database handle when looking up non-Han characters. Aidan Kehoe <kehoea@parhasard.net> parents: 4473 diff changeset	929 nil "r" #o644 'no-conversion-unix))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	930 (setq unihan-match
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	931 (get-database (format "%04X" char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	932 unihan-database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	933 unihan-match
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	934 (and unihan-match (read unihan-match))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	935 (with-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	936 (insert-file-contents describe-char-unihan-file
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	937 nil (first unihan-match)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	938 (second unihan-match))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	939 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	940 (while (re-search-forward
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	941 "^U\\+[0-9A-F]+\t\$k[^\t]+\$\t\$.*\$$"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	942 nil t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	943 (push
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	944 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	945 (or (gethash
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	946 (match-string 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	947 describe-char-unihan-field-descriptions)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	948 (match-string 1))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	949 (decode-coding-string (match-string 2) 'utf-8))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	950 unihan-info))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	951 (close-database unihan-database-handle)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	952 unihan-info)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	953 ;; It's a Han character, but Unihan.txt is not
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	954 ;; available. Tell the user.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	955 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	956 '("Unihan"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	957 "No Unihan information available; is \
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	958 `describe-char-unihan-file' set, and its cache initialized?")))))))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	959
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	960 ;; Return information about how CHAR is displayed at the buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	961 ;; position POS. If the selected frame is on a graphic display,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	962 ;; return a cons (FONTNAME . GLYPH-CODE). Otherwise, return a string
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	963 ;; describing the terminal codes for the character.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	964 (defun describe-char-display (pos char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	965 (let* ((frame (selected-frame))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	966 (charset (char-charset char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	967 (ccl (or (and (charset-property charset 'encode-as-utf-8)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	968 ccl-encode-to-ucs-2)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	969 (charset-property charset 'ccl-program)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	970 (ccl-vector (make-vector 8 0)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	971 (if (display-graphic-p (selected-frame))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	972 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	973 (font-instance-name
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	974 (face-font-instance (or (get-char-property pos 'face)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	975 'default)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	976 (selected-window)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	977 charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	978 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	979 ((and ccl (eq 'x (frame-type frame)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	980 (setq char (split-char char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	981 (aset ccl-vector 0 (charset-id charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	982 (aset ccl-vector 1 (second char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	983 (if (= 2 (charset-dimension charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	984 (aset ccl-vector 2 (third char)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	985 (ccl-execute ccl ccl-vector)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	986 (if (= 2 (charset-dimension charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	987 (logior (lsh (aref ccl-vector 1) 8)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	988 (aref ccl-vector 2))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	989 (aref ccl-vector 1)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	990 ;; #### We don't handle the X case where redisplay falls back to an
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	991 ;; ISO 10646-1 font at runtime.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	992 ((eq 'x (frame-type frame))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	993 (if (= 2 (charset-dimension charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	994 (prog2
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	995 (setq char (split-char char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	996 (logior (lsh (second char) 8)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	997 (third char)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	998 (second (split-char char))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	999 ;; Otherwise we assume we're using Unicode.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1000 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1001 (encode-char char 'ucs))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1002 (let* ((coding (console-tty-output-coding-system (device-console)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1003 (encoded (encode-coding-string char coding)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1004 (if encoded
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1005 (format "%s, coding system %s"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1006 (encoded-string-description encoded coding)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1007 (coding-system-name coding)))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1008
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1009
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1010 ;;;###autoload
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1011 (defun describe-char (pos)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1012 "Describe the character after POS (interactively, the character after point).
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1013 The information includes character code, charset and code points in it,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1014 syntax, category, how the character is encoded in a file,
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1015 character composition information (if relevant),
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1016 as well as widgets, buttons, overlays, and text properties."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1017 (interactive "d")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1018 (if (>= pos (point-max))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1019 (error "No character follows specified position"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1020 (let* ((char (char-after pos))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1021 (charset (char-charset char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1022 (composition (find-composition pos nil nil t))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1023 (component-chars nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1024 (display-table
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1025 (specifier-instance current-display-table (selected-window)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1026 (disp-table-entry (and display-table
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1027 (get-display-table char display-table)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1028 (extents (mapcar #'(lambda (o) (extent-properties o))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1029 (extents-at pos)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1030 (char-description (single-key-description char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1031 (text-props-desc
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1032 (let ((tmp-buf (generate-new-buffer " text-props")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1033 (unwind-protect
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1034 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1035 (describe-text-properties pos tmp-buf)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1036 (with-current-buffer tmp-buf (buffer-string)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1037 (kill-buffer tmp-buf))))
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1038 item-list max-width unicode unicode-formatted unicode-error
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1039 unicodedata (max-unicode-description-width (- (window-width) 50)))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1040
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1041
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1042 (setq unicode-error
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1043 ;; XEmacs change, check does the character represent a Unicode
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1044 ;; error sequence.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1045 (get-char-table char unicode-error-default-translation-table)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1046 unicode (and (not unicode-error) (encode-char char 'ucs))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1047 unicode-formatted (if unicode-error
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1048 (format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1049 "Invalid Unicode sequence, ?\x%02x on disk"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1050 unicode-error)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1051 (if (and unicode (natnump unicode))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1052 (format (if (> unicode #xFFFF)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1053 "U+%06X" "U+%04X")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1054 unicode)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1055 ""))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1056 item-list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1057 `(("character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1058 ,(format "%s (%s, %d, #o%o, #x%x)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1059 (apply 'propertize char-description
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1060 (text-properties-at pos))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1061 unicode-formatted
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1062 char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1063 char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1064 char))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1065 ("charset"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1066 ,(lexical-let
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1067 ((charset-name (symbol-name charset)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1068 `(progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1069 (widget-create 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1070 :notify ,(lambda (&rest ignored-arg)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1071 (with-displaying-help-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1072 (lambda nil
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1073 (charset-description
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1074 (intern charset-name)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1075 charset-name))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1076 ,charset-name)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1077 (widget-insert (format " (%s)" (charset-description
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1078 ',charset))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1079 ("code point"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1080 ,(let ((split (split-char char)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1081 `(widget-create 'push-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1082 ; :notify
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1083 ; ,(lambda (&rest ignored-arg)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1084 ; (with-selected-wind
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1085 ; insert-gui-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1086 ; (make-gui-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1087 ,(if (= (charset-dimension charset) 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1088 (format "#x%02X" (nth 1 split))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1089 (format "#x%02X #x%02X" (nth 1 split)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1090 (nth 2 split))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1091 ("syntax"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1092 ,(let ((syntax
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1093 (syntax-string-to-code (string (syntax-after pos)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1094 (with-temp-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1095 (describe-syntax-code syntax (current-buffer))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1096 ;; Remove the newline.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1097 (delete-backward-char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1098 (buffer-string))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1099 ;; XEmacs; #### add category support.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1100 ; ("category"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1101 ; ,@(let ((category-set (char-category-set char)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1102 ; (if (not category-set)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1103 ; '("-- none --")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1104 ; (mapcar #'(lambda (x) (format "%c:%s"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1105 ; x (category-docstring x)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1106 ; (category-set-mnemonics category-set)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1107 ; ,@(let ((props (get-char-table char char-code-property-table))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1108 ; ps)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1109 ; (when props
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1110 ; (while props
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1111 ; (push (format "%s:" (pop props)) ps)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1112 ; (push (format "%s;" (pop props)) ps))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1113 ; (list (cons "Properties" (nreverse ps)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1114 ("to input"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1115 ,@(let ((key-list (and-fboundp #'quail-find-key
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1116 current-input-method
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1117 (quail-find-key char))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1118 (if (consp key-list)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1119 (list "type"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1120 (mapconcat #'(lambda (x) (concat "\"" x "\""))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1121 key-list " or ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1122 "with"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1123 `(insert-text-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1124 ,current-input-method
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1125 'type 'help-input-method
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1126 'help-args '(,current-input-method))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1127 ; ("buffer code"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1128 ; ,(encoded-string-description
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1129 ; (string-as-unibyte (char-to-string char) nil))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1130 ("file code"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1131 ,@(let* ((coding buffer-file-coding-system)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1132 ;; ### XEmacs; use encode-coding-char once
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1133 ;; merged.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1134 (encoded (encode-coding-string char coding)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1135 (if encoded
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1136 (list (encoded-string-description encoded coding)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1137 (format "(encoded by coding system %S)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1138 (coding-system-name coding)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1139 (list "not encodable by coding system"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1140 (coding-system-name coding)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1141 ("display"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1142 ,(cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1143 (disp-table-entry
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1144 ;; XEmacs change; just use the print syntax of the display
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1145 ;; table entry. Might be possible to improve this, but
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1146 ;; nothing occurs to me right now.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1147 (format "by display table entry [%S] " disp-table-entry))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1148 (composition
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1149 (let ((from (car composition))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1150 (to (nth 1 composition))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1151 (next (1+ pos))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1152 (components (nth 2 composition))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1153 ch)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1154 (setcar composition
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1155 (and (< from pos) (buffer-substring from pos)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1156 (setcar (cdr composition)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1157 (and (< next to) (buffer-substring next to)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1158 (dotimes (i (length components))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1159 (if (integerp (setq ch (aref components i)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1160 (push (cons ch (describe-char-display pos ch))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1161 component-chars)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1162 (setq component-chars (nreverse component-chars))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1163 (format "composed to form \"%s\" (see below)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1164 (buffer-substring from to))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1165 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1166 (let ((display (describe-char-display pos char)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1167 (if (display-graphic-p (selected-frame))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1168 (if display
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1169 (concat
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1170 "by this font (glyph code)\n"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1171 (format " %s (#x%02X)"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1172 (first display) (second display)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1173 "no font available")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1174 (if display
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1175 (format "terminal code %s" display)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1176 "not encodable for terminal"))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1177 ,@(let ((face
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1178 (if (not (or disp-table-entry composition))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1179 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1180 ;; XEmacs #### Implement this.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1181 ; ((and show-trailing-whitespace
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1182 ; (save-excursion (goto-char pos)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1183 ; (looking-at "[ \t]+$")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1184 ; 'trailing-whitespace)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1185 ; ((and nobreak-char-display unicode (eq unicode '#xa0))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1186 ; 'nobreak-space)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1187 ; ((and nobreak-char-display unicode (eq unicode '#xad))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1188 ; 'escape-glyph)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1189 ((and (< char 32) (not (memq char '(9 10))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1190 'escape-glyph)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1191 (if face (list (list "hardcoded face"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1192 `(insert-gui-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1193 (make-gui-button
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1194 ,(symbol-name face)))))))
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1195 ,@(progn
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1196 (setq unicodedata (and unicode
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1197 (describe-char-unicode-data unicode)))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1198 (if unicodedata
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1199 (cons (list "Unicode data" " ") unicodedata)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1200 (setq max-width (apply #'max (mapcar #'(lambda (x)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1201 (if (cadr x) (length (car x)) 0))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1202 item-list)))
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1203 (when (and unicodedata (> max-width max-unicode-description-width))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1204 (setq max-width max-unicode-description-width)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1205 (with-temp-buffer
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1206 (let ((fill-column max-unicode-description-width)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1207 (indent-tabs-mode nil))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1208 (dolist (unidata-line unicodedata)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1209 (when (cadr unidata-line)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1210 (setf (car unidata-line)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1211 (progn (insert (car unidata-line))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1212 (goto-char (point-min))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1213 (fill-paragraph 'right)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1214 (delete-region (1- (point-max))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1215 (point-max))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1216 (buffer-string)))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1217 (delete-region (point-min) (point-max)))))))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1218 ; (help-setup-xref nil (interactive-p))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1219 (with-displaying-help-buffer
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1220 (lambda ()
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1221 (with-current-buffer standard-output
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1222 ; (set-buffer-multibyte multibyte-p)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1223 (let ((formatter (format "%%%ds:" max-width)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1224 (dolist (elt item-list)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1225 (when (cadr elt)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1226 (insert (format formatter (car elt)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1227 (dolist (clm (cdr elt))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1228 (if (consp clm)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1229 (progn (insert " ") (eval clm))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1230 (when (>= (+ (current-column)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1231 (or (string-match "\n" clm)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1232 (string-width clm))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1233 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1234 (window-width))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1235 (insert "\n")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1236 (indent-to (1+ max-width)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1237 (insert " " clm)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1238 (insert "\n"))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1239
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1240 (when extents
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1241 (save-excursion
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1242 (goto-char (point-min))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1243 (re-search-forward "character:[ \t\n]+")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1244 (let* ((end (+ (point) (length char-description))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1245 (mapc #'(lambda (props)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1246 (let ((o (make-extent (point) end)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1247 (while props
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1248 (set-extent-property o (car props) (nth 1 props))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1249 (setq props (cddr props)))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1250 extents))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1251
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1252 ;; XEmacs change; don't give GUI- or TTY-specific detail about the
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1253 ;; display table entry, the #'specifier-instance call above dealt
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1254 ;; with that.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1255 ; (when disp-table-entry ...)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1256
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1257 ;; XEmacs; this doesn't work now.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1258 (when composition
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1259 (insert "\nComposed")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1260 (if (car composition)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1261 (if (cadr composition)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1262 (insert " with the surrounding characters \""
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1263 (car composition) "\" and \""
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1264 (cadr composition) "\"")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1265 (insert " with the preceding character(s) \""
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1266 (car composition) "\""))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1267 (if (cadr composition)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1268 (insert " with the following character(s) \""
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1269 (cadr composition) "\"")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1270 (insert " by the rule:\n\t("
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1271 (mapconcat (lambda (x)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1272 (format (if (consp x) "%S" "?%c") x))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1273 (nth 2 composition)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1274 " ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1275 ")")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1276 (insert "\nThe component character(s) are displayed by ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1277 ;; XEmacs #### Once composition is in place, this should be
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1278 ;; a (font-instance-name (face-font-instance [...])) call.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1279 (if (display-graphic-p (selected-frame))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1280 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1281 (insert "these fonts (glyph codes):")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1282 (dolist (elt component-chars)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1283 (insert "\n " (car elt) ?:
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1284 (propertize " " 'display '(space :align-to 5))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1285 (if (cdr elt)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1286 (format "%s (#x%02X)" (cadr elt) (cddr elt))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1287 "-- no font --"))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1288 (insert "these terminal codes:")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1289 (dolist (elt component-chars)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1290 (insert "\n " (car elt) ":"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1291 (propertize " " 'display '(space :align-to 5))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1292 (or (cdr elt) "-- not encodable --"))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1293 (insert "\nSee the variable `reference-point-alist' for "
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1294 "the meaning of the rule.\n"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1295
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1296 (if text-props-desc (insert text-props-desc))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1297 ; (setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1298 (toggle-read-only 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1299 (print-help-return-message)))
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1300 (format "Describe %c <%d>" (char-after pos) pos))))
4468 a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1301
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1302 (defalias 'describe-char-after 'describe-char)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1303 (make-obsolete 'describe-char-after 'describe-char "22.1")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1304
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1305 (provide 'descr-text)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1306
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1307 ;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1308 ;;; descr-text.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/descr-text.el @ 4820:e6dec75ded0e