;;; To ascii macro file for emacs
;;; by Gary T. Leavens <leavens@cs.iastate.edu>
;;;
;;; Last update $Date: 2009/06/02 05:11:41 $

;; 
(fset 'to-ascii
      (lambda ()
	"Convert the buffer to ascii, replacing microsoft and unicode charcters with ascii equivalents."
	(interactive)
	(save-excursion
	  (mapc (function (lambda (pair)
			    (goto-char (point-min))
			    (replace-string (car pair) (cadr pair))))
		'(("\205" "...")
		  ("\u2026" "...")
		  ("\221" "`")
		  ("\u2018" "`")
		  ("\222" "\'")
		  ("\u2019" "'")
		  ("\223" "\"")
		  ("\u201C" "\"")
		  ("\224" "\"")
		  ("\u201D" "\"")
		  ("\225" "*")
		  ("\226" "---")
		  ("\u2013" "--")
		  ("\227" "--")))
	)))