Mercurial > hg > xemacs-beta

diff lisp/utils/forms-pass.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children ac2d302a0011
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/utils/forms-pass.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,28 @@
+;;; forms-pass.el --- passwd file demo for forms-mode
+;; Keywords: extensions
+
+;;; Synched up with: FSF 19.30.
+
+;; 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"))