Open source code with profanity in comments is statistically better
The original terminal emulator terminal.el in gnu emacs, written by mly (Richard Mlynarik), was particularly salty. I finally tracked down a copy, but it looks like somebody complained and in 1990 it was begrudgingly cleaned up a bit, so some of the worst stuff was moved out into a separate file called term-nasty.el for posterity (you, here, now), so as not to give &quot;in to the pressure to censor obscenity that currently threatens freedom of speech and of the press in the US&quot; (oh, Richard &lt;3 ):<p><a href="https:&#x2F;&#x2F;opensource.apple.com&#x2F;source&#x2F;emacs&#x2F;emacs-59.0.80&#x2F;emacs&#x2F;lisp&#x2F;ChangeLog.3" rel="nofollow noreferrer">https:&#x2F;&#x2F;opensource.apple.com&#x2F;source&#x2F;emacs&#x2F;emacs-59.0.80&#x2F;emac...</a><p>1990-08-26  Richard Stallman  (rms@mole.ai.mit.edu)<p>* terminal.el: Move possibly offensive comments to term-nasty.el.<p><a href="https:&#x2F;&#x2F;www.digiater.nl&#x2F;openvms&#x2F;freeware&#x2F;v10&#x2F;emacs&#x2F;common&#x2F;lisp&#x2F;terminal.el" rel="nofollow noreferrer">https:&#x2F;&#x2F;www.digiater.nl&#x2F;openvms&#x2F;freeware&#x2F;v10&#x2F;emacs&#x2F;common&#x2F;li...</a><p>[...]<p><pre><code>    ;; disgusting unix-required shit
    ;;  Are we living twenty years in the past yet?

    (defun te-losing-unix ()
      nil)
</code></pre>
[...]<p><pre><code>    ;; (A version of the following comment which might be distractingly offensive
    ;; to some readers has been moved to term-nasty.el.)
    ;; unix lacks ITS-style tty control...
    (defun te-process-output (preemptable)
      ;;&gt;&gt; There seems no good reason to ever disallow preemption
      (setq preemptable t)
</code></pre>
[...]<p><pre><code>              ;; I suppose if I split the guts of this out into a separate
              ;;  function we could trivially emulate different terminals
              ;; Who cares in any case?  (Apart from stupid losers using rlogin)
</code></pre>
[...]<p><pre><code>                                     (?\C-b . te-backward-char)
                                     ;; should be C-d, but un*x
                                     ;;  pty&#x27;s won&#x27;t send \004 through!
                                     ;; Can you believe this?
</code></pre>
[...]<p><pre><code>                                     ;; Did I ask to be sent these characters?
                                     ;; I don&#x27;t remember doing so, either.
                                     ;; (Perhaps some operating system or
                                     ;; other is completely incompetent...)
</code></pre>
[...]<p><pre><code>                         ;;-- Not-widely-known (ie nonstandard) flags, which mean
                         ;; o writing in the last column of the last line
                         ;;   doesn&#x27;t cause idiotic scrolling, and
                         ;; o don&#x27;t use idiotische c-s&#x2F;c-q sogenannte
                         ;;   ``flow control&#x27;&#x27; auf keinen Fall.
                         &quot;LP:NF:&quot;
                         ;;-- For stupid or obsolete programs
                         &quot;ic=^p_!:dc=^pd!:al=^p^o!:dl=^p^k!:ho=^p=  :&quot;
                         ;;-- For disgusting programs.
                         ;; (VI? What losers need these, I wonder?)
                         &quot;im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:&quot;)))
</code></pre>
[...]<p><pre><code>              (setq te-process
                    (start-process &quot;terminal-emulator&quot; (current-buffer)
                                   &quot;&#x2F;bin&#x2F;sh&quot; &quot;-c&quot;
                                   ;; Yuck!!! Start a shell to set some terminal
                                   ;; control characteristics.  Then start the
                                   ;; &quot;env&quot; program to setup the terminal type
                                   ;; Then finally start the program we wanted.
                                   (format &quot;%s; exec %s&quot;
                                           te-stty-string
                                           (mapconcat &#x27;te-quote-arg-for-sh
                                                      (cons program args) &quot; &quot;)))))
</code></pre>
[...]<p><pre><code>    ;;;; what a complete loss
</code></pre>
[...]<p><a href="https:&#x2F;&#x2F;www.digiater.nl&#x2F;openvms&#x2F;freeware&#x2F;v10&#x2F;emacs&#x2F;common&#x2F;lisp&#x2F;term-nasty.el" rel="nofollow noreferrer">https:&#x2F;&#x2F;www.digiater.nl&#x2F;openvms&#x2F;freeware&#x2F;v10&#x2F;emacs&#x2F;common&#x2F;li...</a><p><pre><code>    ;;; term-nasty.el --- Damned Things from terminfo.el
    ;;; This file is in the public domain, and was written by Stallman and Mlynarik

    ;;; Commentary:

    ;; Some people used to be bothered by the following comments that were
    ;; found in terminal.el.  We decided they were distracting, and that it
    ;; was better not to have them there.  On the other hand, we didn&#x27;t want
    ;; to appear to be giving in to the pressure to censor obscenity that
    ;; currently threatens freedom of speech and of the press in the US.
    ;; So we decided to put the comments here.

    ;;; Code:

    These comments were removed from te-losing-unix.
      ;(what lossage)
      ;(message &quot;fucking-unix: %d&quot; char)

    This was before te-process-output.
    ;; fucking unix has -such- braindamaged lack of tty control...

    And about the need to handle output characters such as C-m, C-g, C-h
    and C-i even though the termcap doesn&#x27;t say they may be used:
    ;fuck me harder
    ;again and again!
    ;wa12id!!
    ;(spiked)

    ;;; term-nasty.el ends here
</code></pre>
Note to the gentle readers: &quot;wa12id&quot; stands for &quot;with a 12 inch dildo&quot;.<p>Jamie Zawinski kept Lucid Emacs nasty:<p><a href="https:&#x2F;&#x2F;groups.google.com&#x2F;g&#x2F;gnu.misc.discuss&#x2F;c&#x2F;U5oXKOfWinQ&#x2F;m&#x2F;xek-XhmQ9eoJ" rel="nofollow noreferrer">https:&#x2F;&#x2F;groups.google.com&#x2F;g&#x2F;gnu.misc.discuss&#x2F;c&#x2F;U5oXKOfWinQ&#x2F;m...</a><p>Noah Friedman, Aug 3, 1992, 4:54:20 AM<p>In article &lt;15i2n9...@hal.com&gt; wood...@hal.com (Nathan Hess) writes:<p>&gt;In article &lt;FRIEDMAN.9...@nutrimat.gnu.ai.mit.edu&gt;, friedman@gnu (Noah Friedman) writes:<p>&gt;&gt;It&#x27;s by no means necessary, but it&#x27;s <i>funny</i>.<p>&gt;Along the same lines, look at lisp&#x2F;terminal.el<p>Of course, terminal.el is actually useful, albeit not terribly powerful.<p>(and terminal.el is pretty mild compared to some of the other things I&#x27;ve seen written by mly. :-))<p>Incidentally, a lot of terminal.el has been rewritten in version 19.<p>Too bad... I liked all the variable names and comments in the original.<p>Jamie Zawinski, Aug 5, 1992, 12:40:38 AM<p>In the FSF-distributed Emacs 19, the obscenities (will) have been stripped
from terminal.el, though they are preserved in a file called term-nasty.el,
to avoid appearing to bow to the censors.<p>In Lucid GNU Emacs, terminal.el will remain as nasty as it ever was.<p>-- Jamie &quot;Truth, Justice, and the Fucking First Amendment&quot; Zawinski