[bpt/emacs.git] / lisp / play / meese.el

;;; meese.el --- protect the impressionable young minds of America

;; This is in the public domain on account of being distributed since
;; 1985 or 1986 without a copyright notice.

;; Maintainer: FSF
;; Keywords: games

;;; Code:

(defun protect-innocence-hook ()
  (let ((dir (file-name-directory buffer-file-name)))
    (if (and (equal buffer-file-name (expand-file-name "sex.6" dir))
	     (file-exists-p buffer-file-name)
	     (not (y-or-n-p "Are you over 18? ")))
	(progn
	  (clear-visited-file-modtime)
	  (setq buffer-file-name (expand-file-name "celibacy.1" dir))
	  (let ((inhibit-read-only t))	; otherwise (erase-buffer) may bomb.
	    (erase-buffer)
	    (insert-file-contents buffer-file-name t))
	  (rename-buffer (file-name-nondirectory buffer-file-name))))))

(add-hook 'find-file-hooks 'protect-innocence-hook)
(provide 'meese)

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