mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(describe-syntax): New fun.

Browse Source
This commit is contained in:
Stefan Monnier 2001-11-25 22:03:45 +00:00
parent 47fc2db3eb
commit c477f6880f
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/help-funs.el
View File

@ -436,6 +436,22 @@ it is displayed along with the global value."
(buffer-string)))))))
;;;###autoload
(defun describe-syntax (&optional buffer)
(interactive)
"Describe the syntax specifications in the syntax table of BUFFER.
The descriptions are inserted in a help buffer, which is then displayed.
BUFFER defaults to the current buffer."
(setq buffer (or buffer (current-buffer)))
(help-setup-xref (list #'describe-syntax buffer) (interactive-p))
(with-output-to-temp-buffer (help-buffer)
(let ((table (with-current-buffer buffer (syntax-table))))
(with-current-buffer standard-output
(describe-vector table 'internal-describe-syntax-value)
(while (setq table (char-table-parent table))
(insert "\nThe parent syntax table is:")
(describe-vector table 'internal-describe-syntax-value))))))
(provide 'help-funs)
;;; help-funs.el ends here