untitled.gif welcome towards my cool internet house site: deshit.el (zoom)

[ back | refresh | last 25 | post new ]

welcome to my cool internet home sit is prosecǖtedt to a jam

VALID X M L
Hair Cares Product!!!!!
deshit.el
[43541] by "tobot H.P.B." (gs82.sp.cs.cmu.edu)   on Tue 26 Oct 2004 14:23:56     [ reply ] [ up ]

(defun deshit (a b c)
  (save-excursion
    (save-restriction
      (widen) ;; don't allow shit out of view
      (goto-char (point-min))
      (while (search-forward "shit" nil t)
(replace-match "" nil t))
      )))

(defun deshit-mode ()
  "In this mode you cannot type shit."
  (interactive "")
  (progn
    (kill-all-local-variables)
    (setq mode-name "Deshit")
    (setq major-mode 'deshit-mode)
    (deshit t t t)
    (add-hook 'after-change-functions 'deshit nil t)
    ))