/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68 by rms, Thu Feb 14 01:53:38 2002 UTC revision 1.69 by monnier, Sun Mar 17 21:51:26 2002 UTC
# Line 576  which font is being used for displaying Line 576  which font is being used for displaying
576                        (format "%d" (nth 1 split))                        (format "%d" (nth 1 split))
577                      (format "%d %d" (nth 1 split) (nth 2 split)))))                      (format "%d %d" (nth 1 split) (nth 2 split)))))
578                ("syntax"                ("syntax"
579                 ,(let* ((old-table (syntax-table))                 ,(let ((syntax (get-char-property (point) 'syntax-table)))
580                         (table (get-char-property (point) 'syntax-table)))                    (with-temp-buffer
581                    (if (consp table)                      (internal-describe-syntax-value
582                        (nth 1 (assq (car table)                       (if (consp syntax) syntax
583                                     (mapcar #'cdr syntax-code-table)))                         (aref (or syntax (syntax-table)) char)))
584                      (unwind-protect                      (buffer-string))))
                         (progn  
                           (if (syntax-table-p table)  
                               (set-syntax-table table))  
                           (nth 2 (assq (char-syntax char) syntax-code-table)))  
                       (set-syntax-table old-table)))))  
585                ("category"                ("category"
586                 ,@(let ((category-set (char-category-set char)))                 ,@(let ((category-set (char-category-set char)))
587                     (if (not category-set)                     (if (not category-set)

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26