view lisp/forms-pass.el @ 25628:98e238950125

(x_build_heuristic_mask): Accept a list `(R G B)' as background color specification instead of an integer. (image-cache-eviction-delay): Replaces image-eviction-seconds. (Vimage_cache_eviction_delay): Replaces Vimage_eviction_seconds. (clear_image_cache, syms_of_xfns): Use it. (Qpostscript): Replaces Qghostscript. (gs_type): Use it. (gs_image_p): Ditto. (syms_of_xfns): Initialize Qpostscript.

;;; forms-pass.el --- passwd file demo for forms-mode

;; This demo visits your passwd file.

;; use yp if present
(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
    (setq forms-file "/etc/passwd"))

(setq forms-read-only t)		; to make sure
(setq forms-field-sep ":")
(setq forms-number-of-fields 7)

(setq forms-format-list
      (list
       "====== Visiting " forms-file " ======\n\n"
       "User : "	1
       "   Uid: "	3
       "   Gid: "	4
       "\n\n"
       "Name : "	5
       "\n\n"
       "Home : "	6
       "\n\n"
       "Shell: "	7
       "\n"))