view lisp/forms-pass.el @ 60198:d75e10df3675

(window_scroll_pixel_based): When scrolling backwards, handle partial visible line at end of window even when we hit PT.

+
鐃緒申;;; 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