diff options
author | Richard M. Stallman <[email protected]> | 1994-07-03 18:47:37 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-07-03 18:47:37 +0000 |
commit | de0724367ce37e0fd26c033dd30316567a14266f (patch) | |
tree | 4e0469789ccc0f6c6bf0e4c81d54b9d2707c767f /lisp/play/meese.el | |
parent | c2ff34f7a3850ee53198bb636e58dc237f3ae81a (diff) |
Use add-hook, (provide 'meese).
(protect-innocence-hook): compare expanded file names for the sake
of non-unix file systems. Use expand-file-name instead of concat
to create "celibacy.1" file name. Check that the "sex.6" exists.
Diffstat (limited to 'lisp/play/meese.el')
-rw-r--r-- | lisp/play/meese.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/lisp/play/meese.el b/lisp/play/meese.el index 9deb1b69b9..8a3ad922b8 100644 --- a/lisp/play/meese.el +++ b/lisp/play/meese.el @@ -9,18 +9,19 @@ ;;; Code: (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))))) + (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)))))) -(or (memq 'protect-innocence-hook find-file-hooks) - (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks))) +(add-hook 'find-file-hooks 'protect-innocence-hook) +(provide 'meese) ;;; meese.el ends here |