* hacks.el: Some handy helper functions for working on the manual.

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