annotate lisp/forms-pass.el @ 27406:fb36ccd8457c

(w32_fill_rect): Do not try to deal with NULL hdc here. Callers changed to always pass real device context. (w32_draw_bitmap): Likewise. (w32_get_glyph_overhangs): Likewise. (w32_draw_box_rect): Make use of s->hdc rather than getting a new one. (w32_set_vertical_scroll_bar): Pass correct HWND parameters to pfnSetScrollInfo and SetScrollRange. (x_get_char_face_and_encoding): Don't turn iso8859-1 characters back into MULE characters after decoding them. (x_get_glyph_face_and_encoding): Likewise. (w32_per_char_metric): Use GetCharExtentPoint32W as fallback when GetCharABCWidthsW fails, since this is defined on Windows 9x. (x_produce_glyphs): Calculate per char metrics for a character that we know exists in default font when font_not_found_p is true.
author Jason Rumney <jasonr@gnu.org>
date Sun, 23 Jan 2000 22:15:12 +0000
parents 84acc3adcd63
children 67b464da13ec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 306
diff changeset
1 ;;; forms-pass.el --- passwd file demo for forms-mode
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 306
diff changeset
2
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
3 ;; This demo visits your passwd file.
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
4
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
5 ;; use yp if present
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
7 (setq forms-file "/etc/passwd"))
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
8
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
9 (setq forms-read-only t) ; to make sure
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
10 (setq forms-field-sep ":")
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
11 (setq forms-number-of-fields 7)
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
12
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
13 (setq forms-format-list
306
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
14 (list
785babb5bb6f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 278
diff changeset
15 "====== Visiting " forms-file " ======\n\n"
275
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
16 "User : " 1
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
17 " Uid: " 3
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
18 " Gid: " 4
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
19 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
20 "Name : " 5
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
21 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
22 "Home : " 6
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
23 "\n\n"
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
24 "Shell: " 7
9b41e1ed5e68 Initial revision
Brian Preble <rassilon@gnu.org>
parents:
diff changeset
25 "\n"))