[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Stefan Monnier]

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)