lisp/play/meese.el

   1 ;; meese.el --- protect the impressionable young minds of America
   2 ;; This is in the public domain on account of being distributed since
   3 ;; 1985 or 1986 without a copyright notice.
   4
   5 ;; Maintainer: FSF
   6 ;; Keywords: games
   7
   8 ;;; Code:
   9
  10 (defun protect-innocence-hook ()
  11   (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
  12            (not (y-or-n-p "Are you over 18? ")))
  13       (progn
  14         (clear-visited-file-modtime)
  15         (setq buffer-file-name (concat (file-name-directory buffer-file-name)
  16                                        "celibacy.1"))
  17         (let (buffer-read-only) ; otherwise (erase-buffer) may bomb.
  18           (erase-buffer)
  19           (insert-file-contents buffer-file-name t))
  20         (rename-buffer (file-name-nondirectory buffer-file-name)))))
  21
  22 (or (memq 'protect-innocence-hook find-file-hooks)
  23     (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))
  24
  25 ;;; meese.el ends here