From 3d72126b31065d2e5fac01c0c260f420e16d4730 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 20 May 1988 21:55:27 +0000 Subject: [PATCH] Initial revision --- lisp/play/meese.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 lisp/play/meese.el 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))) -- 2.39.2