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