Return to meese.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/meese.el, revision 1.1.1.1

1.1       root        1: (defun protect-innocence-hook ()
                      2:   (if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
                      3:           (not (y-or-n-p "Are you over 18? ")))
                      4:       (progn
                      5:        (clear-visited-file-modtime)
                      6:        (setq buffer-file-name (concat (file-name-directory buffer-file-name)
                      7:                                       "celibacy.1"))
                      8:        (let (buffer-read-only) ; otherwise (erase-buffer) may bomb.
                      9:          (erase-buffer)
                     10:          (insert-file-contents buffer-file-name t))
                     11:        (rename-buffer (file-name-nondirectory buffer-file-name)))))
                     12: 
                     13: (or (memq 'protect-innocence-hook find-file-hooks)
                     14:     (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.