Comments censored.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 2c340ca22c13ae1c62f1da0e96aac36fb024debf..80f3bedc0ef7d57e0386a80b0153b4c59910f41d 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -25,6 +25,15 @@
 
 ;;; Commentary:
 
+;;; This file has been censored by the Communications Decency Act.
+;;; That law was passed under the guise of a ban on pornography, but
+;;; it bans far more than that.  This file did not contain pornography,
+;;; but it was censored nonetheless.
+
+;;; For information on US government censorship of the Internet, and
+;;; what you can do to bring back freedom of the press, see the web
+;;; site http://www.vtw.org/
+
 ;; ========================================================================
 ;; "No matter how hard you try, you can't make a racehorse out of a pig.
 ;; You can, however, make a faster pig."
@@ -1285,7 +1294,7 @@
      byte-member byte-assq byte-quo byte-rem)
    byte-compile-side-effect-and-error-free-ops))
 
-;;; This piece of shit is because of the way DEFVAR_BOOL() variables work.
+;;; This crock is because of the way DEFVAR_BOOL variables work.
 ;;; Consider the code
 ;;;
 ;;;    (defun foo (flag)

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 27cc23f1df7ffa5c55799ec1889d8c8ba0263bba..dd69f63f88d5ddae836df0ecd7d60cd39e6ec7e2 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -26,6 +26,15 @@
 
 ;;; Commentary:
 
+;;; This file has been censored by the Communications Decency Act.
+;;; That law was passed under the guise of a ban on pornography, but
+;;; it bans far more than that.  This file did not contain pornography,
+;;; but it was censored nonetheless.
+
+;;; For information on US government censorship of the Internet, and
+;;; what you can do to bring back freedom of the press, see the web
+;;; site http://www.vtw.org/
+
 ;; The entry point of this code is
 ;;
 ;;    mail-extract-address-components: (address)
@@ -1308,9 +1317,9 @@ If ADDRESS contains more than one RFC-822 address, only the first is
                   (cond
                    
                    ;; Handle X.400 addresses encoded in RFC-822.
-                   ;; *** Shit!  This has to handle the case where it is
+                   ;; *** This has to handle the case where it is
                    ;; *** embedded in a quote too!
-                   ;; *** Shit!  The input is being broken up into atoms
+                   ;; *** The input is being broken up into atoms
                    ;; *** by periods!
                    ((looking-at mail-extr-x400-encoded-address-pattern)
                     

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 2bbd3f9251696a31d93f4259a05bcebc9265d04d..eaa4edd0787603dcb2f7597e045c452e5b23daab 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -23,6 +23,17 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; This file has been censored by the Communications Decency Act.
+;;; That law was passed under the guise of a ban on pornography, but
+;;; it bans far more than that.  This file did not contain pornography,
+;;; but it was censored nonetheless.
+
+;;; For information on US government censorship of the Internet, and
+;;; what you can do to bring back freedom of the press, see the web
+;;; site http://www.vtw.org/
+
 ;;; Code:
 
 ;;>>TODO
@@ -798,7 +809,7 @@ move to start of new line, clear to end of line."
 
 
 \f
-;; disgusting unix-required shit
+;; disgusting unix-required excrement
 ;;  Are we living twenty years in the past yet?
 
 (defun te-losing-unix ()