Mercurial > emacs
annotate lisp/play/meese.el @ 846:20674ae6bf52
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Wed, 22 Jul 1992 04:22:42 +0000 |
parents | 113281b361ec |
children | 7e4999005da1 |
rev | line source |
---|---|
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
1 ;; meese.el --- protect the impressionable young minds of America |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
2 |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
659
diff
changeset
|
3 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
791
diff
changeset
|
4 ;; Keywords: games |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
14
diff
changeset
|
5 |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
840
diff
changeset
|
6 ;;; Code: |
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
840
diff
changeset
|
7 |
14 | 8 (defun protect-innocence-hook () |
9 (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6") | |
10 (not (y-or-n-p "Are you over 18? "))) | |
11 (progn | |
12 (clear-visited-file-modtime) | |
13 (setq buffer-file-name (concat (file-name-directory buffer-file-name) | |
14 "celibacy.1")) | |
15 (let (buffer-read-only) ; otherwise (erase-buffer) may bomb. | |
16 (erase-buffer) | |
17 (insert-file-contents buffer-file-name t)) | |
18 (rename-buffer (file-name-nondirectory buffer-file-name))))) | |
19 | |
20 (or (memq 'protect-innocence-hook find-file-hooks) | |
21 (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks))) | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
14
diff
changeset
|
22 |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
14
diff
changeset
|
23 ;;; meese.el ends here |