From 60eabbb99498e9c13fdd0bc2ef80c6d698b18a19 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 6 Feb 2014 19:14:56 -0800 Subject: [PATCH] * 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. --- lisp/ChangeLog | 5 +++++ lisp/obsolete/meese.el | 38 ++++++++++++++++++++++++++++++++++++++ 2 files changed, 43 insertions(+) create mode 100644 lisp/obsolete/meese.el 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 + + * obsolete/meese.el: Restore as obsolete (deleted 2014-01-11). + Disable now non-functional find-file-hook. + 2014-02-06 Michael Albinus * 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 -- 2.39.2