436 |
(buffer-string))))))) |
(buffer-string))))))) |
437 |
|
|
438 |
|
|
439 |
|
;;;###autoload |
440 |
|
(defun describe-syntax (&optional buffer) |
441 |
|
(interactive) |
442 |
|
"Describe the syntax specifications in the syntax table of BUFFER. |
443 |
|
The descriptions are inserted in a help buffer, which is then displayed. |
444 |
|
BUFFER defaults to the current buffer." |
445 |
|
(setq buffer (or buffer (current-buffer))) |
446 |
|
(help-setup-xref (list #'describe-syntax buffer) (interactive-p)) |
447 |
|
(with-output-to-temp-buffer (help-buffer) |
448 |
|
(let ((table (with-current-buffer buffer (syntax-table)))) |
449 |
|
(with-current-buffer standard-output |
450 |
|
(describe-vector table 'internal-describe-syntax-value) |
451 |
|
(while (setq table (char-table-parent table)) |
452 |
|
(insert "\nThe parent syntax table is:") |
453 |
|
(describe-vector table 'internal-describe-syntax-value)))))) |
454 |
|
|
455 |
(provide 'help-funs) |
(provide 'help-funs) |
456 |
|
|
457 |
;;; help-funs.el ends here |
;;; help-funs.el ends here |