diff options
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 11 | ||||
| -rw-r--r-- | lisp/mail/mail-extr.el | 13 | ||||
| -rw-r--r-- | lisp/terminal.el | 13 |
3 files changed, 33 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 2c340ca22c1..80f3bedc0ef 100644 --- 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 27cc23f1df7..dd69f63f88d 100644 --- 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 2bbd3f92516..eaa4edd0787 100644 --- 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." -;; disgusting unix-required shit +;; disgusting unix-required excrement ;; Are we living twenty years in the past yet? (defun te-losing-unix () |