Mercurial > emacs

comparison lisp/play/meese.el @ 846:20674ae6bf52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 22 Jul 1992 04:22:42 +0000
parents 113281b361ec
children 7e4999005da1
comparison
equal deleted inserted replaced
845:213978acbc1e 846:20674ae6bf52
1 ;; meese.el --- protect the impressionable young minds of America 1 ;; meese.el --- protect the impressionable young minds of America
2 2
3 ;; Maintainer: FSF 3 ;; Maintainer: FSF
4 ;; Keywords: games 4 ;; Keywords: games
5
6 ;;; Code:
5 7
6 (defun protect-innocence-hook () 8 (defun protect-innocence-hook ()
7 (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6") 9 (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
8 (not (y-or-n-p "Are you over 18? "))) 10 (not (y-or-n-p "Are you over 18? ")))
9 (progn 11 (progn