Mercurial > emacs
comparison lisp/play/meese.el @ 791:203c23c9f22c
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Thu, 16 Jul 1992 04:23:17 +0000 |
parents | 505130d1ddf8 |
children | e694e0879463 |
comparison
equal
deleted
inserted
replaced
790:47ec7c4c42bc | 791:203c23c9f22c |
---|---|
1 ;; meese.el --- protect the impressionable young minds of America...NOT! | 1 ;; meese.el --- protect the impressionable young minds of America |
2 | |
3 ;; Maintainer: FSF | |
4 ;; Last-Modified: 20 May 1988 | |
2 | 5 |
3 (defun protect-innocence-hook () | 6 (defun protect-innocence-hook () |
4 (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6") | 7 (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6") |
5 (not (y-or-n-p "Are you over 18? "))) | 8 (not (y-or-n-p "Are you over 18? "))) |
6 (progn | 9 (progn |