1 ;;;; hacks.el --- a few functions to help me work on the manual
2 ;;;; Jim Blandy <jimb@red-bean.com> --- October 1998
3 ;;;; -- imported from https://git.savannah.gnu.org/cgit/guile.git/tree/doc/hacks.el
5 (defun jh-exemplify-region (start end)
9 (narrow-to-region start end)
11 ;; Texinfo doesn't handle tabs well.
12 (untabify (point-min) (point-max))
14 ;; Quote any characters special to texinfo.
15 (goto-char (point-min))
16 (while (re-search-forward "[{}@]" nil t)
17 (replace-match "@\\&")))))