Mercurial > emacs
annotate lisp/shell.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | a4e18a1ee55d |
children | 515d80e174ba |
rev | line source |
---|---|
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35659
diff
changeset
|
1 ;;; shell.el --- specialized comint.el for running the shell |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
2 |
74442 | 3 ;; Copyright (C) 1988, 1993, 1994, 1995, 1996, 1997, 2000, 2001, |
106815 | 4 ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
844
bf829a2d63b4
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
814
diff
changeset
|
5 |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35659
diff
changeset
|
6 ;; Author: Olin Shivers <shivers@cs.cmu.edu> |
25278 | 7 ;; Simon Marshall <simon@gnu.org> |
81695
8f00c712c722
On request of the authors, remove their addresses for
David Kastrup <dak@gnu.org>
parents:
81340
diff
changeset
|
8 ;; Maintainer: FSF <emacs-devel@gnu.org> |
814
38b2499cb3e9
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
9 ;; Keywords: processes |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
10 |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
11 ;; This file is part of GNU Emacs. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
12 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93587
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
14 ;; 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:
93587
diff
changeset
|
15 ;; 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:
93587
diff
changeset
|
16 ;; (at your option) any later version. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
17 |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
21 ;; GNU General Public License for more details. |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
22 |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
23 ;; 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:
93587
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
114 | 25 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
26 ;;; Commentary: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
27 |
46159 | 28 ;; This file defines a shell-in-a-buffer package (shell mode) built on |
29 ;; top of comint mode. This is actually cmushell with things renamed | |
30 ;; to replace its counterpart in Emacs 18. cmushell is more | |
14169 | 31 ;; featureful, robust, and uniform than the Emacs 18 version. |
114 | 32 |
14169 | 33 ;; Since this mode is built on top of the general command-interpreter-in- |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
34 ;; a-buffer mode (comint mode), it shares a common base functionality, |
14169 | 35 ;; and a common set of bindings, with all modes derived from comint mode. |
36 ;; This makes these modes easier to use. | |
114 | 37 |
14169 | 38 ;; For documentation on the functionality provided by comint mode, and |
39 ;; the hooks available for customising it, see the file comint.el. | |
40 ;; For further information on shell mode, see the comments below. | |
114 | 41 |
14169 | 42 ;; Needs fixin: |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
43 ;; When sending text from a source file to a subprocess, the process-mark can |
14169 | 44 ;; move off the window, so you can lose sight of the process interactions. |
45 ;; Maybe I should ensure the process mark is in the window when I send | |
46 ;; text to the process? Switch selectable? | |
114 | 47 |
252 | 48 ;; YOUR .EMACS FILE |
49 ;;============================================================================= | |
50 ;; Some suggestions for your .emacs file. | |
51 ;; | |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
52 ;; ;; Define M-# to run some strange command: |
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
53 ;; (eval-after-load "shell" |
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
54 ;; '(define-key shell-mode-map "\M-#" 'shells-dynamic-spell)) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
55 |
14169 | 56 ;; Brief Command Documentation: |
57 ;;============================================================================ | |
58 ;; Comint Mode Commands: (common to shell and all comint-derived modes) | |
59 ;; | |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
60 ;; m-p comint-previous-input Cycle backwards in input history |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
61 ;; m-n comint-next-input Cycle forwards |
14169 | 62 ;; m-r comint-previous-matching-input Previous input matching a regexp |
63 ;; m-s comint-next-matching-input Next input that matches | |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
64 ;; m-c-l comint-show-output Show last batch of process output |
14169 | 65 ;; return comint-send-input |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
66 ;; c-d comint-delchar-or-maybe-eof Delete char unless at end of buff. |
14169 | 67 ;; c-c c-a comint-bol Beginning of line; skip prompt |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
68 ;; c-c c-u comint-kill-input ^u |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
69 ;; c-c c-w backward-kill-word ^w |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
70 ;; c-c c-c comint-interrupt-subjob ^c |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
71 ;; c-c c-z comint-stop-subjob ^z |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
72 ;; c-c c-\ comint-quit-subjob ^\ |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
73 ;; c-c c-o comint-kill-output Delete last batch of process output |
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
74 ;; c-c c-r comint-show-output Show last batch of process output |
24738 | 75 ;; c-c c-l comint-dynamic-list-input-ring List input history |
14169 | 76 ;; send-invisible Read line w/o echo & send to proc |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
77 ;; comint-continue-subjob Useful if you accidentally suspend |
14169 | 78 ;; top-level job |
79 ;; comint-mode-hook is the comint mode hook. | |
252 | 80 |
14169 | 81 ;; Shell Mode Commands: |
82 ;; shell Fires up the shell process | |
83 ;; tab comint-dynamic-complete Complete filename/command/history | |
84 ;; m-? comint-dynamic-list-filename-completions | |
85 ;; List completions in help buffer | |
86 ;; m-c-f shell-forward-command Forward a shell command | |
87 ;; m-c-b shell-backward-command Backward a shell command | |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
88 ;; dirs Resync the buffer's dir stack |
85709
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
89 ;; shell-dirtrack-mode Turn dir tracking on/off |
14169 | 90 ;; comint-strip-ctrl-m Remove trailing ^Ms from output |
91 ;; | |
92 ;; The shell mode hook is shell-mode-hook | |
93 ;; comint-prompt-regexp is initialised to shell-prompt-pattern, for backwards | |
94 ;; compatibility. | |
252 | 95 |
14169 | 96 ;; Read the rest of this file for more information. |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
97 |
787
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
98 ;;; Code: |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
99 |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
100 (require 'comint) |
3cece0106722
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
101 |
14169 | 102 ;;; Customization and Buffer Variables |
103 | |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
104 (defgroup shell nil |
64021
6c90c8ae9e80
(shell): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63507
diff
changeset
|
105 "Running shell from within Emacs buffers." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
106 :group 'processes |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
107 :group 'unix) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
108 |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
109 (defgroup shell-directories nil |
64021
6c90c8ae9e80
(shell): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63507
diff
changeset
|
110 "Directory support in shell mode." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
111 :group 'shell) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
112 |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
113 (defgroup shell-faces nil |
64021
6c90c8ae9e80
(shell): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63507
diff
changeset
|
114 "Faces in shell buffers." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
115 :group 'shell) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
116 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
117 ;;;###autoload |
105870
26baacb565b0
* textmodes/tex-mode.el (tex-alt-dvi-print-command)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105798
diff
changeset
|
118 (defcustom shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") |
35643
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
119 "Regexp to match shells that don't save their command history, and |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
120 don't handle the backslash as a quote character. For shells that |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
121 match this regexp, Emacs will write out the command history when the |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
122 shell finishes, and won't remove backslashes when it unquotes shell |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
123 arguments." |
31617
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
124 :type 'regexp |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
125 :group 'shell) |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
126 |
23744
e7128c62a0b4
(shell-prompt-pattern): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
23480
diff
changeset
|
127 (defcustom shell-prompt-pattern "^[^#$%>\n]*[#$%>] *" |
252 | 128 "Regexp to match prompts in the inferior shell. |
4131
c9a0f06110bd
* shell.el (shell-process-pushd): Fix syntax error in
Jim Blandy <jimb@redhat.com>
parents:
3418
diff
changeset
|
129 Defaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well. |
63507
e5299a8016cb
(shell-prompt-pattern, shell-dynamic-complete-functions, shell-mode,
Juanma Barranquero <lekktu@gmail.com>
parents:
62402
diff
changeset
|
130 This variable is used to initialize `comint-prompt-regexp' in the |
252 | 131 shell buffer. |
132 | |
61876
c157250db02c
(shell-prompt-pattern): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
53402
diff
changeset
|
133 If `comint-use-prompt-regexp' is nil, then this variable is only used |
c157250db02c
(shell-prompt-pattern): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
53402
diff
changeset
|
134 to determine paragraph boundaries. See Info node `Shell Prompts' for |
c157250db02c
(shell-prompt-pattern): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
53402
diff
changeset
|
135 how Shell mode treats paragraphs. |
30641
297909766bad
(shell-prompt-pattern): Doc change.
Miles Bader <miles@gnu.org>
parents:
25278
diff
changeset
|
136 |
4131
c9a0f06110bd
* shell.el (shell-process-pushd): Fix syntax error in
Jim Blandy <jimb@redhat.com>
parents:
3418
diff
changeset
|
137 The pattern should probably not match more than one line. If it does, |
14476
63540fa43674
Resync directories properly for the ksh.
Simon Marshall <simon@gnu.org>
parents:
14329
diff
changeset
|
138 Shell mode may become confused trying to distinguish prompt from input |
4131
c9a0f06110bd
* shell.el (shell-process-pushd): Fix syntax error in
Jim Blandy <jimb@redhat.com>
parents:
3418
diff
changeset
|
139 on lines which don't start with a prompt. |
c9a0f06110bd
* shell.el (shell-process-pushd): Fix syntax error in
Jim Blandy <jimb@redhat.com>
parents:
3418
diff
changeset
|
140 |
23744
e7128c62a0b4
(shell-prompt-pattern): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
23480
diff
changeset
|
141 This is a fine thing to set in your `.emacs' file." |
e7128c62a0b4
(shell-prompt-pattern): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
23480
diff
changeset
|
142 :type 'regexp |
e7128c62a0b4
(shell-prompt-pattern): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
23480
diff
changeset
|
143 :group 'shell) |
252 | 144 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
145 (defcustom shell-completion-fignore nil |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
146 "List of suffixes to be disregarded during file/command completion. |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
147 This variable is used to initialize `comint-completion-fignore' in the shell |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
148 buffer. The default is nil, for compatibility with most shells. |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
149 Some people like (\"~\" \"#\" \"%\"). |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
150 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
151 This is a fine thing to set in your `.emacs' file." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
152 :type '(repeat (string :tag "Suffix")) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
153 :group 'shell) |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
154 |
6155
2b445a954b0b
(shell-delimiter-argument-list): Now has chars, not strings.
Richard M. Stallman <rms@gnu.org>
parents:
6152
diff
changeset
|
155 (defvar shell-delimiter-argument-list '(?\| ?& ?< ?> ?\( ?\) ?\;) |
63507
e5299a8016cb
(shell-prompt-pattern, shell-dynamic-complete-functions, shell-mode,
Juanma Barranquero <lekktu@gmail.com>
parents:
62402
diff
changeset
|
156 "List of characters to recognize as separate arguments. |
6155
2b445a954b0b
(shell-delimiter-argument-list): Now has chars, not strings.
Richard M. Stallman <rms@gnu.org>
parents:
6152
diff
changeset
|
157 This variable is used to initialize `comint-delimiter-argument-list' in the |
15655
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
158 shell buffer. The value may depend on the operating system or shell. |
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
159 |
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
160 This is a fine thing to set in your `.emacs' file.") |
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
161 |
15818
574ec5119c7a
(shell-file-name-chars): Was shell-file-name-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
15655
diff
changeset
|
162 (defvar shell-file-name-chars |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
48105
diff
changeset
|
163 (if (memq system-type '(ms-dos windows-nt cygwin)) |
21621
56d8224fe691
(shell-file-name-chars): Add ',' and ':'.
Geoff Voelker <voelker@cs.washington.edu>
parents:
20971
diff
changeset
|
164 "~/A-Za-z0-9_^$!#%&{}@`'.,:()-" |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
165 "[]~/A-Za-z0-9+@:_.$#%,={}-") |
15818
574ec5119c7a
(shell-file-name-chars): Was shell-file-name-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
15655
diff
changeset
|
166 "String of characters valid in a file name. |
574ec5119c7a
(shell-file-name-chars): Was shell-file-name-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
15655
diff
changeset
|
167 This variable is used to initialize `comint-file-name-chars' in the |
15655
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
168 shell buffer. The value may depend on the operating system or shell. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
169 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
170 This is a fine thing to set in your `.emacs' file.") |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
171 |
11186
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
172 (defvar shell-file-name-quote-list |
15655
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
173 (if (memq system-type '(ms-dos windows-nt)) |
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
174 nil |
97761
3971edd65203
(shell-file-name-quote-list): Quote `$'.
Chong Yidong <cyd@stupidchicken.com>
parents:
96940
diff
changeset
|
175 (append shell-delimiter-argument-list '(?\s ?$ ?\* ?\! ?\" ?\' ?\` ?\# ?\\))) |
11186
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
176 "List of characters to quote when in a file name. |
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
177 This variable is used to initialize `comint-file-name-quote-list' in the |
15655
f2f66323f14a
Bind shell-file-name-quote-list and shell-file-name-regexp specially for MSDOG.
Simon Marshall <simon@gnu.org>
parents:
15370
diff
changeset
|
178 shell buffer. The value may depend on the operating system or shell. |
11186
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
179 |
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
180 This is a fine thing to set in your `.emacs' file.") |
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
181 |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
182 (defvar shell-dynamic-complete-functions |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
183 '(comint-replace-by-expanded-history |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
184 shell-dynamic-complete-environment-variable |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
185 shell-dynamic-complete-command |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
186 shell-replace-by-expanded-directory |
96940
99669ed07fd2
(shell-dynamic-complete-functions): Use
Chong Yidong <cyd@stupidchicken.com>
parents:
94678
diff
changeset
|
187 shell-dynamic-complete-filename |
99669ed07fd2
(shell-dynamic-complete-functions): Use
Chong Yidong <cyd@stupidchicken.com>
parents:
94678
diff
changeset
|
188 comint-dynamic-complete-filename) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
189 "List of functions called to perform completion. |
63507
e5299a8016cb
(shell-prompt-pattern, shell-dynamic-complete-functions, shell-mode,
Juanma Barranquero <lekktu@gmail.com>
parents:
62402
diff
changeset
|
190 This variable is used to initialize `comint-dynamic-complete-functions' in the |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
191 shell buffer. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
192 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
193 This is a fine thing to set in your `.emacs' file.") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
194 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
195 (defcustom shell-command-regexp "[^;&|\n]+" |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
196 "Regexp to match a single command within a pipeline. |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
197 This is used for directory tracking and does not do a perfect job." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
198 :type 'regexp |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
199 :group 'shell) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
200 |
51554
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
201 (defcustom shell-command-separator-regexp "[;&|\n \t]*" |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
202 "Regexp to match a single command within a pipeline. |
51554
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
203 This is used for directory tracking and does not do a perfect job." |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
204 :type 'regexp |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
205 :group 'shell) |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
206 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
207 (defcustom shell-completion-execonly t |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
208 "If non-nil, use executable files only for completion candidates. |
4938 | 209 This mirrors the optional behavior of tcsh. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
210 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
211 Detecting executability of files may slow command completion considerably." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
212 :type 'boolean |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
213 :group 'shell) |
114 | 214 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
215 (defcustom shell-popd-regexp "popd" |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
216 "Regexp to match subshell commands equivalent to popd." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
217 :type 'regexp |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
218 :group 'shell-directories) |
114 | 219 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
220 (defcustom shell-pushd-regexp "pushd" |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
221 "Regexp to match subshell commands equivalent to pushd." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
222 :type 'regexp |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
223 :group 'shell-directories) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
224 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
225 (defcustom shell-pushd-tohome nil |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
226 "If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd). |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
227 This mirrors the optional behavior of tcsh." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
228 :type 'boolean |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
229 :group 'shell-directories) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
230 |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
231 (defcustom shell-pushd-dextract nil |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
232 "If non-nil, make \"pushd +n\" pop the nth dir to the stack top. |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
233 This mirrors the optional behavior of tcsh." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
234 :type 'boolean |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
235 :group 'shell-directories) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
236 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
237 (defcustom shell-pushd-dunique nil |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
238 "If non-nil, make pushd only add unique directories to the stack. |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
239 This mirrors the optional behavior of tcsh." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
240 :type 'boolean |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
241 :group 'shell-directories) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
242 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
243 (defcustom shell-cd-regexp "cd" |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
244 "Regexp to match subshell commands equivalent to cd." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
245 :type 'regexp |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
246 :group 'shell-directories) |
114 | 247 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
248 (defcustom shell-chdrive-regexp |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
249 (if (memq system-type '(ms-dos windows-nt)) |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
250 ; NetWare allows the five chars between upper and lower alphabetics. |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
251 "[]a-zA-Z^_`\\[\\\\]:" |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
252 nil) |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
253 "If non-nil, is regexp used to track drive changes." |
19829
4344b744de2f
(shell-chdrive-regexp): Likewise.
Richard M. Stallman <rms@gnu.org>
parents:
19476
diff
changeset
|
254 :type '(choice regexp |
4344b744de2f
(shell-chdrive-regexp): Likewise.
Richard M. Stallman <rms@gnu.org>
parents:
19476
diff
changeset
|
255 (const nil)) |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
256 :group 'shell-directories) |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
257 |
24069
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
258 (defcustom shell-dirtrack-verbose t |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
259 "If non-nil, show the directory stack following directory change. |
85709
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
260 This is effective only if directory tracking is enabled. |
85787
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
261 The `dirtrack' package provides an alternative implementation of this feature - |
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
262 see the function `dirtrack-mode'." |
24069
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
263 :type 'boolean |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
264 :group 'shell-directories) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
265 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
266 (defcustom explicit-shell-file-name nil |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
267 "If non-nil, is file name to use for explicitly requested inferior shell." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
268 :type '(choice (const :tag "None" nil) file) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
269 :group 'shell) |
114 | 270 |
73305
2b23d84b802a
(explicit-csh-args, explicit-bash-args): Add comment
Kim F. Storm <storm@cua.dk>
parents:
72621
diff
changeset
|
271 ;; Note: There are no explicit references to the variable `explicit-csh-args'. |
2b23d84b802a
(explicit-csh-args, explicit-bash-args): Add comment
Kim F. Storm <storm@cua.dk>
parents:
72621
diff
changeset
|
272 ;; It is used implicitly by M-x shell when the shell is `csh'. |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
273 (defcustom explicit-csh-args |
114 | 274 (if (eq system-type 'hpux) |
275 ;; -T persuades HP's csh not to think it is smarter | |
276 ;; than us about what terminal modes to use. | |
277 '("-i" "-T") | |
278 '("-i")) | |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
279 "Args passed to inferior shell by \\[shell], if the shell is csh. |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
280 Value is a list of strings, which may be nil." |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
281 :type '(repeat (string :tag "Argument")) |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
282 :group 'shell) |
114 | 283 |
73305
2b23d84b802a
(explicit-csh-args, explicit-bash-args): Add comment
Kim F. Storm <storm@cua.dk>
parents:
72621
diff
changeset
|
284 ;; Note: There are no explicit references to the variable `explicit-bash-args'. |
2b23d84b802a
(explicit-csh-args, explicit-bash-args): Add comment
Kim F. Storm <storm@cua.dk>
parents:
72621
diff
changeset
|
285 ;; It is used implicitly by M-x shell when the interactive shell is `bash'. |
46073
58a34a457ab8
(explicit-bash-args): New user option.
Andreas Schwab <schwab@suse.de>
parents:
45285
diff
changeset
|
286 (defcustom explicit-bash-args |
48105
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
287 (let* ((prog (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
288 (getenv "ESHELL") shell-file-name)) |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
289 (name (file-name-nondirectory prog))) |
73308 | 290 ;; Tell bash not to use readline, except for bash 1.x which |
291 ;; doesn't grook --noediting. Bash 1.x has -nolineediting, but | |
292 ;; process-send-eof cannot terminate bash if we use it. | |
48105
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
293 (if (and (not purify-flag) |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
294 (equal name "bash") |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
295 (file-executable-p prog) |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
296 (string-match "bad option" |
73379
b6d2149f9903
2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
Kim F. Storm <storm@cua.dk>
parents:
73308
diff
changeset
|
297 (shell-command-to-string |
b6d2149f9903
2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
Kim F. Storm <storm@cua.dk>
parents:
73308
diff
changeset
|
298 (concat (shell-quote-argument prog) |
b6d2149f9903
2006-10-15 Lennart Borgman <lennart.borgman.073@student.lu.se>
Kim F. Storm <storm@cua.dk>
parents:
73308
diff
changeset
|
299 " --noediting")))) |
48105
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
300 '("-i") |
5fbd632e1109
(explicit-bash-args): Bash 1.x doesn't grook
Kim F. Storm <storm@cua.dk>
parents:
48016
diff
changeset
|
301 '("--noediting" "-i"))) |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
302 "Args passed to inferior shell by \\[shell], if the shell is bash. |
46073
58a34a457ab8
(explicit-bash-args): New user option.
Andreas Schwab <schwab@suse.de>
parents:
45285
diff
changeset
|
303 Value is a list of strings, which may be nil." |
58a34a457ab8
(explicit-bash-args): New user option.
Andreas Schwab <schwab@suse.de>
parents:
45285
diff
changeset
|
304 :type '(repeat (string :tag "Argument")) |
58a34a457ab8
(explicit-bash-args): New user option.
Andreas Schwab <schwab@suse.de>
parents:
45285
diff
changeset
|
305 :group 'shell) |
58a34a457ab8
(explicit-bash-args): New user option.
Andreas Schwab <schwab@suse.de>
parents:
45285
diff
changeset
|
306 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
307 (defcustom shell-input-autoexpand 'history |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
308 "If non-nil, expand input command history references on completion. |
5538
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
309 This mirrors the optional behavior of tcsh (its autoexpand and histlit). |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
310 |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
311 If the value is `input', then the expansion is seen on input. |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
312 If the value is `history', then the expansion is only when inserting |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
313 into the buffer's input ring. See also `comint-magic-space' and |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
314 `comint-dynamic-complete'. |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
315 |
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
316 This variable supplies a default for `comint-input-autoexpand', |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
317 for Shell mode only." |
23274
0c30ca946dba
(shell-input-autoexpand): Fix customize type.
Andreas Schwab <schwab@suse.de>
parents:
23219
diff
changeset
|
318 :type '(choice (const :tag "off" nil) |
0c30ca946dba
(shell-input-autoexpand): Fix customize type.
Andreas Schwab <schwab@suse.de>
parents:
23219
diff
changeset
|
319 (const input) |
0c30ca946dba
(shell-input-autoexpand): Fix customize type.
Andreas Schwab <schwab@suse.de>
parents:
23219
diff
changeset
|
320 (const history) |
0c30ca946dba
(shell-input-autoexpand): Fix customize type.
Andreas Schwab <schwab@suse.de>
parents:
23219
diff
changeset
|
321 (const :tag "on" t)) |
23480
2046e6b0bc8e
(shell-input-autoexpand): Fix customization group.
Richard M. Stallman <rms@gnu.org>
parents:
23274
diff
changeset
|
322 :group 'shell) |
5538
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
323 |
114 | 324 (defvar shell-dirstack nil |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
325 "List of directories saved by pushd in this buffer's shell. |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
326 Thus, this does not include the shell's current directory.") |
114 | 327 |
6152
34d9a0aa80d1
(shell-dirtrackp): Variable definition added.
Richard M. Stallman <rms@gnu.org>
parents:
6150
diff
changeset
|
328 (defvar shell-dirtrackp t |
34d9a0aa80d1
(shell-dirtrackp): Variable definition added.
Richard M. Stallman <rms@gnu.org>
parents:
6150
diff
changeset
|
329 "Non-nil in a shell buffer means directory tracking is enabled.") |
34d9a0aa80d1
(shell-dirtrackp): Variable definition added.
Richard M. Stallman <rms@gnu.org>
parents:
6150
diff
changeset
|
330 |
2351
bb1ff4e31fb6
Brent Benson's patch to support `cd -'.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1801
diff
changeset
|
331 (defvar shell-last-dir nil |
bb1ff4e31fb6
Brent Benson's patch to support `cd -'.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1801
diff
changeset
|
332 "Keep track of last directory for ksh `cd -' command.") |
bb1ff4e31fb6
Brent Benson's patch to support `cd -'.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1801
diff
changeset
|
333 |
7083
9630c48595d8
(shell-dirstack-query): Defaults to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6887
diff
changeset
|
334 (defvar shell-dirstack-query nil |
76294
24e13e715a20
(shell-dirstack-query): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
75347
diff
changeset
|
335 "Command used by `shell-resync-dirs' to query the shell.") |
114 | 336 |
6150
c1dde384f0dd
(shell-mode-map): Use copy-keymap.
Richard M. Stallman <rms@gnu.org>
parents:
5880
diff
changeset
|
337 (defvar shell-mode-map nil) |
114 | 338 (cond ((not shell-mode-map) |
8889
323936455525
(shell-mode-map): Inherit comint-mode-map, but copy the completion menu.
Richard M. Stallman <rms@gnu.org>
parents:
8694
diff
changeset
|
339 (setq shell-mode-map (nconc (make-sparse-keymap) comint-mode-map)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
340 (define-key shell-mode-map "\C-c\C-f" 'shell-forward-command) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
341 (define-key shell-mode-map "\C-c\C-b" 'shell-backward-command) |
43844
a0885debe0c5
(toplevel): Revert previous change to use pcomplete.
Colin Walters <walters@gnu.org>
parents:
43529
diff
changeset
|
342 (define-key shell-mode-map "\t" 'comint-dynamic-complete) |
108968
a4e18a1ee55d
Bind `shell-resync-dirs' to M-RET in *shell* buffers.
Stephen Eglen <stephen@gnu.org>
parents:
106815
diff
changeset
|
343 (define-key shell-mode-map (kbd "M-RET") 'shell-resync-dirs) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
344 (define-key shell-mode-map "\M-?" |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
345 'comint-dynamic-list-filename-completions) |
8889
323936455525
(shell-mode-map): Inherit comint-mode-map, but copy the completion menu.
Richard M. Stallman <rms@gnu.org>
parents:
8694
diff
changeset
|
346 (define-key shell-mode-map [menu-bar completion] |
45284
723fdd614e34
(shell-mode): Make second part of initialisation
Francesco Potortì <pot@gnu.org>
parents:
45214
diff
changeset
|
347 (cons "Complete" |
43521
c61a65062ae1
(shell-mode-map): Add "Complete" header so completion
Kim F. Storm <storm@cua.dk>
parents:
43491
diff
changeset
|
348 (copy-keymap (lookup-key comint-mode-map [menu-bar completion])))) |
6887
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
349 (define-key-after (lookup-key shell-mode-map [menu-bar completion]) |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
350 [complete-env-variable] '("Complete Env. Variable Name" . |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
351 shell-dynamic-complete-environment-variable) |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
352 'complete-file) |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
353 (define-key-after (lookup-key shell-mode-map [menu-bar completion]) |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
354 [expand-directory] '("Expand Directory Reference" . |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
355 shell-replace-by-expanded-directory) |
9888d3b32db3
(shell-mode-map): Fix menu bar options.
Karl Heuer <kwzh@gnu.org>
parents:
6885
diff
changeset
|
356 'complete-expand))) |
114 | 357 |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
358 (defcustom shell-mode-hook '() |
105170 | 359 "Hook for customizing Shell mode." |
17428
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
360 :type 'hook |
653c0e2e1b31
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16877
diff
changeset
|
361 :group 'shell) |
114 | 362 |
9383
c4fa081b416e
(shell-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9244
diff
changeset
|
363 (defvar shell-font-lock-keywords |
31037
7c81a282d217
(shell-font-lock-keywords): Remove prompt highlighting, since this is
Miles Bader <miles@gnu.org>
parents:
30641
diff
changeset
|
364 '(("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face) |
17497
3ee027d263c6
Use EVAL form for shell-prompt-pattern.
Simon Marshall <simon@gnu.org>
parents:
17428
diff
changeset
|
365 ("^[^ \t\n]+:.*" . font-lock-string-face) |
3ee027d263c6
Use EVAL form for shell-prompt-pattern.
Simon Marshall <simon@gnu.org>
parents:
17428
diff
changeset
|
366 ("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) |
9383
c4fa081b416e
(shell-font-lock-keywords): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9244
diff
changeset
|
367 "Additional expressions to highlight in Shell mode.") |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
368 |
114 | 369 ;;; Basic Procedures |
370 | |
17646
0dcc993f06e4
(shell-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17497
diff
changeset
|
371 (put 'shell-mode 'mode-class 'special) |
0dcc993f06e4
(shell-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents:
17497
diff
changeset
|
372 |
33706
8c460ceb4916
(shell-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32943
diff
changeset
|
373 (define-derived-mode shell-mode comint-mode "Shell" |
71144
2f86f394f7bc
(shell-mode): Use shell-mode-map in docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
70978
diff
changeset
|
374 "Major mode for interacting with an inferior shell.\\<shell-mode-map> |
10831
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
375 \\[comint-send-input] after the end of the process' output sends the text from |
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
376 the end of process to the end of the current line. |
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
377 \\[comint-send-input] before end of process output copies the current line minus the prompt to |
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
378 the end of the buffer and sends it (\\[comint-copy-old-input] just copies the current line). |
10377
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
379 \\[send-invisible] reads a line of text without echoing it, and sends it to |
6508
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
380 the shell. This is useful for entering passwords. Or, add the function |
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
381 `comint-watch-for-password-prompt' to `comint-output-filter-functions'. |
114 | 382 |
10377
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
383 If you want to make multiple shell buffers, rename the `*shell*' buffer |
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
384 using \\[rename-buffer] or \\[rename-uniquely] and start a new shell. |
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
385 |
10831
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
386 If you want to make shell buffers limited in length, add the function |
10832
32d4c4ca1ff8
Moved buffer truncation functionality to comint.el.
Simon Marshall <simon@gnu.org>
parents:
10831
diff
changeset
|
387 `comint-truncate-buffer' to `comint-output-filter-functions'. |
10831
94811e4b2a06
Added shell-truncate-buffer function to restrict buffer size to
Simon Marshall <simon@gnu.org>
parents:
10791
diff
changeset
|
388 |
114 | 389 If you accidentally suspend your process, use \\[comint-continue-subjob] |
390 to continue it. | |
391 | |
10377
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
392 `cd', `pushd' and `popd' commands given to the shell are watched by Emacs to |
2123413a483e
Doc fixes (simon's email address and shell-mode)
Simon Marshall <simon@gnu.org>
parents:
10019
diff
changeset
|
393 keep this buffer's default directory the same as the shell's working directory. |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
394 While directory tracking is enabled, the shell's working directory is displayed |
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
395 by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
396 \\[dirs] queries the shell and resyncs Emacs' idea of what the current |
114 | 397 directory stack is. |
85709
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
398 \\[shell-dirtrack-mode] turns directory tracking on and off. |
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
399 \(The `dirtrack' package provides an alternative implementation of this |
85787
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
400 feature - see the function `dirtrack-mode'.) |
114 | 401 |
402 \\{shell-mode-map} | |
2609
af46e8faaa32
(shell-prompt-pattern): Undo last change.
Richard M. Stallman <rms@gnu.org>
parents:
2573
diff
changeset
|
403 Customization: Entry to this mode runs the hooks on `comint-mode-hook' and |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
404 `shell-mode-hook' (in that order). Before each input, the hooks on |
6189
4ff931c18e4b
Rename comint-input-filter-functions and
Richard M. Stallman <rms@gnu.org>
parents:
6186
diff
changeset
|
405 `comint-input-filter-functions' are run. After each shell output, the hooks |
4ff931c18e4b
Rename comint-input-filter-functions and
Richard M. Stallman <rms@gnu.org>
parents:
6186
diff
changeset
|
406 on `comint-output-filter-functions' are run. |
114 | 407 |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
408 Variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp' |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
409 and `shell-popd-regexp' are used to match their respective commands, |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
410 while `shell-pushd-tohome', `shell-pushd-dextract' and `shell-pushd-dunique' |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
411 control the behavior of the relevant command. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
412 |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
413 Variables `comint-completion-autolist', `comint-completion-addsuffix', |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
414 `comint-completion-recexact' and `comint-completion-fignore' control the |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
415 behavior of file name, command name and variable name completion. Variable |
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
416 `shell-completion-execonly' controls the behavior of command name completion. |
63507
e5299a8016cb
(shell-prompt-pattern, shell-dynamic-complete-functions, shell-mode,
Juanma Barranquero <lekktu@gmail.com>
parents:
62402
diff
changeset
|
417 Variable `shell-completion-fignore' is used to initialize the value of |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
418 `comint-completion-fignore'. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
419 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
420 Variables `comint-input-ring-file-name' and `comint-input-autoexpand' control |
65199
23741bfb23af
(shell-mode, shell-resync-dirs): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
64762
diff
changeset
|
421 the initialization of the input ring history, and history expansion. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
422 |
6189
4ff931c18e4b
Rename comint-input-filter-functions and
Richard M. Stallman <rms@gnu.org>
parents:
6186
diff
changeset
|
423 Variables `comint-output-filter-functions', a hook, and |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
424 `comint-scroll-to-bottom-on-input' and `comint-scroll-to-bottom-on-output' |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
425 control whether input and output cause the window to scroll to the end of the |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
426 buffer." |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
427 (setq comint-prompt-regexp shell-prompt-pattern) |
6255
277d9ace9f5d
(shell-completion-fignore): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6189
diff
changeset
|
428 (setq comint-completion-fignore shell-completion-fignore) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
429 (setq comint-delimiter-argument-list shell-delimiter-argument-list) |
15818
574ec5119c7a
(shell-file-name-chars): Was shell-file-name-regexp.
Richard M. Stallman <rms@gnu.org>
parents:
15655
diff
changeset
|
430 (setq comint-file-name-chars shell-file-name-chars) |
11186
54a20705cf02
Set comint-file-name-quote-list to new shell-file-name-quote-list.
Simon Marshall <simon@gnu.org>
parents:
11154
diff
changeset
|
431 (setq comint-file-name-quote-list shell-file-name-quote-list) |
71664
dd41b3cb7611
(shell-mode): Only change the buffer-local value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71144
diff
changeset
|
432 (set (make-local-variable 'comint-dynamic-complete-functions) |
dd41b3cb7611
(shell-mode): Only change the buffer-local value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
71144
diff
changeset
|
433 shell-dynamic-complete-functions) |
61876
c157250db02c
(shell-prompt-pattern): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
53402
diff
changeset
|
434 (set (make-local-variable 'paragraph-separate) "\\'") |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
435 (make-local-variable 'paragraph-start) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
436 (setq paragraph-start comint-prompt-regexp) |
9485
2685c7803c18
* shell.el: (shell-font-lock-keywords): Add `\n' to [^] regexps.
Simon Marshall <simon@gnu.org>
parents:
9383
diff
changeset
|
437 (make-local-variable 'font-lock-defaults) |
2685c7803c18
* shell.el: (shell-font-lock-keywords): Add `\n' to [^] regexps.
Simon Marshall <simon@gnu.org>
parents:
9383
diff
changeset
|
438 (setq font-lock-defaults '(shell-font-lock-keywords t)) |
114 | 439 (make-local-variable 'shell-dirstack) |
252 | 440 (setq shell-dirstack nil) |
19469
41215527a262
Make shell-last-dir buffer-local.
Simon Marshall <simon@gnu.org>
parents:
19121
diff
changeset
|
441 (make-local-variable 'shell-last-dir) |
2351
bb1ff4e31fb6
Brent Benson's patch to support `cd -'.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
1801
diff
changeset
|
442 (setq shell-last-dir nil) |
5538
9d84549e89b4
(shell-input-autoexpand): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5474
diff
changeset
|
443 (setq comint-input-autoexpand shell-input-autoexpand) |
105196
d991506f9286
* menu-bar.el (list-buffers-directory): Add docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
105170
diff
changeset
|
444 (shell-dirtrack-mode 1) |
18878
f39ae9c61a45
(shell-mode): Do set list-files-directory locally.
Richard M. Stallman <rms@gnu.org>
parents:
18805
diff
changeset
|
445 ;; This is not really correct, since the shell buffer does not really |
f39ae9c61a45
(shell-mode): Do set list-files-directory locally.
Richard M. Stallman <rms@gnu.org>
parents:
18805
diff
changeset
|
446 ;; edit this directory. But it is useful in the buffer list and menus. |
f39ae9c61a45
(shell-mode): Do set list-files-directory locally.
Richard M. Stallman <rms@gnu.org>
parents:
18805
diff
changeset
|
447 (setq list-buffers-directory (expand-file-name default-directory)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
448 ;; shell-dependent assignments. |
45285
dc0eece6818b
(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
Francesco Potortì <pot@gnu.org>
parents:
45284
diff
changeset
|
449 (when (ring-empty-p comint-input-ring) |
44374
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
450 (let ((shell (file-name-nondirectory (car |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
451 (process-command (get-buffer-process (current-buffer))))))) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
452 (setq comint-input-ring-file-name |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
453 (or (getenv "HISTFILE") |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
454 (cond ((string-equal shell "bash") "~/.bash_history") |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
455 ((string-equal shell "ksh") "~/.sh_history") |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
456 (t "~/.history")))) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
457 (if (or (equal comint-input-ring-file-name "") |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
458 (equal (file-truename comint-input-ring-file-name) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
459 (file-truename "/dev/null"))) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
460 (setq comint-input-ring-file-name nil)) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
461 ;; Arrange to write out the input ring on exit, if the shell doesn't |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
462 ;; do this itself. |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
463 (if (and comint-input-ring-file-name |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
464 (string-match shell-dumb-shell-regexp shell)) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
465 (set-process-sentinel (get-buffer-process (current-buffer)) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
466 #'shell-write-history-on-exit)) |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
467 (setq shell-dirstack-query |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
468 (cond ((string-equal shell "sh") "pwd") |
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
469 ((string-equal shell "ksh") "echo $PWD ~-") |
51482
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
470 (t "dirs"))) |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
471 ;; Bypass a bug in certain versions of bash. |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
472 (when (string-equal shell "bash") |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
473 (add-hook 'comint-output-filter-functions |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
474 'shell-filter-ctrl-a-ctrl-b nil t))) |
44374
2472e2446b55
(shell-mode): Don't reinit comint-input-ring if that was already done.
Richard M. Stallman <rms@gnu.org>
parents:
43844
diff
changeset
|
475 (comint-read-input-ring t))) |
31617
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
476 |
51482
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
477 (defun shell-filter-ctrl-a-ctrl-b (string) |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
478 "Remove `^A' and `^B' characters from comint output. |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
479 |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
480 Bash uses these characters as internal quoting characters in its |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
481 prompt. Due to a bug in some bash versions (including 2.03, |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
482 2.04, and 2.05b), they may erroneously show up when bash is |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
483 started with the `--noediting' option and Select Graphic |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
484 Rendition (SGR) control sequences (formerly known as ANSI escape |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
485 sequences) are used to color the prompt. |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
486 |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
487 This function can be put on `comint-output-filter-functions'. |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
488 The argument STRING is ignored." |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
489 (let ((pmark (process-mark (get-buffer-process (current-buffer))))) |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
490 (save-excursion |
72621
82f0fddf878e
(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is
Juri Linkov <juri@jurta.org>
parents:
71664
diff
changeset
|
491 (goto-char (or (and (markerp comint-last-output-start) |
82f0fddf878e
(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is
Juri Linkov <juri@jurta.org>
parents:
71664
diff
changeset
|
492 (marker-position comint-last-output-start)) |
82f0fddf878e
(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is
Juri Linkov <juri@jurta.org>
parents:
71664
diff
changeset
|
493 (point-min))) |
51482
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
494 (while (re-search-forward "[\C-a\C-b]" pmark t) |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
495 (replace-match ""))))) |
8eb767cf7295
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
Lute Kamstra <lute@gnu.org>
parents:
49549
diff
changeset
|
496 |
31617
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
497 (defun shell-write-history-on-exit (process event) |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
498 "Called when the shell process is stopped. |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
499 |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
500 Writes the input history to a history file |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
501 `comint-input-ring-file-name' using `comint-write-input-ring' |
31617
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
502 and inserts a short message in the shell buffer. |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
503 |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
504 This function is a sentinel watching the shell interpreter process. |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
505 Sentinels will always get the two parameters PROCESS and EVENT." |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
506 ;; Write history. |
3ed336667dbc
(shell-write-history-on-exit): New function.
Andrew Innes <andrewi@gnu.org>
parents:
31037
diff
changeset
|
507 (comint-write-input-ring) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
508 (let ((buf (process-buffer process))) |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
509 (when (buffer-live-p buf) |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
510 (with-current-buffer buf |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
511 (insert (format "\nProcess %s %s\n" process event)))))) |
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
512 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
513 ;;;###autoload |
32943
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
514 (defun shell (&optional buffer) |
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
515 "Run an inferior shell, with I/O through BUFFER (which defaults to `*shell*'). |
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
516 Interactively, a prefix arg means to prompt for BUFFER. |
82765
a8c46cf3e7aa
* comint.el (comint-exec-1): Raise an error if
Michael Albinus <michael.albinus@gmx.de>
parents:
82140
diff
changeset
|
517 If `default-directory' is a remote file name, it is also prompted |
a8c46cf3e7aa
* comint.el (comint-exec-1): Raise an error if
Michael Albinus <michael.albinus@gmx.de>
parents:
82140
diff
changeset
|
518 to change if called with a prefix arg. |
a8c46cf3e7aa
* comint.el (comint-exec-1): Raise an error if
Michael Albinus <michael.albinus@gmx.de>
parents:
82140
diff
changeset
|
519 |
32943
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
520 If BUFFER exists but shell process is not running, make new shell. |
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
521 If BUFFER exists and shell process is running, just switch to BUFFER. |
2609
af46e8faaa32
(shell-prompt-pattern): Undo last change.
Richard M. Stallman <rms@gnu.org>
parents:
2573
diff
changeset
|
522 Program used comes from variable `explicit-shell-file-name', |
252 | 523 or (if that is nil) from the ESHELL environment variable, |
74648 | 524 or (if that is nil) from `shell-file-name'. |
74446
cc077225d97f
(shell): Search the start file in ~/.emacs.d as `init_SHELLNAME.sh' instead.
Juanma Barranquero <lekktu@gmail.com>
parents:
74442
diff
changeset
|
525 If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh', |
74646 | 526 it is given as initial input (but this may be lost, due to a timing |
527 error, if the shell discards input when it starts up). | |
1076 | 528 The buffer is put in Shell mode, giving commands for sending input |
529 and controlling the subjobs of the shell. See `shell-mode'. | |
530 See also the variable `shell-prompt-pattern'. | |
114 | 531 |
19121 | 532 To specify a coding system for converting non-ASCII characters |
533 in the input and output to the shell, use \\[universal-coding-system-argument] | |
534 before \\[shell]. You can also specify this with \\[set-buffer-process-coding-system] | |
535 in the shell buffer, after you start the shell. | |
536 The default comes from `process-coding-system-alist' and | |
537 `default-process-coding-system'. | |
538 | |
252 | 539 The shell file name (sans directories) is used to make a symbol name |
1801 | 540 such as `explicit-csh-args'. If that symbol is a variable, |
114 | 541 its value is used as a list of arguments when invoking the shell. |
542 Otherwise, one argument `-i' is passed to the shell. | |
543 | |
544 \(Type \\[describe-mode] in the shell buffer for a list of commands.)" | |
32943
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
545 (interactive |
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
546 (list |
a0120c3e98f7
(shell): Add BUFFER argument.
Miles Bader <miles@gnu.org>
parents:
31617
diff
changeset
|
547 (and current-prefix-arg |
83753
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
548 (prog1 |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
549 (read-buffer "Shell buffer: " |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
550 (generate-new-buffer-name "*shell*")) |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
551 (if (file-remote-p default-directory) |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
552 ;; It must be possible to declare a local default-directory. |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
553 (setq default-directory |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
554 (expand-file-name |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
555 (read-file-name |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
556 "Default directory: " default-directory default-directory |
63012e03e1d4
(shell): Return correct value from interactive spec.
Andreas Schwab <schwab@suse.de>
parents:
82765
diff
changeset
|
557 t nil 'file-directory-p)))))))) |
106439
f2a95599cf8c
* shell.el (shell): Require ansi-color (Bug#5113).
Chong Yidong <cyd@stupidchicken.com>
parents:
105870
diff
changeset
|
558 (require 'ansi-color) |
41777
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
559 (setq buffer (get-buffer-create (or buffer "*shell*"))) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
560 ;; Pop to buffer, so that the buffer's window will be correctly set |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
561 ;; when we call comint (so that comint sets the COLUMNS env var properly). |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
562 (pop-to-buffer buffer) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
563 (unless (comint-check-proc buffer) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
564 (let* ((prog (or explicit-shell-file-name |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
565 (getenv "ESHELL") shell-file-name)) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
566 (name (file-name-nondirectory prog)) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
567 (startfile (concat "~/.emacs_" name)) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
568 (xargs-name (intern-soft (concat "explicit-" name "-args")))) |
74446
cc077225d97f
(shell): Search the start file in ~/.emacs.d as `init_SHELLNAME.sh' instead.
Juanma Barranquero <lekktu@gmail.com>
parents:
74442
diff
changeset
|
569 (unless (file-exists-p startfile) |
81340
b612fb999814
(shell): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
76294
diff
changeset
|
570 (setq startfile (concat user-emacs-directory "init_" name ".sh"))) |
41777
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
571 (apply 'make-comint-in-buffer "shell" buffer prog |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
572 (if (file-exists-p startfile) startfile) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
573 (if (and xargs-name (boundp xargs-name)) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
574 (symbol-value xargs-name) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
575 '("-i"))) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
576 (shell-mode))) |
ca6dfcb53a03
(shell): Use shell-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38409
diff
changeset
|
577 buffer) |
10975
5abad4aec8e0
(shell): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10878
diff
changeset
|
578 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
579 ;; Don't do this when shell.el is loaded, only while dumping. |
105798
0ad1fc06bfc8
* puresize.h (BASE_PURESIZE): Increase to 1470000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105196
diff
changeset
|
580 ;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*shell*")) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
581 |
114 | 582 ;;; Directory tracking |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
583 ;; |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
584 ;; This code provides the shell mode input sentinel |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
585 ;; SHELL-DIRECTORY-TRACKER |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
586 ;; that tracks cd, pushd, and popd commands issued to the shell, and |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
587 ;; changes the current directory of the shell buffer accordingly. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
588 ;; |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
589 ;; This is basically a fragile hack, although it's more accurate than |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
590 ;; the version in Emacs 18's shell.el. It has the following failings: |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
591 ;; 1. It doesn't know about the cdpath shell variable. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
592 ;; 2. It cannot infallibly deal with command sequences, though it does well |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
593 ;; with these and with ignoring commands forked in another shell with ()s. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
594 ;; 3. More generally, any complex command is going to throw it. Otherwise, |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
595 ;; you'd have to build an entire shell interpreter in Emacs Lisp. Failing |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
596 ;; that, there's no way to catch shell commands where cd's are buried |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
597 ;; inside conditional expressions, aliases, and so forth. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
598 ;; |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
599 ;; The whole approach is a crock. Shell aliases mess it up. File sourcing |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
600 ;; messes it up. You run other processes under the shell; these each have |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
601 ;; separate working directories, and some have commands for manipulating |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
602 ;; their w.d.'s (e.g., the lcd command in ftp). Some of these programs have |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
603 ;; commands that do *not* affect the current w.d. at all, but look like they |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
604 ;; do (e.g., the cd command in ftp). In shells that allow you job |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
605 ;; control, you can switch between jobs, all having different w.d.'s. So |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
606 ;; simply saying %3 can shift your w.d.. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
607 ;; |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
608 ;; The solution is to relax, not stress out about it, and settle for |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
609 ;; a hack that works pretty well in typical circumstances. Remember |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
610 ;; that a half-assed solution is more in keeping with the spirit of Unix, |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
611 ;; anyway. Blech. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
612 ;; |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
613 ;; One good hack not implemented here for users of programmable shells |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
614 ;; is to program up the shell w.d. manipulation commands to output |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
615 ;; a coded command sequence to the tty. Something like |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
616 ;; ESC | <cwd> | |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
617 ;; where <cwd> is the new current working directory. Then trash the |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
618 ;; directory tracking machinery currently used in this package, and |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
619 ;; replace it with a process filter that watches for and strips out |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
620 ;; these messages. |
114 | 621 |
622 (defun shell-directory-tracker (str) | |
623 "Tracks cd, pushd and popd commands issued to the shell. | |
624 This function is called on each input passed to the shell. | |
625 It watches for cd, pushd and popd commands and sets the buffer's | |
626 default directory to track these commands. | |
627 | |
85709
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
628 You may toggle this tracking on and off with \\[shell-dirtrack-mode]. |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
629 If Emacs gets confused, you can resync with the shell with \\[dirs]. |
85787
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
630 \(The `dirtrack' package provides an alternative implementation of this |
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
631 feature - see the function `dirtrack-mode'.) |
114 | 632 |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
633 See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp', |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
634 and `shell-popd-regexp', while `shell-pushd-tohome', `shell-pushd-dextract', |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
635 and `shell-pushd-dunique' control the behavior of the relevant command. |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
636 |
2609
af46e8faaa32
(shell-prompt-pattern): Undo last change.
Richard M. Stallman <rms@gnu.org>
parents:
2573
diff
changeset
|
637 Environment variables are expanded, see function `substitute-in-file-name'." |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
638 (if shell-dirtrackp |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
639 ;; We fail gracefully if we think the command will fail in the shell. |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
640 (condition-case chdir-failure |
51554
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
641 (let ((start (progn (string-match |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
642 (concat "^" shell-command-separator-regexp) |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
643 str) ; skip whitespace |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
644 (match-end 0))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
645 end cmd arg1) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
646 (while (string-match shell-command-regexp str start) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
647 (setq end (match-end 0) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
648 cmd (comint-arguments (substring str start end) 0 0) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
649 arg1 (comint-arguments (substring str start end) 1 1)) |
24967
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
650 (if arg1 |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
651 (setq arg1 (shell-unquote-argument arg1))) |
12323
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
652 (cond ((string-match (concat "\\`\\(" shell-popd-regexp |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
653 "\\)\\($\\|[ \t]\\)") |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
654 cmd) |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
655 (shell-process-popd (comint-substitute-in-file-name arg1))) |
12323
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
656 ((string-match (concat "\\`\\(" shell-pushd-regexp |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
657 "\\)\\($\\|[ \t]\\)") |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
658 cmd) |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
659 (shell-process-pushd (comint-substitute-in-file-name arg1))) |
12323
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
660 ((string-match (concat "\\`\\(" shell-cd-regexp |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
661 "\\)\\($\\|[ \t]\\)") |
a48a0352b344
(shell-directory-tracker): Check for terminator after
Karl Heuer <kwzh@gnu.org>
parents:
12213
diff
changeset
|
662 cmd) |
15370
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
663 (shell-process-cd (comint-substitute-in-file-name arg1))) |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
664 ((and shell-chdrive-regexp |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
665 (string-match (concat "\\`\\(" shell-chdrive-regexp |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
666 "\\)\\($\\|[ \t]\\)") |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
667 cmd)) |
b75fc8f3b376
(shell-directory-tracker): Use comint-substitute-in-file-name to
Richard M. Stallman <rms@gnu.org>
parents:
15327
diff
changeset
|
668 (shell-process-cd (comint-substitute-in-file-name cmd)))) |
51554
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
669 (setq start (progn (string-match shell-command-separator-regexp |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
670 str end) |
8cf86bc95fe5
(shell-command-separator-regexp): New variable.
Juanma Barranquero <lekktu@gmail.com>
parents:
51519
diff
changeset
|
671 ;; skip again |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
672 (match-end 0))))) |
6189
4ff931c18e4b
Rename comint-input-filter-functions and
Richard M. Stallman <rms@gnu.org>
parents:
6186
diff
changeset
|
673 (error "Couldn't cd")))) |
114 | 674 |
24967
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
675 (defun shell-unquote-argument (string) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
676 "Remove all kinds of shell quoting from STRING." |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
677 (save-match-data |
35643
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
678 (let ((idx 0) next inside |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
679 (quote-chars |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
680 (if (string-match shell-dumb-shell-regexp |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
681 (file-name-nondirectory |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
682 (car (process-command (get-buffer-process (current-buffer)))))) |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
683 "['`\"]" |
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
684 "[\\'`\"]"))) |
24967
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
685 (while (and (< idx (length string)) |
35643
cafc43e2ccfd
(shell-unquote-argument): If the shell is one of the
Eli Zaretskii <eliz@gnu.org>
parents:
33706
diff
changeset
|
686 (setq next (string-match quote-chars string next))) |
24967
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
687 (cond ((= (aref string next) ?\\) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
688 (setq string (replace-match "" nil nil string)) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
689 (setq next (1+ next))) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
690 ((and inside (= (aref string next) inside)) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
691 (setq string (replace-match "" nil nil string)) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
692 (setq inside nil)) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
693 (inside |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
694 (setq next (1+ next))) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
695 (t |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
696 (setq inside (aref string next)) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
697 (setq string (replace-match "" nil nil string))))) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
698 string))) |
03990f1d9e2d
(shell-unquote-argument): New function.
Karl Heuer <kwzh@gnu.org>
parents:
24738
diff
changeset
|
699 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
700 ;; popd [+n] |
114 | 701 (defun shell-process-popd (arg) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
702 (let ((num (or (shell-extract-num arg) 0))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
703 (cond ((and num (= num 0) shell-dirstack) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
704 (shell-cd (car shell-dirstack)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
705 (setq shell-dirstack (cdr shell-dirstack)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
706 (shell-dirstack-message)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
707 ((and num (> num 0) (<= num (length shell-dirstack))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
708 (let* ((ds (cons nil shell-dirstack)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
709 (cell (nthcdr (1- num) ds))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
710 (rplacd cell (cdr (cdr cell))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
711 (setq shell-dirstack (cdr ds)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
712 (shell-dirstack-message))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
713 (t |
6189
4ff931c18e4b
Rename comint-input-filter-functions and
Richard M. Stallman <rms@gnu.org>
parents:
6186
diff
changeset
|
714 (error "Couldn't popd"))))) |
114 | 715 |
5474
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
716 ;; Return DIR prefixed with comint-file-name-prefix as appropriate. |
8033
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
717 (defun shell-prefixed-directory-name (dir) |
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
718 (if (= (length comint-file-name-prefix) 0) |
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
719 dir |
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
720 (if (file-name-absolute-p dir) |
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
721 ;; The name is absolute, so prepend the prefix. |
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
722 (concat comint-file-name-prefix dir) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
723 ;; For relative name we assume default-directory already has the prefix. |
8033
bedead77e86f
(shell-prefixed-directory-name): Do nothing if
Richard M. Stallman <rms@gnu.org>
parents:
7610
diff
changeset
|
724 (expand-file-name dir)))) |
5474
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
725 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
726 ;; cd [dir] |
114 | 727 (defun shell-process-cd (arg) |
5474
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
728 (let ((new-dir (cond ((zerop (length arg)) (concat comint-file-name-prefix |
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
729 "~")) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
730 ((string-equal "-" arg) shell-last-dir) |
5474
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
731 (t (shell-prefixed-directory-name arg))))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
732 (setq shell-last-dir default-directory) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
733 (shell-cd new-dir) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
734 (shell-dirstack-message))) |
114 | 735 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
736 ;; pushd [+n | dir] |
114 | 737 (defun shell-process-pushd (arg) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
738 (let ((num (shell-extract-num arg))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
739 (cond ((zerop (length arg)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
740 ;; no arg -- swap pwd and car of stack unless shell-pushd-tohome |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
741 (cond (shell-pushd-tohome |
5474
239620e1795d
(shell-cd): Function removed.
Roland McGrath <roland@gnu.org>
parents:
5335
diff
changeset
|
742 (shell-process-pushd (concat comint-file-name-prefix "~"))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
743 (shell-dirstack |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
744 (let ((old default-directory)) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
745 (shell-cd (car shell-dirstack)) |
14476
63540fa43674
Resync directories properly for the ksh.
Simon Marshall <simon@gnu.org>
parents:
14329
diff
changeset
|
746 (setq shell-dirstack (cons old (cdr shell-dirstack))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
747 (shell-dirstack-message))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
748 (t |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
749 (message "Directory stack empty.")))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
750 ((numberp num) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
751 ;; pushd +n |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
752 (cond ((> num (length shell-dirstack)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
753 (message "Directory stack not that deep.")) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
754 ((= num 0) |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35659
diff
changeset
|
755 (error (message "Couldn't cd"))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
756 (shell-pushd-dextract |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
757 (let ((dir (nth (1- num) shell-dirstack))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
758 (shell-process-popd arg) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
759 (shell-process-pushd default-directory) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
760 (shell-cd dir) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
761 (shell-dirstack-message))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
762 (t |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
763 (let* ((ds (cons default-directory shell-dirstack)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
764 (dslen (length ds)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
765 (front (nthcdr num ds)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
766 (back (reverse (nthcdr (- dslen num) (reverse ds)))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
767 (new-ds (append front back))) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
768 (shell-cd (car new-ds)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
769 (setq shell-dirstack (cdr new-ds)) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
770 (shell-dirstack-message))))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
771 (t |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
772 ;; pushd <dir> |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
773 (let ((old-wd default-directory)) |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
774 (shell-cd (shell-prefixed-directory-name arg)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
775 (if (or (null shell-pushd-dunique) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
776 (not (member old-wd shell-dirstack))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
777 (setq shell-dirstack (cons old-wd shell-dirstack))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
778 (shell-dirstack-message)))))) |
114 | 779 |
780 ;; If STR is of the form +n, for n>0, return n. Otherwise, nil. | |
781 (defun shell-extract-num (str) | |
782 (and (string-match "^\\+[1-9][0-9]*$" str) | |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
61876
diff
changeset
|
783 (string-to-number str))) |
114 | 784 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
785 (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
786 (define-minor-mode shell-dirtrack-mode |
85787
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
787 "Turn directory tracking on and off in a shell buffer. |
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
788 The `dirtrack' package provides an alternative implementation of this |
7dd3117fb9a3
(shell-dirtrack-verbose, shell-mode, shell-directory-tracker)
Glenn Morris <rgm@gnu.org>
parents:
85709
diff
changeset
|
789 feature - see the function `dirtrack-mode'." |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
790 nil nil nil |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
791 (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
792 (if shell-dirtrack-mode |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
793 (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t) |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
794 (remove-hook 'comint-input-filter-functions 'shell-directory-tracker t))) |
114 | 795 |
85709
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
796 (define-obsolete-function-alias 'shell-dirtrack-toggle 'shell-dirtrack-mode |
2dabdbde81e8
(shell-dirtrack-verbose, shell-directory-tracker): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
84531
diff
changeset
|
797 "23.1") |
114 | 798 |
10791
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
799 (defun shell-cd (dir) |
1d1db37a4bb7
Change all `cd's to `shell-cd's, where `shell-cd' changes the value of
Simon Marshall <simon@gnu.org>
parents:
10657
diff
changeset
|
800 "Do normal `cd' to DIR, and set `list-buffers-directory'." |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
801 (cd dir) |
10878
9556a4d578f2
Make sure shell-cd sets list-buffers-directory to a directory ending with `/'.
Simon Marshall <simon@gnu.org>
parents:
10832
diff
changeset
|
802 (if shell-dirtrackp |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
803 (setq list-buffers-directory default-directory))) |
114 | 804 |
805 (defun shell-resync-dirs () | |
806 "Resync the buffer's idea of the current directory stack. | |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
807 This command queries the shell with the command bound to |
2609
af46e8faaa32
(shell-prompt-pattern): Undo last change.
Richard M. Stallman <rms@gnu.org>
parents:
2573
diff
changeset
|
808 `shell-dirstack-query' (default \"dirs\"), reads the next |
114 | 809 line output and parses it to form the new directory stack. |
810 DON'T issue this command unless the buffer is at a shell prompt. | |
811 Also, note that if some other subprocess decides to do output | |
812 immediately after the query, its output will be taken as the | |
65199
23741bfb23af
(shell-mode, shell-resync-dirs): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
64762
diff
changeset
|
813 new directory stack -- you lose. If this happens, just do the |
114 | 814 command again." |
815 (interactive) | |
816 (let* ((proc (get-buffer-process (current-buffer))) | |
78770
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
817 (pmark (process-mark proc)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
818 (started-at-pmark (= (point) (marker-position pmark)))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
819 (save-excursion |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
820 (goto-char pmark) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
821 ;; If the process echoes commands, don't insert a fake command in |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
822 ;; the buffer or it will appear twice. |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
823 (unless comint-process-echoes |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
824 (insert shell-dirstack-query) (insert "\n")) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
825 (sit-for 0) ; force redisplay |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
826 (comint-send-string proc shell-dirstack-query) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
827 (comint-send-string proc "\n") |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
828 (set-marker pmark (point)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
829 (let ((pt (point)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
830 (regexp |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
831 (concat |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
832 (if comint-process-echoes |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
833 ;; Skip command echo if the process echoes |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
834 (concat "\\(" (regexp-quote shell-dirstack-query) "\n\\)") |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
835 "\\(\\)") |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
836 "\\(.+\n\\)"))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
837 ;; This extra newline prevents the user's pending input from spoofing us. |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
838 (insert "\n") (backward-char 1) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
839 ;; Wait for one line. |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
840 (while (not (looking-at regexp)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
841 (accept-process-output proc) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
842 (goto-char pt))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
843 (goto-char pmark) (delete-char 1) ; remove the extra newline |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
844 ;; That's the dirlist. grab it & parse it. |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
845 (let* ((dl (buffer-substring (match-beginning 2) (1- (match-end 2)))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
846 (dl-len (length dl)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
847 (ds '()) ; new dir stack |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
848 (i 0)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
849 (while (< i dl-len) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
850 ;; regexp = optional whitespace, (non-whitespace), optional whitespace |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
851 (string-match "\\s *\\(\\S +\\)\\s *" dl i) ; pick off next dir |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
852 (setq ds (cons (concat comint-file-name-prefix |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
853 (substring dl (match-beginning 1) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
854 (match-end 1))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
855 ds)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
856 (setq i (match-end 0))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
857 (let ((ds (nreverse ds))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
858 (condition-case nil |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
859 (progn (shell-cd (car ds)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
860 (setq shell-dirstack (cdr ds) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
861 shell-last-dir (car shell-dirstack)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
862 (shell-dirstack-message)) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
863 (error (message "Couldn't cd")))))) |
6db70c3a1837
Chris Moore <dooglus at gmail.com>
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
864 (if started-at-pmark (goto-char (marker-position pmark))))) |
114 | 865 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
866 ;; For your typing convenience: |
2571
b65cf676a09b
All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2557
diff
changeset
|
867 (defalias 'dirs 'shell-resync-dirs) |
114 | 868 |
869 | |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
870 ;; Show the current dirstack on the message line. |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
871 ;; Pretty up dirs a bit by changing "/usr/jqr/foo" to "~/foo". |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
872 ;; (This isn't necessary if the dirlisting is generated with a simple "dirs".) |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
873 ;; All the commands that mung the buffer's dirstack finish by calling |
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
874 ;; this guy. |
114 | 875 (defun shell-dirstack-message () |
24069
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
876 (when shell-dirtrack-verbose |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
877 (let* ((msg "") |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
878 (ds (cons default-directory shell-dirstack)) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
879 (home (expand-file-name (concat comint-file-name-prefix "~/"))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
880 (homelen (length home))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
881 (while ds |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
882 (let ((dir (car ds))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
883 (and (>= (length dir) homelen) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
884 (string= home (substring dir 0 homelen)) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
885 (setq dir (concat "~/" (substring dir homelen)))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
886 ;; Strip off comint-file-name-prefix if present. |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
887 (and comint-file-name-prefix |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
888 (>= (length dir) (length comint-file-name-prefix)) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
889 (string= comint-file-name-prefix |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
890 (substring dir 0 (length comint-file-name-prefix))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
891 (setq dir (substring dir (length comint-file-name-prefix))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
892 (setcar ds dir)) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
893 (setq msg (concat msg (directory-file-name dir) " ")) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
894 (setq ds (cdr ds)))) |
8d500ceed9d1
* shell.el (shell-dirtrack-verbose): New custom variable.
Simon Marshall <simon@gnu.org>
parents:
23744
diff
changeset
|
895 (message "%s" msg)))) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
896 |
19476
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
897 ;; This was mostly copied from shell-resync-dirs. |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
898 (defun shell-snarf-envar (var) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
899 "Return as a string the shell's value of environment variable VAR." |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
900 (let* ((cmd (format "printenv '%s'\n" var)) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
901 (proc (get-buffer-process (current-buffer))) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
902 (pmark (process-mark proc))) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
903 (goto-char pmark) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
904 (insert cmd) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
905 (sit-for 0) ; force redisplay |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
906 (comint-send-string proc cmd) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
907 (set-marker pmark (point)) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
908 (let ((pt (point))) ; wait for 1 line |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
909 ;; This extra newline prevents the user's pending input from spoofing us. |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
910 (insert "\n") (backward-char 1) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
911 (while (not (looking-at ".+\n")) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
912 (accept-process-output proc) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
913 (goto-char pt))) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
914 (goto-char pmark) (delete-char 1) ; remove the extra newline |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
915 (buffer-substring (match-beginning 0) (1- (match-end 0))))) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
916 |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
917 (defun shell-copy-environment-variable (variable) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
918 "Copy the environment variable VARIABLE from the subshell to Emacs. |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
919 This command reads the value of the specified environment variable |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
920 in the shell, and sets the same environment variable in Emacs |
22636
f15c3c6ad8ae
(shell-copy-environment-variable): Fix doc typo.
Richard M. Stallman <rms@gnu.org>
parents:
21621
diff
changeset
|
921 \(what `getenv' in Emacs would return) to that value. |
19476
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
922 That value will affect any new subprocesses that you subsequently start |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
923 from Emacs." |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
924 (interactive (list (read-envvar-name "\ |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
925 Copy Shell environment variable to Emacs: "))) |
4ae9466b064e
(shell-snarf-envar, shell-copy-environment-variable): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
19469
diff
changeset
|
926 (setenv variable (shell-snarf-envar variable))) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
927 |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
928 (defun shell-forward-command (&optional arg) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
929 "Move forward across ARG shell command(s). Does not cross lines. |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
930 See `shell-command-regexp'." |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
931 (interactive "p") |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
932 (let ((limit (save-excursion (end-of-line nil) (point)))) |
7377
027616e7b1e4
(shell-forward-command, shell-backward-command): Fix regexp.
Karl Heuer <kwzh@gnu.org>
parents:
7083
diff
changeset
|
933 (if (re-search-forward (concat shell-command-regexp "\\([;&|][\t ]*\\)+") |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
934 limit 'move arg) |
5335
abf0d4d01681
(shell-backward-command): If comint-bol moves forward,
Richard M. Stallman <rms@gnu.org>
parents:
5285
diff
changeset
|
935 (skip-syntax-backward " ")))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
936 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
937 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
938 (defun shell-backward-command (&optional arg) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
939 "Move backward across ARG shell command(s). Does not cross lines. |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
940 See `shell-command-regexp'." |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
941 (interactive "p") |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
942 (let ((limit (save-excursion (comint-bol nil) (point)))) |
30641
297909766bad
(shell-prompt-pattern): Doc change.
Miles Bader <miles@gnu.org>
parents:
25278
diff
changeset
|
943 (when (> limit (point)) |
297909766bad
(shell-prompt-pattern): Doc change.
Miles Bader <miles@gnu.org>
parents:
25278
diff
changeset
|
944 (setq limit (line-beginning-position))) |
5335
abf0d4d01681
(shell-backward-command): If comint-bol moves forward,
Richard M. Stallman <rms@gnu.org>
parents:
5285
diff
changeset
|
945 (skip-syntax-backward " " limit) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
946 (if (re-search-backward |
7377
027616e7b1e4
(shell-forward-command, shell-backward-command): Fix regexp.
Karl Heuer <kwzh@gnu.org>
parents:
7083
diff
changeset
|
947 (format "[;&|]+[\t ]*\\(%s\\)" shell-command-regexp) limit 'move arg) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
948 (progn (goto-char (match-beginning 1)) |
5335
abf0d4d01681
(shell-backward-command): If comint-bol moves forward,
Richard M. Stallman <rms@gnu.org>
parents:
5285
diff
changeset
|
949 (skip-chars-forward ";&|"))))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
950 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
951 (defun shell-dynamic-complete-command () |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
952 "Dynamically complete the command at point. |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
953 This function is similar to `comint-dynamic-complete-filename', except that it |
69758
2b93f40e4545
(shell-directory-tracker, shell-dynamic-complete-command): Doc fixes.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
954 searches `exec-path' (minus the trailing Emacs library path) for completion |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
955 candidates. Note that this may not be the same as the shell's idea of the |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
956 path. |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
957 |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
958 Completion is dependent on the value of `shell-completion-execonly', plus |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
959 those that effect file completion. See `shell-dynamic-complete-as-command'. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
960 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
961 Returns t if successful." |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
962 (interactive) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
963 (let ((filename (comint-match-partial-filename))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
964 (if (and filename |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
965 (save-match-data (not (string-match "[~/]" filename))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
966 (eq (match-beginning 0) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
967 (save-excursion (shell-backward-command 1) (point)))) |
93133
503666735e0c
(shell-dynamic-complete-command)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
968 (prog2 (unless (window-minibuffer-p (selected-window)) |
503666735e0c
(shell-dynamic-complete-command)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
969 (message "Completing command name...")) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
970 (shell-dynamic-complete-as-command))))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
971 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
972 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
973 (defun shell-dynamic-complete-as-command () |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
974 "Dynamically complete at point as a command. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
975 See `shell-dynamic-complete-filename'. Returns t if successful." |
6508
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
976 (let* ((filename (or (comint-match-partial-filename) "")) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
977 (filenondir (file-name-nondirectory filename)) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
978 (path-dirs (cdr (reverse exec-path))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
979 (cwd (file-name-as-directory (expand-file-name default-directory))) |
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
980 (ignored-extensions |
6295
59a6684e8057
(shell-dynamic-complete-as-command): Make ignored-extensions
Richard M. Stallman <rms@gnu.org>
parents:
6255
diff
changeset
|
981 (and comint-completion-fignore |
59a6684e8057
(shell-dynamic-complete-as-command): Make ignored-extensions
Richard M. Stallman <rms@gnu.org>
parents:
6255
diff
changeset
|
982 (mapconcat (function (lambda (x) (concat (regexp-quote x) "$"))) |
59a6684e8057
(shell-dynamic-complete-as-command): Make ignored-extensions
Richard M. Stallman <rms@gnu.org>
parents:
6255
diff
changeset
|
983 comint-completion-fignore "\\|"))) |
63507
e5299a8016cb
(shell-prompt-pattern, shell-dynamic-complete-functions, shell-mode,
Juanma Barranquero <lekktu@gmail.com>
parents:
62402
diff
changeset
|
984 (dir "") (comps-in-dir ()) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
985 (file "") (abs-file-name "") (completions ())) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
986 ;; Go thru each dir in the search path, finding completions. |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
987 (while path-dirs |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
988 (setq dir (file-name-as-directory (comint-directory (or (car path-dirs) "."))) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
989 comps-in-dir (and (file-accessible-directory-p dir) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
990 (file-name-all-completions filenondir dir))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
991 ;; Go thru each completion found, to see whether it should be used. |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
992 (while comps-in-dir |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
993 (setq file (car comps-in-dir) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
994 abs-file-name (concat dir file)) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
995 (if (and (not (member file completions)) |
6885
3c007de39916
(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.
Karl Heuer <kwzh@gnu.org>
parents:
6508
diff
changeset
|
996 (not (and ignored-extensions |
3c007de39916
(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.
Karl Heuer <kwzh@gnu.org>
parents:
6508
diff
changeset
|
997 (string-match ignored-extensions file))) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
998 (or (string-equal dir cwd) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
999 (not (file-directory-p abs-file-name))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
1000 (or (null shell-completion-execonly) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
1001 (file-executable-p abs-file-name))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
1002 (setq completions (cons file completions))) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
1003 (setq comps-in-dir (cdr comps-in-dir))) |
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
1004 (setq path-dirs (cdr path-dirs))) |
4871
30a614eb52f7
(shell-after-partial-filename): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
4679
diff
changeset
|
1005 ;; OK, we've got a list of completions. |
6508
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
1006 (let ((success (let ((comint-completion-addsuffix nil)) |
53402
7e645ea92195
(shell-file-name-chars): Add [].
Richard M. Stallman <rms@gnu.org>
parents:
53273
diff
changeset
|
1007 (comint-dynamic-simple-complete filenondir completions)))) |
6508
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
1008 (if (and (memq success '(sole shortest)) comint-completion-addsuffix |
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
1009 (not (file-directory-p (comint-match-partial-filename)))) |
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
1010 (insert " ")) |
965beb0c97d2
(shell-strip-ctrl-m): New command.
Richard M. Stallman <rms@gnu.org>
parents:
6295
diff
changeset
|
1011 success))) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1012 |
93587
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1013 (defun shell-dynamic-complete-filename () |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1014 "Dynamically complete the filename at point. |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1015 This completes only if point is at a suitable position for a |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1016 filename argument." |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1017 (interactive) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1018 (let ((opoint (point)) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1019 (beg (comint-line-beginning-position))) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1020 (when (save-excursion |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1021 (goto-char (if (re-search-backward "[;|&]" beg t) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1022 (match-end 0) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1023 beg)) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1024 (re-search-forward "[^ \t][ \t]" opoint t)) |
f4738cb320e1
(shell-dynamic-complete-filename): New fun.
Chong Yidong <cyd@stupidchicken.com>
parents:
93133
diff
changeset
|
1025 (comint-dynamic-complete-as-filename)))) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1026 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1027 (defun shell-match-partial-variable () |
15327
2c508f2c884d
(shell-match-partial-variable): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14476
diff
changeset
|
1028 "Return the shell variable at point, or nil if none is found." |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1029 (save-excursion |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1030 (let ((limit (point))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1031 (if (re-search-backward "[^A-Za-z0-9_{}]" nil 'move) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1032 (or (looking-at "\\$") (forward-char 1))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1033 ;; Anchor the search forwards. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1034 (if (or (eolp) (looking-at "[^A-Za-z0-9_{}$]")) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1035 nil |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1036 (re-search-forward "\\$?{?[A-Za-z0-9_]*}?" limit) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1037 (buffer-substring (match-beginning 0) (match-end 0)))))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1038 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1039 (defun shell-dynamic-complete-environment-variable () |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1040 "Dynamically complete the environment variable at point. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1041 Completes if after a variable, i.e., if it starts with a \"$\". |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1042 See `shell-dynamic-complete-as-environment-variable'. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1043 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1044 This function is similar to `comint-dynamic-complete-filename', except that it |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1045 searches `process-environment' for completion candidates. Note that this may |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1046 not be the same as the interpreter's idea of variable names. The main problem |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1047 with this type of completion is that `process-environment' is the environment |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1048 which Emacs started with. Emacs does not track changes to the environment made |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1049 by the interpreter. Perhaps it would be more accurate if this function was |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1050 called `shell-dynamic-complete-process-environment-variable'. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1051 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1052 Returns non-nil if successful." |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1053 (interactive) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1054 (let ((variable (shell-match-partial-variable))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1055 (if (and variable (string-match "^\\$" variable)) |
93133
503666735e0c
(shell-dynamic-complete-command)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1056 (prog2 (unless (window-minibuffer-p (selected-window)) |
503666735e0c
(shell-dynamic-complete-command)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1057 (message "Completing variable name...")) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1058 (shell-dynamic-complete-as-environment-variable))))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1059 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1060 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1061 (defun shell-dynamic-complete-as-environment-variable () |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1062 "Dynamically complete at point as an environment variable. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1063 Used by `shell-dynamic-complete-environment-variable'. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1064 Uses `comint-dynamic-simple-complete'." |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1065 (let* ((var (or (shell-match-partial-variable) "")) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1066 (variable (substring var (or (string-match "[^$({]\\|$" var) 0))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1067 (variables (mapcar (function (lambda (x) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1068 (substring x 0 (string-match "=" x)))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1069 process-environment)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1070 (addsuffix comint-completion-addsuffix) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1071 (comint-completion-addsuffix nil) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1072 (success (comint-dynamic-simple-complete variable variables))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1073 (if (memq success '(sole shortest)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1074 (let* ((var (shell-match-partial-variable)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1075 (variable (substring var (string-match "[^$({]" var))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1076 (protection (cond ((string-match "{" var) "}") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1077 ((string-match "(" var) ")") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1078 (t ""))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1079 (suffix (cond ((null addsuffix) "") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1080 ((file-directory-p |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1081 (comint-directory (getenv variable))) "/") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1082 (t " ")))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1083 (insert protection suffix))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1084 success)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1085 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1086 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1087 (defun shell-replace-by-expanded-directory () |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1088 "Expand directory stack reference before point. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1089 Directory stack references are of the form \"=digit\" or \"=-\". |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1090 See `default-directory' and `shell-dirstack'. |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1091 |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1092 Returns t if successful." |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1093 (interactive) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1094 (if (comint-match-partial-filename) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1095 (save-excursion |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1096 (goto-char (match-beginning 0)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1097 (let ((stack (cons default-directory shell-dirstack)) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1098 (index (cond ((looking-at "=-/?") |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1099 (length shell-dirstack)) |
45214
793403e94381
(shell-replace-by-expanded-directory):
Richard M. Stallman <rms@gnu.org>
parents:
44374
diff
changeset
|
1100 ((looking-at "=\\([0-9]+\\)/?") |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1101 (string-to-number |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1102 (buffer-substring |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1103 (match-beginning 1) (match-end 1))))))) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1104 (cond ((null index) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1105 nil) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1106 ((>= index (length stack)) |
38409
153f1b1f2efd
Emacs lisp coding convention fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
35659
diff
changeset
|
1107 (error "Directory stack not that deep")) |
6186
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1108 (t |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1109 (replace-match (file-name-as-directory (nth index stack)) t t) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1110 (message "Directory item: %d" index) |
84df7a6f6240
(shell-dynamic-complete-functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6155
diff
changeset
|
1111 t)))))) |
35659
aa45cec8f927
shell-write-history-on-exit: make sure the error message goes to the right buffer
Sam Steingold <sds@gnu.org>
parents:
35643
diff
changeset
|
1112 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
1113 (provide 'shell) |
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
1114 |
70691
a69f2db3d3ae
(shell-dirtrack-mode): Make it into a proper minor mode, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69758
diff
changeset
|
1115 ;; arch-tag: bcb5f12a-c1f4-4aea-a809-2504bd5bd797 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
252
diff
changeset
|
1116 ;;; shell.el ends here |