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     ! 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.