1 ;;;; hacks.el --- a few functions to help me work on the manual
2 ;;;; Jim Blandy <jimb@red-bean.com> --- October 1998
4 (defun jh-exemplify-region (start end)
8 (narrow-to-region start end)
10 ;; Texinfo doesn't handle tabs well.
11 (untabify (point-min) (point-max))
13 ;; Quote any characters special to texinfo.
14 (goto-char (point-min))
15 (while (re-search-forward "[{}@]" nil t)
16 (replace-match "@\\&")))))