From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: 16197@debbugs.gnu.org
Subject: bug#16197: 24.3.50; no completion on commands following "sudo" in shell and eshell
Date: Tue, 07 Jan 2014 14:11:39 +0100 [thread overview]
Message-ID: <87bnzoueb8.fsf@gmail.com> (raw)
In-Reply-To: <jwvzjnblcng.fsf-monnier+emacsbugs@gnu.org> (Stefan Monnier's message of "Sat, 04 Jan 2014 15:26:59 -0500")
Stefan Monnier <monnier@iro.umontreal.ca> writes:
>> https://github.com/thierryvolpiatto/emacs-tv-config/blob/master/pcomplete-extension.el
>
> Not sure what I should look at there.
For a quick test, you can load this file and do the following tests in
`shell' and/or `eshell':
;; Tests
;; find . -name '*.el' | xargs et =>ok
;; sudo apt-g =>ok
;; sudo apt-get in =>ok
;; sudo apt-get -- =>ok
;; sudo apt-get - =>ok
;; sudo apt-get -V - =>ok
;; sudo apt-get -V -- =>ok
;; sudo apt-get --reinstall ins =>ok
;; sudo apt-get --reinstall install em =>ok
;; sudo - =>ok
;; sudo -p "pass" - =>ok
;; sudo -p "pass" apt-g =>ok
;; sudo -p "pass" apt-get ins =>ok
;; apt-get in =>ok
;; apt-get install em =>ok
Tell me if something went wrong on these tests or if you have other
cases that are not working.
NOTE: [...] | xargs -0 foo
is not working yet because args are not handled in pcomplete/xargs.
I would do it later if you accept the patch below.
> Can you send it as a patch against pcmpl-unix.el to fix pcomplete/xargs
> (and add pcomplete/sudo at the same time)?
* lisp/pcml-unix.el (pcomplete/sudo): New.
* lisp/pcomplete.el (pcomplete-command-name): Allow extracting command-name in more complex command lines.
* lisp/shell.el (shell-command-completion-function): Fix it (was not working at all).
--8<---------------cut here---------------start------------->8---
Changes from master to stash
3 files changed, 52 insertions(+), 4 deletions(-)
lisp/pcmpl-unix.el | 16 ++++++++++++++++
lisp/pcomplete.el | 35 ++++++++++++++++++++++++++++++++++-
lisp/shell.el | 5 ++---
Modified lisp/pcmpl-unix.el
diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el
index 6ac3e15..1c55f67 100644
--- a/lisp/pcmpl-unix.el
+++ b/lisp/pcmpl-unix.el
@@ -215,6 +215,22 @@ Includes files as well as host names followed by a colon."
(pcmpl-ssh-hosts)))))))
(complete-with-action action table string pred))))))
+(defun pcomplete/sudo ()
+ (let ((pcomplete-cmd-name (pcomplete-command-name)))
+ (while (and (string= "sudo" pcomplete-cmd-name)
+ (pcomplete-match "^-" 'last))
+ (when (< pcomplete-index pcomplete-last)
+ (pcomplete-next-arg))
+ (pcomplete-opt "AbCDEegHhiKknPpSsUuVv-"))
+ (cond ((string= "sudo" pcomplete-cmd-name)
+ (while (pcomplete-here*
+ (funcall pcomplete-command-completion-function)
+ (pcomplete-arg 'last) t)))
+ (t
+ (funcall (or (pcomplete-find-completion-function
+ pcomplete-cmd-name)
+ pcomplete-default-completion-function))))))
+
(provide 'pcmpl-unix)
;;; pcmpl-unix.el ends here
Modified lisp/pcomplete.el
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index dbeefda..68351e2 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -633,9 +633,42 @@ user actually typed in."
(message "No completions")
(throw 'pcompleted nil))))
+(defvar pcomplete-special-commands '("sudo" "xargs"))
(defun pcomplete-command-name ()
"Return the command name of the first argument."
- (file-name-nondirectory (pcomplete-arg 'first)))
+ (let ((coms (cl-loop with lst = (reverse (pcomplete-parse-arguments))
+ for str in (or (member "|" lst)
+ (member "||" lst)
+ (member "&" lst)
+ (member ";" lst)
+ lst)
+ for exec = (or (executable-find str)
+ ;; `executable-find' or 'which'
+ ;; doesn't return these paths.
+ (car (member str '("cd" "pushd" "popd"))))
+ when exec collect exec)))
+ (file-name-nondirectory
+ ;; we may have commands embeded in executables that looks
+ ;; like executables (e.g apt-get install).
+ ;; Assume that all executables are using only one command
+ ;; like this.
+ ;; e.g - if we have (install apt-get sudo)
+ ;; what we want is apt-get.
+ ;; - if we have (apt-get sudo)
+ ;; what we want is sudo,
+ ;; then pcomplete/sudo will check if
+ ;; a pcomplete handler exists for apt-get.
+ (cond (;; e.g (install apt-get sudo)
+ (> (length coms) 2) (cadr coms))
+ (;; e.g (apt-get sudo)
+ (and (= (length coms) 2)
+ (member (file-name-nondirectory (cadr coms))
+ pcomplete-special-commands))
+ (car coms))
+ (;; e.g (sudo)
+ (= (length coms) 1) (car coms))
+ (t ;; e.g (install apt-get)
+ (cadr coms))))))
(defun pcomplete-match (regexp &optional index offset start)
"Like `string-match', but on the current completion argument."
Modified lisp/shell.el
diff --git a/lisp/shell.el b/lisp/shell.el
index 1d67f0b..5bb6a91 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -447,9 +447,8 @@ Thus, this does not include the shell's current directory.")
This is the value of `pcomplete-command-completion-function' for
--8<---------------cut here---------------end--------------->8---
Shell buffers. It implements `shell-completion-execonly' for
`pcomplete' completion."
- (pcomplete-here (pcomplete-entries nil
- (if shell-completion-execonly
- 'file-executable-p))))
+ (let ((data (shell--command-completion-data)))
+ (and data (pcomplete-here (all-completions "" (nth 2 data))))))
(defun shell-completion-vars ()
"Setup completion vars for `shell-mode' and `read-shell-command'."
--
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997
next prev parent reply other threads:[~2014-01-07 13:11 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-12-20 8:18 bug#16197: 24.3.50; no completion on commands following "sudo" in shell and eshell Thierry Volpiatto
2013-12-23 8:36 ` Thierry Volpiatto
2013-12-23 10:21 ` Thierry Volpiatto
2013-12-24 6:59 ` Thierry Volpiatto
2013-12-24 10:49 ` Thierry Volpiatto
2014-01-03 22:53 ` Stefan Monnier
2014-01-04 5:33 ` Thierry Volpiatto
2014-01-04 7:11 ` Thierry Volpiatto
2014-01-04 20:26 ` Stefan Monnier
2014-01-05 7:35 ` Thierry Volpiatto
2020-09-25 17:51 ` Stefan Monnier
2020-09-26 13:09 ` Lars Ingebrigtsen
2020-09-26 22:17 ` Stefan Monnier
2020-09-27 12:08 ` Lars Ingebrigtsen
2020-09-28 2:07 ` Stefan Monnier
2020-09-28 11:12 ` Lars Ingebrigtsen
2014-01-07 13:11 ` Thierry Volpiatto [this message]
2020-09-25 10:44 ` Lars Ingebrigtsen
2014-01-07 15:26 ` Thierry Volpiatto
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bnzoueb8.fsf@gmail.com \
--to=thierry.volpiatto@gmail.com \
--cc=16197@debbugs.gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.