Mercurial > emacs

comparison lisp/descr-text.el @ 90044:cb7f41387eb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-70 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71 Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 12 Nov 2004 02:53:04 +0000
parents e24e2e78deda 20a8f104f5b4
children f2ebccfa87d4
comparison
equal deleted inserted replaced
90043:e24e2e78deda 90044:cb7f41387eb3
497 ("code point" 497 ("code point"
498 ,(if (integerp code) 498 ,(if (integerp code)
499 (format (if (< code 256) "0x%02X" "0x%04X") code) 499 (format (if (< code 256) "0x%02X" "0x%04X") code)
500 (format "0x%04X%04X" (car code) (cdr code)))) 500 (format "0x%04X%04X" (car code) (cdr code))))
501 ("syntax" 501 ("syntax"
502 ,(let ((syntax (syntax-after pos))) 502 ,(let* ((st (if parse-sexp-lookup-properties
503 (get-char-property pos 'syntax-table)))
504 (syntax (if (consp st) st
505 (aref (or st (syntax-table)) (char-after pos)))))
503 (with-temp-buffer 506 (with-temp-buffer
504 (internal-describe-syntax-value syntax) 507 (internal-describe-syntax-value syntax)
505 (buffer-string)))) 508 (buffer-string))))
506 ("category" 509 ("category"
507 ,@(let ((category-set (char-category-set char))) 510 ,@(let ((category-set (char-category-set char)))