diff options
| author | Schanzenbach, Martin <martin.schanzenbach@aisec.fraunhofer.de> | 2017-12-04 17:39:55 +0100 |
|---|---|---|
| committer | Schanzenbach, Martin <martin.schanzenbach@aisec.fraunhofer.de> | 2017-12-04 17:39:55 +0100 |
| commit | d4b252fd73bdda7be51a971ba06a650a1dceb45c (patch) | |
| tree | 15026001f43b756e4a86d7ec80f62fc0d9756dea /doc/hacks.el | |
| parent | 514dd6f53cb735d0e48f35ddf92eae469c0abc8a (diff) | |
| parent | 24a0b84d503375bf66b5df932cd18631cc88cf8d (diff) | |
Merge branch 'identity_abe' into identity_oidc
Diffstat (limited to 'doc/hacks.el')
| -rw-r--r-- | doc/hacks.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/hacks.el b/doc/hacks.el new file mode 100644 index 0000000000..9f271b3afa --- /dev/null +++ b/doc/hacks.el @@ -0,0 +1,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 "@\\&"))))) |