guile18/doc/hacks.el

   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 "@\\&")))))