Mercurial > emacs
view lisp/forms-pass.el @ 11605:36b1eb58d0c9
(vc-next-action-on-file): Add missing let-binding.
(vc-default-backend, vc-keep-workfiles, vc-consult-headers):
(vc-mistrust-permissions, vc-path): Vars moved to vc-hooks.el.
(vc-match-substring, vc-lock-file, vc-parse-buffer, vc-master-info):
(vc-log-info, vc-consult-rcs-headers, vc-fetch-properties):
(vc-backend-subdirectory-name, vc-locking-user, vc-true-locking-user):
(vc-latest-version, vc-your-latest-version, vc-branch-version):
(vc-workfile-version): Functions moved to vc-hooks.el.
(vc-trunk-p, vc-minor-revision, vc-branch-part): Functions moved
here from vc-hooks.el.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 26 Apr 1995 21:47:35 +0000 |
parents | 785babb5bb6f |
children | 84acc3adcd63 |
line wrap: on
line source
;; demo for forms-mode -*-emacs-lisp-*- ;; ;; 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"))