Mercurial > emacs
comparison lisp/emacs-lisp/byte-opt.el @ 14641:4706508583bd
Comments censored.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 21 Feb 1996 21:39:11 +0000 |
parents | 83f275dcd93a |
children | f98b8c0b6414 |
comparison
equal
deleted
inserted
replaced
14640:65151464291f | 14641:4706508583bd |
---|---|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
24 ;; Boston, MA 02111-1307, USA. | 24 ;; Boston, MA 02111-1307, USA. |
25 | 25 |
26 ;;; Commentary: | 26 ;;; Commentary: |
27 | |
28 ;;; This file has been censored by the Communications Decency Act. | |
29 ;;; That law was passed under the guise of a ban on pornography, but | |
30 ;;; it bans far more than that. This file did not contain pornography, | |
31 ;;; but it was censored nonetheless. | |
32 | |
33 ;;; For information on US government censorship of the Internet, and | |
34 ;;; what you can do to bring back freedom of the press, see the web | |
35 ;;; site http://www.vtw.org/ | |
27 | 36 |
28 ;; ======================================================================== | 37 ;; ======================================================================== |
29 ;; "No matter how hard you try, you can't make a racehorse out of a pig. | 38 ;; "No matter how hard you try, you can't make a racehorse out of a pig. |
30 ;; You can, however, make a faster pig." | 39 ;; You can, however, make a faster pig." |
31 ;; | 40 ;; |
1283 byte-plus byte-max byte-min byte-mult byte-char-after byte-char-syntax | 1292 byte-plus byte-max byte-min byte-mult byte-char-after byte-char-syntax |
1284 byte-buffer-substring byte-string= byte-string< byte-nthcdr byte-elt | 1293 byte-buffer-substring byte-string= byte-string< byte-nthcdr byte-elt |
1285 byte-member byte-assq byte-quo byte-rem) | 1294 byte-member byte-assq byte-quo byte-rem) |
1286 byte-compile-side-effect-and-error-free-ops)) | 1295 byte-compile-side-effect-and-error-free-ops)) |
1287 | 1296 |
1288 ;;; This piece of shit is because of the way DEFVAR_BOOL() variables work. | 1297 ;;; This crock is because of the way DEFVAR_BOOL variables work. |
1289 ;;; Consider the code | 1298 ;;; Consider the code |
1290 ;;; | 1299 ;;; |
1291 ;;; (defun foo (flag) | 1300 ;;; (defun foo (flag) |
1292 ;;; (let ((old-pop-ups pop-up-windows) | 1301 ;;; (let ((old-pop-ups pop-up-windows) |
1293 ;;; (pop-up-windows flag)) | 1302 ;;; (pop-up-windows flag)) |