Commit ae5e4c48 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/eshell/*.el: Use lexical-binding.

* test/automated/eshell.el: Move from test/eshell.el.
(eshell-test/for-loop, eshell-test/for-name-loop): New tests.

Fixes: debbugs:15231
parent da0752f9
2013-09-12 Stefan Monnier <monnier@iro.umontreal.ca>
* eshell/*.el: Use lexical-binding (bug#15231).
2013-09-12 Kenichi Handa <handa@gnu.org> 2013-09-12 Kenichi Handa <handa@gnu.org>
* composite.el (compose-gstring-for-graphic): Handle enclosing * composite.el (compose-gstring-for-graphic): Handle enclosing mark.
mark.
2013-09-12 Glenn Morris <rgm@gnu.org> 2013-09-12 Glenn Morris <rgm@gnu.org>
......
;;; em-alias.el --- creation and management of command aliases ;;; em-alias.el --- creation and management of command aliases -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-banner.el --- sample module that displays a login banner ;;; em-banner.el --- sample module that displays a login banner -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-basic.el --- basic shell builtin commands ;;; em-basic.el --- basic shell builtin commands -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-cmpl.el --- completion using the TAB key ;;; em-cmpl.el --- completion using the TAB key -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
...@@ -297,19 +297,16 @@ to writing a completion function." ...@@ -297,19 +297,16 @@ to writing a completion function."
(define-key eshell-mode-map [(meta tab)] 'eshell-complete-lisp-symbol) (define-key eshell-mode-map [(meta tab)] 'eshell-complete-lisp-symbol)
(define-key eshell-mode-map [(meta control ?i)] 'eshell-complete-lisp-symbol) (define-key eshell-mode-map [(meta control ?i)] 'eshell-complete-lisp-symbol)
(define-key eshell-command-map [(meta ?h)] 'eshell-completion-help) (define-key eshell-command-map [(meta ?h)] 'eshell-completion-help)
(define-key eshell-command-map [tab] 'pcomplete-expand-and-complete)
(define-key eshell-command-map [(control ?i)] (define-key eshell-command-map [(control ?i)]
'pcomplete-expand-and-complete) 'pcomplete-expand-and-complete)
(define-key eshell-command-map [space] 'pcomplete-expand) (define-key eshell-command-map [space] 'pcomplete-expand)
(define-key eshell-command-map [? ] 'pcomplete-expand) (define-key eshell-command-map [? ] 'pcomplete-expand)
(define-key eshell-mode-map [tab] 'eshell-pcomplete) (define-key eshell-mode-map [(control ?i)] 'pcomplete)
(define-key eshell-mode-map [(control ?i)] 'eshell-pcomplete)
(add-hook 'completion-at-point-functions (add-hook 'completion-at-point-functions
#'pcomplete-completions-at-point nil t) #'pcomplete-completions-at-point nil t)
;; jww (1999-10-19): Will this work on anything but X? ;; jww (1999-10-19): Will this work on anything but X?
(if (featurep 'xemacs) (define-key eshell-mode-map (if (featurep 'xemacs) [iso-left-tab] [backtab])
(define-key eshell-mode-map [iso-left-tab] 'pcomplete-reverse) 'pcomplete-reverse)
(define-key eshell-mode-map [backtab] 'pcomplete-reverse))
(define-key eshell-mode-map [(meta ??)] 'pcomplete-list)) (define-key eshell-mode-map [(meta ??)] 'pcomplete-list))
(defun eshell-completion-command-name () (defun eshell-completion-command-name ()
...@@ -458,16 +455,7 @@ to writing a completion function." ...@@ -458,16 +455,7 @@ to writing a completion function."
(all-completions filename obarray 'functionp)) (all-completions filename obarray 'functionp))
completions))))))) completions)))))))
(defun eshell-pcomplete (&optional interactively) (define-obsolete-function-alias 'eshell-pcomplete 'completion-at-point)
"Eshell wrapper for `pcomplete'."
(interactive "p")
;; Pretend to be pcomplete so that cycling works (bug#13293).
(setq this-command 'pcomplete)
(condition-case nil
(if interactively
(call-interactively 'pcomplete)
(pcomplete))
(text-read-only (completion-at-point)))) ; Workaround for bug#12838.
(provide 'em-cmpl) (provide 'em-cmpl)
......
;;; em-dirs.el --- directory navigation commands ;;; em-dirs.el --- directory navigation commands -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-glob.el --- extended file name globbing ;;; em-glob.el --- extended file name globbing -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-hist.el --- history list management ;;; em-hist.el --- history list management -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-ls.el --- implementation of ls in Lisp ;;; em-ls.el --- implementation of ls in Lisp -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-pred.el --- argument predicates and modifiers (ala zsh) ;;; em-pred.el --- argument predicates and modifiers (ala zsh) -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-prompt.el --- command prompts ;;; em-prompt.el --- command prompts -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-rebind.el --- rebind keys when point is at current input ;;; em-rebind.el --- rebind keys when point is at current input -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-script.el --- Eshell script files ;;; em-script.el --- Eshell script files -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-smart.el --- smart display of output ;;; em-smart.el --- smart display of output -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-term.el --- running visual commands ;;; em-term.el --- running visual commands -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-tramp.el --- Eshell features that require TRAMP ;;; em-tramp.el --- Eshell features that require TRAMP -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-unix.el --- UNIX command aliases ;;; em-unix.el --- UNIX command aliases -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; em-xtra.el --- extra alias functions ;;; em-xtra.el --- extra alias functions -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; esh-arg.el --- argument processing ;;; esh-arg.el --- argument processing -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
;;; esh-cmd.el --- command invocation ;;; esh-cmd.el --- command invocation -*- lexical-binding:t -*-
;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment