Mercurial > emacs
view lisp/play/meese.el @ 107360:8d9bcdbc2a6e
Animated image API.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg00211.html
* image.el (image-animate-max-time): New defcustom.
(image-animated-types): New defconst.
(create-animated-image, image-animate-timer)
(image-animate-start, image-animate-stop, image-animate-timeout)
(image-animated-p): New functions.
* image-mode.el (image-toggle-display-image):
Replace `create-image' with `create-animated-image'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Sun, 07 Mar 2010 21:02:20 +0200 |
parents | 1e3a407766b9 |
children | ef719132ddfa |
line wrap: on
line source
;;; 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. ;; This file is part of GNU Emacs. ;; Maintainer: FSF ;; Keywords: games ;;; Commentary: ;; Adds a hook to protect the impressionable young minds of America ;; from reading certain files in the Emacs distribution using Emacs. ;; This file is named after Ed Meese, the US Attorney General ;; under President Reagan, because of his support for censorship. ;;; 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-hook 'protect-innocence-hook) (provide 'meese) ;; arch-tag: 47af12d2-6a7d-4e2e-a1ea-eae75a77e3f0 ;;; meese.el ends here