Mercurial > emacs
annotate lisp/forms-pass.el @ 107189:a48b193e3b5f
(tramp-handle-insert-file-contents): Set always the permissions of the
temporary file to "0600". In case the remote
file has no read permissions for the owner, there might be
problems otherwise. Reported by Ole Laursen <olau@iola.dk>.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Thu, 18 Feb 2010 11:03:12 +0100 |
parents | 1e3a407766b9 |
children | ef719132ddfa |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
38414
diff
changeset
|
1 ;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*- |
13337 | 2 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
3 ;; This file is part of GNU Emacs. |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
4 |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
5 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
6 |
306 | 7 ;; This demo visits your passwd file. |
275 | 8 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
9 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
10 |
306 | 11 ;; use yp if present |
12 (or (file-exists-p (setq forms-file "/var/yp/src/passwd")) | |
13 (setq forms-file "/etc/passwd")) | |
14 | |
275 | 15 (setq forms-read-only t) ; to make sure |
16 (setq forms-field-sep ":") | |
17 (setq forms-number-of-fields 7) | |
306 | 18 |
275 | 19 (setq forms-format-list |
306 | 20 (list |
21 "====== Visiting " forms-file " ======\n\n" | |
275 | 22 "User : " 1 |
23 " Uid: " 3 | |
24 " Gid: " 4 | |
25 "\n\n" | |
26 "Name : " 5 | |
27 "\n\n" | |
28 "Home : " 6 | |
29 "\n\n" | |
30 "Shell: " 7 | |
31 "\n")) | |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
32 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
33 ;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
13337
diff
changeset
|
34 ;;; forms-pass.el ends here |