aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2000-07-18 11:46:21 +0000
committerEli Zaretskii2000-07-18 11:46:21 +0000
commit493fa1c58029b89241ac41a138afff6487802005 (patch)
tree8144b44e840a79f35a36b797f3c998cff25854be
parent662cf9d7fa73e07456e5e62e99c2060c45d14054 (diff)
downloademacs-493fa1c58029b89241ac41a138afff6487802005.tar.gz
emacs-493fa1c58029b89241ac41a138afff6487802005.zip
(eshell-maybe-replace-by-alias): Doc fix.
(eshell-alias, eshell-bad-command-tolerance): Replace links to eshell.info with links to eshell, to avoid problems on systems where the manual is installed as `eshell'.
-rw-r--r--lisp/eshell/em-alias.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el
index c9a70ed6c23..0fdfee6d205 100644
--- a/lisp/eshell/em-alias.el
+++ b/lisp/eshell/em-alias.el
@@ -26,7 +26,7 @@
26(defgroup eshell-alias nil 26(defgroup eshell-alias nil
27 "Command aliases allow for easy definition of alternate commands." 27 "Command aliases allow for easy definition of alternate commands."
28 :tag "Command aliases" 28 :tag "Command aliases"
29 :link '(info-link "(eshell.info)Command aliases") 29 :link '(info-link "(eshell)Command aliases")
30 :group 'eshell-module) 30 :group 'eshell-module)
31 31
32;;; Commentary: 32;;; Commentary:
@@ -101,7 +101,7 @@ gained by using this module."
101(defcustom eshell-bad-command-tolerance 3 101(defcustom eshell-bad-command-tolerance 3
102 "*The number of failed commands to ignore before creating an alias." 102 "*The number of failed commands to ignore before creating an alias."
103 :type 'integer 103 :type 'integer
104 :link '(custom-manual "(eshell.info)Auto-correction of bad commands") 104 :link '(custom-manual "(eshell)Auto-correction of bad commands")
105 :group 'eshell-alias) 105 :group 'eshell-alias)
106 106
107;;; 107;;;
@@ -210,7 +210,7 @@ command, which will automatically write them to the file named by
210(defvar eshell-prevent-alias-expansion nil) 210(defvar eshell-prevent-alias-expansion nil)
211 211
212(defun eshell-maybe-replace-by-alias (command args) 212(defun eshell-maybe-replace-by-alias (command args)
213 "If COMMAND has an alias definition, call that instead using RAGS." 213 "If COMMAND has an alias definition, call that instead using ARGS."
214 (unless (and eshell-prevent-alias-expansion 214 (unless (and eshell-prevent-alias-expansion
215 (member command eshell-prevent-alias-expansion)) 215 (member command eshell-prevent-alias-expansion))
216 (let ((alias (eshell-lookup-alias command))) 216 (let ((alias (eshell-lookup-alias command)))