From: John Wiegley <johnw@newartisans.com>
Date: Fri, 18 May 2001 16:40:11 +0000 (+0000)
Subject: (eshell-explicit-command-char): A new configuration variable, which
X-Git-Tag: emacs-pretest-21.0.104~436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1228240f390b072d67031772ee1e1466e454fc1d;p=emacs.git

(eshell-explicit-command-char): A new configuration variable, which
determines the initial character that forces use of an external
version of a command.  The default is *, but may be set to \, for
example.
(eshell-explicit-command): Use `eshell-explicit-command-char' instead
of ?*.
---

diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el
index 25abb687a12..52ca3392a2c 100644
--- a/lisp/eshell/esh-ext.el
+++ b/lisp/eshell/esh-ext.el
@@ -150,6 +150,13 @@ by the user on the command line."
   :type 'integer
   :group 'eshell-ext)
 
+(defcustom eshell-explicit-command-char ?*
+  "*If this char occurs before a command name, call it externally.
+That is, although vi may be an alias, *vi will always call the
+external version.  UNIX users may prefer this variable to be \."
+  :type 'character
+  :group 'eshell-ext)
+
 ;;; Functions:
 
 (defun eshell-ext-initialize ()
@@ -161,7 +168,7 @@ by the user on the command line."
   "If a command name begins with `*', call it externally always.
 This bypasses all Lisp functions and aliases."
   (when (and (> (length command) 1)
-	     (eq (aref command 0) ?*))
+	     (eq (aref command 0) eshell-explicit-command-char))
     (let ((cmd (eshell-search-path (substring command 1))))
       (if cmd
 	  (or (eshell-external-command cmd args)