Mercurial > emacs
annotate lisp/pcmpl-unix.el @ 110428:6060b86fc551
Merge changes made in Gnus trunk.
nnimap.el (nnimap-finish-retrieve-group-infos): Return data in the nntp buffer so the agent can save it.
nnimap.el (nnimap-open-shell-stream): Bind `process-connection-type' to nil, so that CRLF doesn't get translated to \n; (nnimap-open-connection): Don't make 'shell commands only send \n.
nnimap.el (nnimap-request-group): Don't make `M-g' bug out on group with no marks.
gnus-agent.el (gnus-agent-load-alist): Nix out the alist if the file doesn't exist.
nnimap.el (nnimap-finish-retrieve-group-infos): Protect against groups that have no articles.
nnimap.el (nnimap-request-article): Check that we really got an article when we requested one.
gnus-html.el (gnus-html-schedule-image-fetching): Ignore all errors from url-retrieve, for instance about invalid URLs.
gnus-agent.el: Change default of gnus-agent-auto-agentize-methods to nil.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 19 Sep 2010 10:45:51 +0000 |
parents | 280c8ae2476d |
children | 417b1e4d63cd |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
29959
diff
changeset
|
1 ;;; pcmpl-unix.el --- standard UNIX completions |
29959 | 2 |
74442 | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
29959 | 5 |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
106869
diff
changeset
|
6 ;; Package: pcomplete |
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
106869
diff
changeset
|
7 |
29959 | 8 ;; This file is part of GNU Emacs. |
9 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91644
diff
changeset
|
10 ;; GNU Emacs is free software: you can redistribute it and/or modify |
29959 | 11 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91644
diff
changeset
|
12 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91644
diff
changeset
|
13 ;; (at your option) any later version. |
29959 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91644
diff
changeset
|
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
29959 | 22 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
29959
diff
changeset
|
23 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
29959
diff
changeset
|
24 |
29959 | 25 ;;; Code: |
26 | |
27 (require 'pcomplete) | |
28 | |
29 ;; User Variables: | |
30 | |
31 (defcustom pcmpl-unix-group-file "/etc/group" | |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
32 "If non-nil, a string naming the group file on your system." |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
33 :type '(choice file (const nil)) |
29959 | 34 :group 'pcmpl-unix) |
35 | |
36 (defcustom pcmpl-unix-passwd-file "/etc/passwd" | |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
37 "If non-nil, a string naming the passwd file on your system." |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
38 :type '(choice file (const nil)) |
29959 | 39 :group 'pcmpl-unix) |
40 | |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
41 (defcustom pcmpl-ssh-known-hosts-file "~/.ssh/known_hosts" |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
42 "If non-nil, a string naming your SSH \"known_hosts\" file. |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
43 This allows completion of SSH host names. Note that newer |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
44 versions of ssh hash the hosts by default to prevent |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
45 Island-hopping SSH attacks. This can be disabled, at some risk, |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
46 with the SSH option \"HashKnownHosts no\"." |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
47 :type '(choice file (const nil)) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
48 :group 'pcmpl-unix |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
49 :version "23.1") |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
50 |
29959 | 51 ;; Functions: |
52 | |
53 ;;;###autoload | |
54 (defun pcomplete/cd () | |
55 "Completion for `cd'." | |
106360
33815099ecfc
(pcomplete/cd): Complete more than one argument, just in case.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100908
diff
changeset
|
56 (while (pcomplete-here (pcomplete-dirs)))) |
29959 | 57 |
58 ;;;###autoload | |
59 (defalias 'pcomplete/pushd 'pcomplete/cd) | |
60 | |
61 ;;;###autoload | |
62 (defun pcomplete/rmdir () | |
63 "Completion for `rmdir'." | |
64 (while (pcomplete-here (pcomplete-dirs)))) | |
65 | |
66 ;;;###autoload | |
67 (defun pcomplete/rm () | |
68 "Completion for `rm'." | |
69 (let ((pcomplete-help "(fileutils)rm invocation")) | |
70 (pcomplete-opt "dfirRv") | |
71 (while (pcomplete-here (pcomplete-all-entries) nil | |
72 'expand-file-name)))) | |
73 | |
74 ;;;###autoload | |
75 (defun pcomplete/xargs () | |
76 "Completion for `xargs'." | |
77 (pcomplete-here (funcall pcomplete-command-completion-function)) | |
78 (funcall (or (pcomplete-find-completion-function (pcomplete-arg 1)) | |
79 pcomplete-default-completion-function))) | |
80 | |
81 ;;;###autoload | |
82 (defalias 'pcomplete/time 'pcomplete/xargs) | |
83 | |
84 ;;;###autoload | |
85 (defun pcomplete/which () | |
86 "Completion for `which'." | |
87 (while (pcomplete-here (funcall pcomplete-command-completion-function)))) | |
88 | |
89 (defun pcmpl-unix-read-passwd-file (file) | |
106869
54435fbb4206
* pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
90 "Return an alist correlating gids to group names in FILE. |
54435fbb4206
* pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
91 |
54435fbb4206
* pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
92 If FILE is in hashed format (as described in the OpenSSH |
54435fbb4206
* pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
93 documentation), this function returns nil." |
29959 | 94 (let (names) |
95 (when (file-readable-p file) | |
96 (with-temp-buffer | |
97 (insert-file-contents file) | |
98 (goto-char (point-min)) | |
99 (while (not (eobp)) | |
100 (let* ((fields | |
101 (split-string (buffer-substring | |
102 (point) (progn (end-of-line) | |
103 (point))) ":"))) | |
104 (setq names (cons (nth 0 fields) names))) | |
105 (forward-line)))) | |
106 (pcomplete-uniqify-list names))) | |
107 | |
108 (defsubst pcmpl-unix-group-names () | |
109 "Read the contents of /etc/group for group names." | |
110 (if pcmpl-unix-group-file | |
111 (pcmpl-unix-read-passwd-file pcmpl-unix-group-file))) | |
112 | |
113 (defsubst pcmpl-unix-user-names () | |
114 "Read the contents of /etc/passwd for user names." | |
115 (if pcmpl-unix-passwd-file | |
116 (pcmpl-unix-read-passwd-file pcmpl-unix-passwd-file))) | |
117 | |
118 ;;;###autoload | |
119 (defun pcomplete/chown () | |
120 "Completion for the `chown' command." | |
121 (unless (pcomplete-match "\\`-") | |
122 (if (pcomplete-match "\\`[^.]*\\'" 0) | |
123 (pcomplete-here* (pcmpl-unix-user-names)) | |
124 (if (pcomplete-match "\\.\\([^.]*\\)\\'" 0) | |
125 (pcomplete-here* (pcmpl-unix-group-names) | |
126 (pcomplete-match-string 1 0)) | |
127 (pcomplete-here*)))) | |
128 (while (pcomplete-here (pcomplete-entries)))) | |
129 | |
130 ;;;###autoload | |
131 (defun pcomplete/chgrp () | |
132 "Completion for the `chgrp' command." | |
133 (unless (pcomplete-match "\\`-") | |
134 (pcomplete-here* (pcmpl-unix-group-names))) | |
135 (while (pcomplete-here (pcomplete-entries)))) | |
136 | |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
137 |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
138 ;; ssh support by Phil Hagelberg. |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
139 ;; http://www.emacswiki.org/cgi-bin/wiki/pcmpl-ssh.el |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
140 |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
141 (defun pcmpl-ssh-hosts () |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
142 "Return a list of hosts found in `pcmpl-ssh-known-hosts-file'." |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
143 (when (and pcmpl-ssh-known-hosts-file |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
144 (file-readable-p pcmpl-ssh-known-hosts-file)) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
145 (with-temp-buffer |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
146 (insert-file-contents-literally pcmpl-ssh-known-hosts-file) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
147 (let (ssh-hosts-list) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
148 (while (re-search-forward "^ *\\([-.[:alnum:]]+\\)[, ]" nil t) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
149 (add-to-list 'ssh-hosts-list (match-string 1)) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
150 (while (and (looking-back ",") |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
151 (re-search-forward "\\([-.[:alnum:]]+\\)[, ]" |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
152 (line-end-position) t)) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
153 (add-to-list 'ssh-hosts-list (match-string 1)))) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
154 ssh-hosts-list)))) |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
155 |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
156 ;;;###autoload |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
157 (defun pcomplete/ssh () |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
158 "Completion rules for the `ssh' command." |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
159 (pcomplete-opt "1246AaCfgKkMNnqsTtVvXxYbcDeFiLlmOopRSw" nil t) |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
160 (pcomplete-here (pcmpl-ssh-hosts))) |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
161 |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
162 ;;;###autoload |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
163 (defun pcomplete/scp () |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
164 "Completion rules for the `scp' command. |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
165 Includes files as well as host names followed by a colon." |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
166 (pcomplete-opt "1246BCpqrvcFiloPS") |
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
167 (while t (pcomplete-here (append (pcomplete-all-entries) |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
168 (mapcar (lambda (host) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
169 (concat host ":")) |
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
170 (pcmpl-ssh-hosts)))))) |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
171 |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
172 (provide 'pcmpl-unix) |
91643
d3922949ea68
Phil Hagelberg <phil at evri.com>
Glenn Morris <rgm@gnu.org>
parents:
79721
diff
changeset
|
173 |
91644
681a1b7488c2
(top-level): Move provide statement to end.
Glenn Morris <rgm@gnu.org>
parents:
91643
diff
changeset
|
174 ;; arch-tag: 3f9eb5af-7e0e-449d-b586-381cbbf8fc5c |
29959 | 175 ;;; pcmpl-unix.el ends here |