Mercurial > emacs
view lisp/play/meese.el @ 416:954d6271f0e9
(dired-lisp-ls): handles A a S r i s switches now.
(dired-lisp-delete-matching): new
(dired-lisp-handle-switches): new
author | Sebastian Kremer <sk@thp.uni-koeln.de> |
---|---|
date | Thu, 26 Sep 1991 16:03:09 +0000 |
parents | d2f6c32ff984 |
children | 505130d1ddf8 |
line wrap: on
line source
(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))))) (or (memq 'protect-innocence-hook find-file-hooks) (setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))