Mercurial > emacs
view lisp/play/meese.el @ 50357:e5a09c97e444
Include blockinput.h.
(Vx_resource_name, Vx_resource_class, Qx_frame_parameter)
(Qx_resource_name, Qface_set_after_frame_default): Define vars here.
(Qauto_raise, Qauto_lower, ...): Define all frame parameter
related vars here.
(struct frame_parm_table, frame_parms): New table for describing
frame parameters and their associated Q-variable.
The order of the parameters corresponds to the sequence of the
frame_parm_handlers table in redisplay_interface.
(x_fullscreen_move, x_set_frame_parameters)
(x_report_frame_params, x_set_fullscreen, x_set_line_spacing)
(x_set_screen_gamma, x_set_font, x_set_fringe_width)
(x_set_border_width, x_set_internal_border_width, x_set_visibility)
(x_set_autoraise, x_set_autolower, x_set_unsplittable)
(x_set_vertical_scroll_bars, x_set_scroll_bar_width, x_icon_type):
Generic functions for processing of frame parameters.
(validate_x_resource_name, xrdb_get_resource, Fx_get_resource)
(display_x_get_resource, x_get_resource_string): Functions for
generic access to X resources.
(x_get_arg, x_frame_get_arg, x_frame_get_and_record_arg)
(x_default_parameter, Fx_parse_geometry): Functions for generic
access to frame parameters.
(x_figure_window_size): Generic calculation of frame size. Fixed
to add space needed for tool bar. Also setup size_hint_flags.
(syms_of_frame): Intern and staticpro frame parameter variables.
Defvar_lisp Vx_resource_class and Vx_resource_name here.
Defsubr Sx_get_resource and Sx_parse_geometry.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 31 Mar 2003 20:33:58 +0000 |
parents | f00337f04e78 |
children | 695cf19ef79e |
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) ;;; meese.el ends here