[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el |
Date: |
Sun, 17 Mar 2002 16:51:26 -0500 |
Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.68
emacs/lisp/international/mule-diag.el:1.69
*** emacs/lisp/international/mule-diag.el:1.68 Wed Feb 13 20:53:38 2002
--- emacs/lisp/international/mule-diag.el Sun Mar 17 16:51:26 2002
***************
*** 576,592 ****
(format "%d" (nth 1 split))
(format "%d %d" (nth 1 split) (nth 2 split)))))
("syntax"
! ,(let* ((old-table (syntax-table))
! (table (get-char-property (point) 'syntax-table)))
! (if (consp table)
! (nth 1 (assq (car table)
! (mapcar #'cdr syntax-code-table)))
! (unwind-protect
! (progn
! (if (syntax-table-p table)
! (set-syntax-table table))
! (nth 2 (assq (char-syntax char) syntax-code-table)))
! (set-syntax-table old-table)))))
("category"
,@(let ((category-set (char-category-set char)))
(if (not category-set)
--- 576,587 ----
(format "%d" (nth 1 split))
(format "%d %d" (nth 1 split) (nth 2 split)))))
("syntax"
! ,(let ((syntax (get-char-property (point) 'syntax-table)))
! (with-temp-buffer
! (internal-describe-syntax-value
! (if (consp syntax) syntax
! (aref (or syntax (syntax-table)) char)))
! (buffer-string))))
("category"
,@(let ((category-set (char-category-set char)))
(if (not category-set)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el,
Stefan Monnier <=