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) |