;;; My special commands for emacs
;;; by Gary T. Leavens <leavens@cs.iastate.edu>
;;;
;;; Last update $Date: 2000/09/13 16:02:02 $

(defun anti-dos ()
  "Take out all C-m (^M) characters in a file from point to the end of file"
  (interactive "*")
  (replace-string "\C-m" ""))

(defun pro-dos ()
  "Add C-m (^M) characters before the C-j characters from point to the end of file"
  (interactive "*")
  (replace-string "\C-j" "\C-m\C-j"))

;;; The following is now obsolete by my .emacs file, but I might forget that...
;;;
(defun delete-on-backspace ()
  "makes C-h do the job of delete (delete still works), puts help on C-x C-h."
  (interactive)
  (global-set-key "\C-h" 'backward-delete-char-untabify)
  ;;; The code below puts help on ESC ?, which gets
  ;;; you to the help map.  To get the help menu after that type ?.
  ;;; You can also directly invoke help's menu by M-x help-for-help.
  (global-set-key "\M-?" 'help-command)
)


(fset 'sanitize-review
   "\C-s* COMMENTS FOR PC ONLY\C-m\C-a\C-s* COMMENTS FOR AUTHORS\C-m\C-p\C-w\C-p\C-n\C-n\C-e\C-r(\C-m\C-b\C-w\C-xsy\C-xk\C-m")