diff options
Diffstat (limited to 'lisp/meese.el')
| -rw-r--r-- | lisp/meese.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/meese.el b/lisp/meese.el new file mode 100644 index 00000000000..5ba9dfd2ad2 --- /dev/null +++ b/lisp/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))) |