diff options
Diffstat (limited to 'doc/hacks.el')
-rw-r--r-- | doc/hacks.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/doc/hacks.el b/doc/hacks.el new file mode 100644 index 000000000..c5a3f576b --- /dev/null +++ b/doc/hacks.el @@ -0,0 +1,16 @@ +;;;; hacks.el --- a few functions to help me work on the manual +;;;; Jim Blandy <jimb@red-bean.com> --- October 1998 + +(defun jh-exemplify-region (start end) + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region start end) + + ;; Texinfo doesn't handle tabs well. + (untabify (point-min) (point-max)) + + ;; Quote any characters special to texinfo. + (goto-char (point-min)) + (while (re-search-forward "[{}@]" nil t) + (replace-match "@\\&"))))) |