blob: 9f271b3afad42894e5626d332dd26d9491f6fad0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;;; hacks.el --- a few functions to help me work on the manual
;;;; Jim Blandy <jimb@red-bean.com> --- October 1998
;;;; -- imported from https://git.savannah.gnu.org/cgit/guile.git/tree/doc/hacks.el
(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 "@\\&")))))
|
