| untitled.gif welcome towards my cool internet house site: posting |
welcome to my cool internet home sit
is prosecǖtedt to a jam
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 ]
|
(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)
))
|
: post your reply here :
|
