File: hacks.el

package info (click to toggle)
guile-2.0 2.0.11%2B1-9
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 27,612 kB
  • sloc: ansic: 132,286; lisp: 67,206; sh: 4,593; makefile: 1,977; perl: 243; awk: 37
file content (16 lines) | stat: -rw-r--r-- 493 bytes parent folder | download | duplicates (17) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 "@\\&")))))