Mercurial > emacs
annotate lisp/play/spook.el @ 15148:220145cf7546
(continuation of previous checkin)
(Fwin32_rgb): Dead procedure removed.
(Fwin32_define_rgb_color, Fwin32_load_color_file, win32_map_color,
win32_regenerate_palette, win32_unmap_color): New functions.
(syms_of_w32fns): Set up new lisp functions.
(define_color): Use palettes. Simulate use of PALETTE_RGB to
use closest color instead of dithering.
(map_mode): Function removed.
(WIN32_COLOR, SET_WIN32_COLOR): New macros.
(win32_init_class): Don't set CS_OWNDC in the WNDCLASS style.
(win32_createwindow): Invoke ShowWindow to discard defaults
from parent.
(win32_wnd_proc): Use separate critical sections appropriately.
Handle palette change, show window, and set window position messages.
Record WINDOWPLACEMENT structure length.
D
Detect quit_char.
(Fx_create_frame): Set scrollbar width to be the system standard.
(Ffocus_frame, Funfocus_frame): Functions now do nothing.
(x_to_win32_weight, win32_to_x_weight): Handle "heavy", "extrabold",
"light", "extralight", and "thin" fonts.
(x_to_win32_charset, win32_to_x_charset): New functions.
(win32_to_x_font): Use new height units. Use win32_to_x_charset.
(x_to_win32_font): Use x_to_win32_charset. Support Win32 font names
in addition to X font names.
(win32_load_font, Fx_list_fonts, Fx_display_color_cells,
Fx_display_mm_height, Fx_display_mm_width: Use GetDC directly.
(Fx_open_connection): Support external color mapping files.
(win32_abort): Map abort button to abort, retry to debug, and
ignore to continue.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Fri, 03 May 1996 18:41:13 +0000 |
parents | 83f275dcd93a |
children | 11218164bc54 |
rev | line source |
---|---|
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
2 |
4091
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
3 ;; Copyright (C) 1988, 1993 Free Software Foundation, Inc. |
841 | 4 |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
5 ;; Maintainer: FSF |
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: games |
2315
9e7ec92a4fdf
Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1219
diff
changeset
|
7 ;; Created: May 1987 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
8 |
36 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
787
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
36 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
36 | 25 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
26 ;;; Commentary: |
36 | 27 |
14169 | 28 ;; Steve Strassmann <straz@media-lab.media.mit.edu> didn't write |
29 ;; this, and even if he did, he really didn't mean for you to use it | |
30 ;; in an anarchistic way. | |
31 ;; | |
32 ;; To use this: | |
33 ;; Just before sending mail, do M-x spook. | |
34 ;; A number of phrases will be inserted into your buffer, to help | |
35 ;; give your message that extra bit of attractiveness for automated | |
36 ;; keyword scanners. Help defeat the NSA trunk trawler! | |
36 | 37 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
38 ;;; Code: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
39 |
3384 | 40 (require 'cookie1) |
2320
ee096523431c
Modified to use cookie.el
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2315
diff
changeset
|
41 |
36 | 42 ; Variables |
444 | 43 (defvar spook-phrases-file (concat data-directory "spook.lines") |
36 | 44 "Keep your favorite phrases here.") |
45 | |
46 (defvar spook-phrase-default-count 15 | |
47 "Default number of phrases to insert") | |
48 | |
1219
3e9034e7bebf
(spook): Make it autoload.
Richard M. Stallman <rms@gnu.org>
parents:
841
diff
changeset
|
49 ;;;###autoload |
36 | 50 (defun spook () |
51 "Adds that special touch of class to your outgoing mail." | |
52 (interactive) | |
4091
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
53 (cookie-insert spook-phrases-file |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
54 spook-phrase-default-count |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
55 "Checking authorization..." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
56 "Checking authorization...Approved")) |
36 | 57 |
4091
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
58 ;;;###autoload |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
59 (defun snarf-spooks () |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
60 "Return a vector containing the lines from `spook-phrases-file'." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
61 (cookie-snarf spook-phrases-file |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
62 "Checking authorization..." |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
63 "Checking authorization...Approved")) |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
64 |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
65 ;; Note: the implementation that used to take up most of this file has been |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
66 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in |
51d19cce579f
(snarf-spooks): Restore function.
Roland McGrath <roland@gnu.org>
parents:
3384
diff
changeset
|
67 ;; cookie1.el. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
68 |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
444
diff
changeset
|
69 ;;; spook.el ends here |