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

annotate lisp/descr-text.el @ 4481:f9c70d94f427

Correct syntax of #'error calls, descr-text.el 2008-07-20 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-char-unicode-data): Correct three calls to #'error; it doesn't take #'message style format strings and arguments.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sun, 20 Jul 2008 15:04:20 +0200
parents	74caf140505b
children	16c9098dd3d2

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
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	61 (pp-to-string sexp)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	62 (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	63 (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	64 (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	65 (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	66 nil)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	67 ((> (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	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 (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	70 (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	71 (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	72 :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	73 (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	74 "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	75 (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	76 :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	77 "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	78 "[Show]"))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	79
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	80 (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	81 "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	82 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	83 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	84 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	85 `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	86 ;; 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	87 (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	88 (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	89 (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	90 ret)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	91 (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	92 (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	93 (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	94 (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	95 ;; 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	96 (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	97 '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	98 (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	99 (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	100 '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	101 :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	102 (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	103 :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	104 (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	105 ((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	106 (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	107 '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	108 :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	109 ((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	110 (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	111 (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	112 :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	113 (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	114 ((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	115 (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	116 (t
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-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	118 (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	119
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	120 ;;; 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	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 (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	123 "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	124 (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	125 ; (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	126 (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	127 (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	128 (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	129 (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	130 (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	131 (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	132
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	133 ;;;###autoload
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	134 (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	135 "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	136 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	137 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	138 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	139 otherwise."
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	140 (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	141 (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	142 (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	143 (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	144 (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	145 (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	146 ;; 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	147 (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	148 (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	149 (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	150 (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	151 (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	152 (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	153 (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	154 (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	155 (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	156 (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	157 (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	158 (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	159 (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	160 (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	161
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	162 (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	163 (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	164 ;; 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	165 (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	166 (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	167 (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	168 (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	169 ;; 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	170 ;; 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	171 (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	172 (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	173 (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	174 (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	175 (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	176 (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	177 (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	178 ;; Widgets
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	179 (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	180 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	181 (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	182 (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	183 (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	184 (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	185 (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	186 (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	187 ;; Buttons
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	188 (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	189 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	190 (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	191 "' 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	192 ;; Overlays
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	193 (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	194 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	195 (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	196 (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	197 (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	198 " 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	199 (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	200 (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	201 " 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	202 (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	203 (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	204 ;; 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	205 (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	206 (newline)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	207 (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	208 (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	209
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	210 (defcustom 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	211 ;; XEmacs change; initialise this by default, using Perl.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	212 (let ((have-perl
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	213 (member-if
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	214 #'(lambda (path)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	215 (file-exists-p (format "%s%cperl" path 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	216 exec-path))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	217 installprivlib res)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	218 (when have-perl
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	219 (setq installprivlib
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	220 (with-string-as-buffer-contents ""
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	221 (shell-command "perl -V:installprivlib" t)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	222 ;; 1+ because buffer offsets start at one.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	223 (delete-region 1 (1+ (length "installprivlib='")))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	224 ;; Delete the final newline, semicolon and quotation mark.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	225 (delete-region (- (point-max) 3) (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	226 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	227 ((file-exists-p
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	228 (setq res
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	229 (format "%s%cunicore%cUnicodeData.txt"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	230 installprivlib 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	231 ((file-exists-p
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	232 (setq res
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	233 (format "%s%cunicode%cUnicodeData.txt"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	234 installprivlib 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	235 res))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	236 "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	237 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	238 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	239 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	240 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	241
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	242 This is a fairly large file, typically installed with Perl.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	243 At 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	244 `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	245
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	246 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	247 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	248 `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	249
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	250 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	251 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	252
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	253 :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	254 :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	255 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	256
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	257 ;; 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	258 (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	259 "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	260 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	261 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	262 :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	263 :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	264 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	265
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	266 (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	267 "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	268 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	269 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	270 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	271 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	272 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	273
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	274 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	275 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	276 `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	277
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	278 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	279 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	280 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	281 :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	282 :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	283 file))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	284
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	285 ;; 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	286 (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	287 (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	288 (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	289 "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	290
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	291 (defvar 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	292 #s(hash-table test equal data
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	293 ("kAccountingNumeric"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	294 "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	295 "kBigFive"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	296 "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	297 "kCCCII"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	298 "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	299 "kCNS1986"
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 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	301 "kCNS1992"
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 "kCangjie"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	304 "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	305 "kCantonese"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	306 "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	307 "kCheungBauer"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	308 "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	309 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	310 "kCheungBauerIndex"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	311 "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	312 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	313 "kCihaiT"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	314 "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	315 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	316 "kCompatibilityVariant"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	317 "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	318 "kCowles"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	319 "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	320 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	321 "kDaeJaweon"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	322 "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	323 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	324 "kDefinition"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	325 "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	326 "kEACC"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	327 "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	328 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	329 "kFenn"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	330 "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	331 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	332 "kFennIndex"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	333 "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	334 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	335 "kFourCornerCode"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	336 "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	337 "kFrequency"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	338 "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	339 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	340 "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	341 "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	342 "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	343 "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	344 "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	345 ;; 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	346 "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	347 "kGSR"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	348 "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	349 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	350 "kGradeLevel"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	351 "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	352 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	353 "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	354 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	355 "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	356 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	357 "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	358 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	359 "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	360 `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	361 "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	362 "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	363 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	364 "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	365 "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	366 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	367 "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	368 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	369 "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	370 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	371 "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	372 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	373 "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	374 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	375 "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	376 "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	377 "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	378 "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	379 "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	380 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_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	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_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	384 "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	385 "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	386 "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	387 "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	388 "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	389 "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	390 "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	391 "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	392 "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	393 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	394 "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	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 "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	397 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	398 "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	399 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	400 "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	401 "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	402 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	403 "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	404 "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	405 "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	406 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	407 "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	408 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	409 ;; 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	410 "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	411 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	412 "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	413 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	414 "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	415 "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	416 "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	417 "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	418 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	419 "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	420 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	421 "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	422 "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	423 "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	424 "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	425 "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	426 "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	427 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	428 "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	429 "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	430 "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	431 "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	432 "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	433 "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	434 "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	435 "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	436 "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	437 "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	438 "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	439
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	440 (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	441 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	442 "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	443 (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	444 (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	445 (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	446 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	447
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	448 (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	449 "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	450
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	451 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	452 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	453 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	454 `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	455 (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	456 (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	457 (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	458 (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	459 (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	460 (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	461 (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	462 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	463 (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	464 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	465 (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	466 (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	467 (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	468 (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	469 (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	470 (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	471 (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	472 (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	473 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	474 (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	475 (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	476 "%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	477 (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	478 (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	479 (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	480 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	481 ;; 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	482 ;; 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	483 (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	484
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	485 (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	486 ;; 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	487 ;; 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	488 ;; appropriately.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	489 (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	490 (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	491 (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	492 (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	493 (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	494
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	495 (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	496 "%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	497 (* (/ 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	498 (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	499 (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	500 (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	501 (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	502 (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	503 (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	504 #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	505 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	506 ((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	507 (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	508 " First>"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	509 ;; 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	510 (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	511 (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	512 (+ 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	513 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	514 ((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	515 (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	516 " Last>"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	517 ;; 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	518 ;; 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	519 (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	520 (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	521 (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	522 "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	523 (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	524 (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	525 (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	526 (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	527 (+ 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	528 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	529 (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	530 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	531 ;; 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	532 ;; 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	533 (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	534 (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	535 (+ 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	536 (+ 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	537 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	538 (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	539 (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	540 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	541 ;; 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	542 (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	543 (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	544 (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	545 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	546 (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	547 (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	548 "%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	549 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	550
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	551 (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	552 "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	553
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	554 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	555 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	556 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	557 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	558 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	559 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	560 (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	561 (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	562 (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	563 (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	564 (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	565 (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	566 (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	567 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	568 (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	569 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	570 (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	571 (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	572 (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	573 (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	574 (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	575 (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	576 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	577 (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	578 (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	579 "%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	580 (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	581 (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	582 (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	583 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	584 ;; 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	585 ;; while.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	586 (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	587
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	588 (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	589 (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	590 "%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	591 (* (/ 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	592 (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	593 (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	594 (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	595 (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	596 (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	597 ;; 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	598 ;; 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	599 ;; 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	600 ;; 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	601 ;; begins.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	602 ;;
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	603 ;; 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	604 ;; 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	605 (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	606 (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	607
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	608 (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	609 (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	610 ;; 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	611 ;; 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	612 (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	613 (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	614
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	615 (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	616 (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	617 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	618 (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	619
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	620 (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	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 ;; 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	623 ;; 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	624 (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	625
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	626 ;; 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	627 ;; 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	628 (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	629 (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	630 (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	631 (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	632 (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	633 (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	634 ;; 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	635 (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	636
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	637 (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	638 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	639 ;; 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	640 ;; 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	641 (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	642
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	643 ;; 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	644 (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	645 (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	646
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 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	648 (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	649
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	650 ;; 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	651 (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	652
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	653 ;; 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	654 (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	655 (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	656 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	657 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	658 (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	659 (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	660 (+ 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	661 (+ 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	662 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	663 (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	664 (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	665 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	666 (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	667 (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	668 "%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	669 message)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	670 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	671 ;; 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	672
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	673 (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	674 "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	675 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	676 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	677 (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	678 (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	679 (error 'file-error
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	680 (format "`unicodedata-file' %s not found"
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	681 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	682 ;; 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	683 ;; appropriate.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	684 (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	685 (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	686 (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	687 (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	688 ;; 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	689 (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	690 (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	691 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	692 (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	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 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	695 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	696 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	697 #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	698 (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	699 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	700 (unless database-handle
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	701 (error 'io-error
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	702 (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	703 (unidata-generate-database-file-name
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	704 describe-char-unicodedata-file
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	705 (eighth (file-attributes
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 unidata-database-format)
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	708 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	709 (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	710 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	711 (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	712 ;; 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	713 (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	714 (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	715 (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	716 ;; 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	717 ;; 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	718 ;; character.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	719 (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	720 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	721 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	722 (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	723 (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	724 (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	725 (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	726
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	727 ;; 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	728 (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	729 (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	730 ;; 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	731 (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	732
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	733 (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	734 (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	735 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	736 (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	737 (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	738 (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	739 ;; 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	740 ;; 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	741 (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	742 (>= 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	743 (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	744 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	745 (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	746 (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	747 (> char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	748 (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	749 (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	750 (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	751 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	752 (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	753 (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	754 (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	755 (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	756 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 (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	758 (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	759 (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	760 (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	761 ";")))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	762 ;; 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	763 (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	764 (= 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	765 (error 'invalid-argument
4481 f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	766 (format "Invalid contents in %s"
f9c70d94f427 Correct syntax of #'error calls, descr-text.el Aidan Kehoe <kehoea@parhasard.net> parents: 4480 diff changeset	767 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	768 ;; 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	769 ;; 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	770 (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	771 (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	772 ;; 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	773 (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	774 (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	775 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 (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	777 (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	778 (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	779 '(("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	780 ("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	781 ("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	782 ("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	783 ("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	784 ("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	785 ("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	786 ("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	787 ("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	788 ("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	789 ("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	790 ("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	791 ("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	792 ("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	793 ("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	794 ("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	795 ("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	796 ("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	797 ("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	798 ("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	799 ("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	800 ("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	801 ("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	802 ("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	803 ("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	804 ("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	805 ("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	806 ("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	807 ("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	808 ("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	809 (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	810 (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	811 (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	812 '((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	813 (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	814 (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	815 (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	816 (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	817 (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	818 (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	819 (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	820 (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	821 (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	822 (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	823 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	824 (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	825 (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	826 (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	827 (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	828 (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	829 (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	830 (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	831 (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	832 character)")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	833 (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	834 (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	835 (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	836 (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	837 (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	838 (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	839 (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	840 (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	841 (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	842 (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	843 '(("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	844 ("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	845 ("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	846 ("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	847 ("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	848 ("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	849 ("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	850 ("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	851 ("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	852 ("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	853 ("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	854 ("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	855 ("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	856 ("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	857 ("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	858 ("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	859 ("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	860 ("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	861 ("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	862 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	863 "Decomposition"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	864 (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	865 (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	866 (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	867 (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	868 (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	869 (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	870 (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	871 ;; 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	872 ;; 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	873 (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	874 (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	875 (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	876 'ucs
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-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	878 ??)))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	879 parts " "))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	880 (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	881 (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	882 (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	883 (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	884 (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	885 (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	886 (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	887 (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	888 (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	889 "yes"))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	890 (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	891 (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	892 (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	893 (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	894 'ucs
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-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	896 (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	897 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	898 (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	899 (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	900 'ucs
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-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	902 (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	903 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	904 (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	905 (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	906 'ucs
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-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	908 (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	909 ??))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	910
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	911 ;; 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	912 ;; 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	913 ;; 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	914 ;; available.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	915 (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	916 (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	917 (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	918 (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	919 (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	920 (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	921 (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	922 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	923 (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	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 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	926 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	927 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	928 (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	929 (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	930 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	931 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	932 (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	933 (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	934 (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	935 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	936 (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	937 (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	938 (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	939 "^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	940 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	941 (push
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	942 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	943 (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	944 (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	945 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	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 (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	948 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	949 (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	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 ;; 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	952 ;; 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	953 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	954 '("Unihan"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	955 "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	956 `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	957
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	958 ;; 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	959 ;; 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	960 ;; 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	961 ;; 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	962 (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	963 (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	964 (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	965 (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	966 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	967 (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	968 (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	969 (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	970 (list
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	971 (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	972 (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	973 'default)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	974 (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	975 charset))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	976 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	977 ((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	978 (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	979 (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	980 (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	981 (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	982 (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	983 (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	984 (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	985 (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	986 (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	987 (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	988 ;; #### 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	989 ;; 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	990 ((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	991 (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	992 (prog2
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	993 (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	994 (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	995 (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	996 (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	997 ;; 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	998 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	999 (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	1000 (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	1001 (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	1002 (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	1003 (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	1004 (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	1005 (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	1006
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1007
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1008 ;;;###autoload
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1009 (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	1010 "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	1011 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	1012 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	1013 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	1014 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	1015 (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	1016 (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	1017 (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	1018 (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	1019 (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	1020 (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	1021 (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	1022 (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	1023 (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	1024 (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	1025 (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	1026 (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	1027 (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	1028 (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	1029 (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	1030 (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	1031 (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	1032 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1033 (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	1034 (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	1035 (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	1036 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	1037 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	1038
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1039
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1040 (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	1041 ;; 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	1042 ;; 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	1043 (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	1044 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	1045 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	1046 (format
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1047 "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	1048 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	1049 (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	1050 (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	1051 "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	1052 unicode)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1053 ""))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1054 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	1055 `(("character"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1056 ,(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	1057 (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	1058 (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	1059 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	1060 char
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1061 char
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 ("charset"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1064 ,(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	1065 ((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	1066 `(progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1067 (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	1068 :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	1069 (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	1070 (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	1071 (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	1072 (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	1073 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	1074 ,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 (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	1076 ',charset))))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1077 ("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	1078 ,(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	1079 `(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	1080 ; :notify
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1081 ; ,(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	1082 ; (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	1083 ; 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	1084 ; (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	1085 ,(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	1086 (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	1087 (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	1088 (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	1089 ("syntax"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1090 ,(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	1091 (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	1092 (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	1093 (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	1094 ;; 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	1095 (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	1096 (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	1097 ;; 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	1098 ; ("category"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1099 ; ,@(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	1100 ; (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	1101 ; '("-- none --")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1102 ; (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	1103 ; 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	1104 ; (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	1105 ; ,@(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	1106 ; ps)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1107 ; (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	1108 ; (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	1109 ; (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	1110 ; (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	1111 ; (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	1112 ("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	1113 ,@(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	1114 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	1115 (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	1116 (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	1117 (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	1118 (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	1119 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	1120 "with"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1121 `(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	1122 ,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	1123 '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	1124 '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	1125 ; ("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	1126 ; ,(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	1127 ; (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	1128 ("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	1129 ,@(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	1130 ;; ### 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	1131 ;; merged.
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1132 (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	1133 (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	1134 (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	1135 (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	1136 (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	1137 (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	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 ("display"
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1140 ,(cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1141 (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	1142 ;; 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	1143 ;; 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	1144 ;; 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	1145 (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	1146 (composition
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1147 (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	1148 (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	1149 (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	1150 (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	1151 ch)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1152 (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	1153 (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	1154 (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	1155 (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	1156 (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	1157 (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	1158 (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	1159 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	1160 (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	1161 (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	1162 (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	1163 (t
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1164 (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	1165 (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	1166 (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	1167 (concat
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1168 "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	1169 (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	1170 (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	1171 "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	1172 (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	1173 (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	1174 "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	1175 ,@(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	1176 (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	1177 (cond
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1178 ;; 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	1179 ; ((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	1180 ; (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	1181 ; (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	1182 ; '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	1183 ; ((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	1184 ; '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	1185 ; ((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	1186 ; '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	1187 ((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	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 (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	1190 `(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	1191 (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	1192 ,(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	1193 ,@(progn
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1194 (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	1195 (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	1196 (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	1197 (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	1198 (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	1199 (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	1200 item-list)))
4480 74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1201 (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	1202 (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	1203 (with-temp-buffer
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1204 (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	1205 (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	1206 (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	1207 (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	1208 (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	1209 (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	1210 (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	1211 (fill-paragraph 'right)
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1212 (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	1213 (point-max))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1214 (buffer-string)))
74caf140505b Wrap field descriptions, descr-text.el; name created buffer more uniquely. Aidan Kehoe <kehoea@parhasard.net> parents: 4474 diff changeset	1215 (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	1216 ; (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	1217 (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	1218 (lambda ()
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-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	1220 ; (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	1221 (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	1222 (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	1223 (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	1224 (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	1225 (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	1226 (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	1227 (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	1228 (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	1229 (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	1230 (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	1231 1)
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1232 (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	1233 (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	1234 (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	1235 (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	1236 (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	1237
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1238 (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	1239 (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	1240 (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	1241 (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	1242 (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	1243 (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	1244 (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	1245 (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	1246 (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	1247 (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	1248 extents))))
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1249
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1250 ;; 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	1251 ;; 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	1252 ;; 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	1253 ; (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	1254
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1255 ;; 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	1256 (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	1257 (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	1258 (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	1259 (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	1260 (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	1261 (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	1262 (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	1263 (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	1264 (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	1265 (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	1266 (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	1267 (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 " 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	1269 (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	1270 (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	1271 (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	1272 " ")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1273 ")")
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1274 (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	1275 ;; 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	1276 ;; 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	1277 (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	1278 (progn
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1279 (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	1280 (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	1281 (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	1282 (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	1283 (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	1284 (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	1285 "-- 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	1286 (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	1287 (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	1288 (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	1289 (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	1290 (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	1291 (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	1292 "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	1293
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1294 (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	1295 ; (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	1296 (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	1297 (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	1298 (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	1299
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1300 (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	1301 (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	1302
a78d697ccd2c Import and extend GNU's descr-text.el, supporting prefix argument for C-x = Aidan Kehoe <kehoea@parhasard.net> parents: diff changeset	1303 (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	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 ;; 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	1306 ;;; descr-text.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/descr-text.el @ 4481:f9c70d94f427