diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-02-06 19:14:56 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-02-06 19:14:56 -0800 |
| commit | 60eabbb99498e9c13fdd0bc2ef80c6d698b18a19 (patch) | |
| tree | d902ee129696db1c5baf6f2d946259ff14d5dd37 | |
| parent | 719d965d9a2e693ef83de45378fe86d57bdd5631 (diff) | |
| download | emacs-60eabbb99498e9c13fdd0bc2ef80c6d698b18a19.tar.gz | |
* lisp/obsolete/meese.el: Restore as obsolete (deleted 2014-01-11).
Disable now non-functional find-file-hook.
Maybe somebody had (require 'meese) in their init file...
If patcomp.el can live on in obsolete/, so can this.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/obsolete/meese.el | 38 |
2 files changed, 43 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 92f396367c5..e77adedb23f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-07 Glenn Morris <rgm@gnu.org> + + * obsolete/meese.el: Restore as obsolete (deleted 2014-01-11). + Disable now non-functional find-file-hook. + 2014-02-06 Michael Albinus <michael.albinus@gmx.de> * net/tramp-sh.el (tramp-sh-handle-start-file-process): Use "&&" diff --git a/lisp/obsolete/meese.el b/lisp/obsolete/meese.el new file mode 100644 index 00000000000..c0aba38dd3b --- /dev/null +++ b/lisp/obsolete/meese.el @@ -0,0 +1,38 @@ +;;; 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 +;; Obsolete-since: 24.4 + +;;; 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) + +;;; meese.el ends here |