[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/shell.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/shell.el |
Date: |
Mon, 11 Mar 2002 16:13:14 -0500 |
Index: emacs/lisp/shell.el
diff -c emacs/lisp/shell.el:1.108 emacs/lisp/shell.el:1.109
*** emacs/lisp/shell.el:1.108 Mon Feb 25 16:04:00 2002
--- emacs/lisp/shell.el Mon Mar 11 16:13:14 2002
***************
*** 310,317 ****
(setq shell-mode-map (nconc (make-sparse-keymap) comint-mode-map))
(define-key shell-mode-map "\C-c\C-f" 'shell-forward-command)
(define-key shell-mode-map "\C-c\C-b" 'shell-backward-command)
! (define-key shell-mode-map "\t" 'shell-pcomplete)
! (define-key shell-mode-map "\M-\t" 'shell-pcomplete-reverse)
(define-key shell-mode-map "\M-?"
'comint-dynamic-list-filename-completions)
(define-key shell-mode-map [menu-bar completion]
--- 310,316 ----
(setq shell-mode-map (nconc (make-sparse-keymap) comint-mode-map))
(define-key shell-mode-map "\C-c\C-f" 'shell-forward-command)
(define-key shell-mode-map "\C-c\C-b" 'shell-backward-command)
! (define-key shell-mode-map "\t" 'comint-dynamic-complete)
(define-key shell-mode-map "\M-?"
'comint-dynamic-list-filename-completions)
(define-key shell-mode-map [menu-bar completion]
***************
*** 398,403 ****
--- 397,403 ----
(setq comint-delimiter-argument-list shell-delimiter-argument-list)
(setq comint-file-name-chars shell-file-name-chars)
(setq comint-file-name-quote-list shell-file-name-quote-list)
+ (setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
(make-local-variable 'paragraph-start)
(setq paragraph-start comint-prompt-regexp)
(make-local-variable 'font-lock-defaults)
***************
*** 857,888 ****
(format "[;&|]+[\t ]*\\(%s\\)" shell-command-regexp) limit 'move arg)
(progn (goto-char (match-beginning 1))
(skip-chars-forward ";&|")))))
-
- (defvar shell-pcomplete-setup-done nil)
-
- (defun shell-pcomplete ()
- "Cycle forwards through completions at point, using `pcomplete'.
- This function merely invokes `pcomplete', after ensuring this buffer
- is set up for it."
- (interactive)
- (unless shell-pcomplete-setup-done
- (setq shell-pcomplete-setup-done t)
- (pcomplete-comint-setup 'shell-dynamic-complete-functions))
- ;; Convince pcomplete we are calling it directly
- (setq this-command 'pcomplete)
- (call-interactively #'pcomplete))
-
- (defun shell-pcomplete-reverse ()
- "Cycle backwards through completions at point, using `pcomplete'.
- This function merely invokes `pcomplete-reverse', after ensuring this
- buffer is set up for it."
- (interactive)
- (unless shell-pcomplete-setup-done
- (setq shell-pcomplete-setup-done t)
- (pcomplete-comint-setup 'shell-dynamic-complete-functions))
- ;; Convince pcomplete we are calling it directly
- (setq this-command 'pcomplete-reverse)
- (call-interactively #'pcomplete-reverse))
(defun shell-dynamic-complete-command ()
"Dynamically complete the command at point.
--- 857,862 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/shell.el,
Colin Walters <=