view lisp/forms-pass.el @ 108183:b67d7273ec18

Avoid using trash for certain temp files (Bug#6070). * server.el (server-sentinel, server-start, server-force-delete): * jka-compr.el (jka-compr-partial-uncompress) (jka-compr-call-process, jka-compr-write-region, jka-compr-load): * epg.el (epg--make-temp-file, epg-decrypt-string) (epg-encrypt-string, epg-verify-string, epg-sign-string): * diff.el (diff-sentinel): Bind delete-by-moving-to-trash to nil before deleting (Bug#6070).

+
鐃緒申;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
+
鐃緒申
+
鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申
+
鐃緒申;;; Commentary:
+
鐃緒申
+
鐃緒申;; This demo visits your passwd file.
+
鐃緒申
+
鐃緒申;;; Code:
+
鐃緒申
+
鐃緒申;; 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"))
+
鐃緒申
+
鐃緒申;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
+
鐃緒申;;; forms-pass.el ends here