contrib/scripts/texinfo-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 ;;;; -- imported from https://git.savannah.gnu.org/cgit/guile.git/tree/doc/hacks.el
   4 ;;;; This code should be covered by the same license as GNU Guile (GPL3).
   5
   6 (defun jh-exemplify-region (start end)
   7   (interactive "r")
   8   (save-excursion
   9     (save-restriction
  10       (narrow-to-region start end)
  11
  12       ;; Texinfo doesn't handle tabs well.
  13       (untabify (point-min) (point-max))
  14
  15       ;; Quote any characters special to texinfo.
  16       (goto-char (point-min))
  17       (while (re-search-forward "[{}@]" nil t)
  18         (replace-match "@\\&")))))