head	1.1;
access;
symbols;
locks
	grog:1.1; strict;
comment	@; @;


1.1
date	95.05.23.10.22.27;	author grog;	state Exp;
branches;
next	;


desc
@emacs macro to massage index
@


1.1
log
@Initial revision
@
text
@(defun tidyindex  ()
  (interactive)
  (goto-char  0)
  (replace-regexp "^\\." "\\\\&."  nil)
  (goto-char  0)
  (replace-regexp "[ 	]+\\([^ 	
]+\\) *$" "  \\1"  nil)
  (goto-char  0)
  (insert  ".2C
.nr  CW  1i
.nf
")  )

;; (find-file "Index.ms")
(tidyindex)
(save-buffers-kill-emacs  t)@