view lisp/forms-pass.el @ 62890:4b7fa3ee8e9e
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-336
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 74-75)
- Merge from emacs--cvs-trunk--0
- Update from CVS
2005-05-30 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-agent.el (gnus-category-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-art.el (gnus-article-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-cus.el (gnus-custom-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-eform.el (gnus-edit-form-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-group.el (gnus-group-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-kill.el (gnus-kill-file-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-salt.el (gnus-tree-mode): Use gnus-run-mode-hooks.
(gnus-carpal-mode): Ditto.
* lisp/gnus/gnus-srvr.el (gnus-server-mode): Use gnus-run-mode-hooks.
(gnus-browse-mode): Ditto.
* lisp/gnus/gnus-sum.el (gnus-summary-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-util.el (gnus-run-mode-hooks): Save current buffer.
author |
Miles Bader <miles@gnu.org> |
date |
Mon, 30 May 2005 08:20:19 +0000 (2005-05-30) |
parents |
695cf19ef79e |
children |
375f2633d815 1e3a407766b9 |
line source
;;; 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