Mercurial > emacs

comparison lisp/descr-text.el @ 83227:3ec251523b3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-673 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-674 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-675 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-676 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-677 Update from CVS * 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 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-681 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-682 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-683 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-684 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-685 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-686 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-687 Update from CVS * 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 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-692 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693 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 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-267
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 13 Nov 2004 18:34:40 +0000
parents 20a8f104f5b4
children 28906724d6e3 cb7f41387eb3
comparison
equal deleted inserted replaced
83226:9ea0f6980511 83227:3ec251523b3e
505 ,(let ((split (split-char char))) 505 ,(let ((split (split-char char)))
506 (if (= (charset-dimension charset) 1) 506 (if (= (charset-dimension charset) 1)
507 (format "%d" (nth 1 split)) 507 (format "%d" (nth 1 split))
508 (format "%d %d" (nth 1 split) (nth 2 split))))) 508 (format "%d %d" (nth 1 split) (nth 2 split)))))
509 ("syntax" 509 ("syntax"
510 ,(let ((syntax (syntax-after pos))) 510 ,(let* ((st (if parse-sexp-lookup-properties
511 (get-char-property pos 'syntax-table)))
512 (syntax (if (consp st) st
513 (aref (or st (syntax-table)) (char-after pos)))))
511 (with-temp-buffer 514 (with-temp-buffer
512 (internal-describe-syntax-value syntax) 515 (internal-describe-syntax-value syntax)
513 (buffer-string)))) 516 (buffer-string))))
514 ("category" 517 ("category"
515 ,@(let ((category-set (char-category-set char))) 518 ,@(let ((category-set (char-category-set char)))