diff options
| author | Jim Blandy <jimb@redhat.com> | 1988-05-20 21:55:27 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1988-05-20 21:55:27 +0000 |
| commit | 3d72126b31065d2e5fac01c0c260f420e16d4730 (patch) | |
| tree | 121cadcfb941e1fbe76dd3c84f035aac60865ded /lisp/play | |
| parent | f751376f0fb1dc62ca9fae80b96e6e75c5fc3e6d (diff) | |
| download | emacs-3d72126b31065d2e5fac01c0c260f420e16d4730.tar.gz | |
Initial revision
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/meese.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/play/meese.el b/lisp/play/meese.el new file mode 100644 index 00000000000..5ba9dfd2ad2 --- /dev/null +++ b/lisp/play/meese.el @@ -0,0 +1,14 @@ +(defun protect-innocence-hook () + (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6") + (not (y-or-n-p "Are you over 18? "))) + (progn + (clear-visited-file-modtime) + (setq buffer-file-name (concat (file-name-directory buffer-file-name) + "celibacy.1")) + (let (buffer-read-only) ; otherwise (erase-buffer) may bomb. + (erase-buffer) + (insert-file-contents buffer-file-name t)) + (rename-buffer (file-name-nondirectory buffer-file-name))))) + +(or (memq 'protect-innocence-hook find-file-hooks) + (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks))) |