aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorStefan Monnier2010-03-24 14:02:56 -0400
committerStefan Monnier2010-03-24 14:02:56 -0400
commite867cb5d30200dd696b012e1ad0964d25c2a7ecc (patch)
tree3340026420f168909eaa734232e4890e15bc1626 /lisp/eshell
parentb2b8574b8d03673f5673e2154d17c2cb80f59a0b (diff)
parentefee6a6d9cec2af824b8355c93d8f47b72a685a8 (diff)
downloademacs-e867cb5d30200dd696b012e1ad0964d25c2a7ecc.tar.gz
emacs-e867cb5d30200dd696b012e1ad0964d25c2a7ecc.zip
Merge from `emacs-23'.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/em-basic.el2
-rw-r--r--lisp/eshell/em-dirs.el8
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/eshell/em-basic.el b/lisp/eshell/em-basic.el
index 775b67a3fa3..a4074011f58 100644
--- a/lisp/eshell/em-basic.el
+++ b/lisp/eshell/em-basic.el
@@ -125,7 +125,7 @@ or `eshell-printn' for display."
125 (eshell-echo args output-newline))) 125 (eshell-echo args output-newline)))
126 126
127(defun eshell/printnl (&rest args) 127(defun eshell/printnl (&rest args)
128 "Print out each of the argument, separated by newlines." 128 "Print out each of the arguments, separated by newlines."
129 (let ((elems (eshell-flatten-list args))) 129 (let ((elems (eshell-flatten-list args)))
130 (while elems 130 (while elems
131 (eshell-printn (eshell-echo (list (car elems)))) 131 (eshell-printn (eshell-echo (list (car elems))))
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 3104bb11b17..43bc3ffaa6f 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -178,7 +178,7 @@ thing again."
178Thus, this does not include the current directory.") 178Thus, this does not include the current directory.")
179 179
180(defvar eshell-last-dir-ring nil 180(defvar eshell-last-dir-ring nil
181 "The last directory that eshell was in.") 181 "The last directory that Eshell was in.")
182 182
183;;; Functions: 183;;; Functions:
184 184
@@ -267,7 +267,7 @@ Thus, this does not include the current directory.")
267 (char-to-string (char-before)))) 267 (char-to-string (char-before))))
268 268
269(defun eshell-parse-drive-letter () 269(defun eshell-parse-drive-letter ()
270 "An argument beginning X:[^/] is a drive letter reference." 270 "An argument beginning with X:[^/] is a drive letter reference."
271 (when (and (not eshell-current-argument) 271 (when (and (not eshell-current-argument)
272 (looking-at "\\([A-Za-z]:\\)\\([^/\\\\]\\|\\'\\)")) 272 (looking-at "\\([A-Za-z]:\\)\\([^/\\\\]\\|\\'\\)"))
273 (goto-char (match-end 1)) 273 (goto-char (match-end 1))
@@ -517,7 +517,7 @@ in the minibuffer:
517 msg))) 517 msg)))
518 518
519(defun eshell-read-last-dir-ring () 519(defun eshell-read-last-dir-ring ()
520 "Sets the buffer's `eshell-last-dir-ring' from a history file." 520 "Set the buffer's `eshell-last-dir-ring' from a history file."
521 (let ((file eshell-last-dir-ring-file-name)) 521 (let ((file eshell-last-dir-ring-file-name))
522 (cond 522 (cond
523 ((or (null file) 523 ((or (null file)
@@ -545,7 +545,7 @@ in the minibuffer:
545 (setq eshell-last-dir-ring ring)))))) 545 (setq eshell-last-dir-ring ring))))))
546 546
547(defun eshell-write-last-dir-ring () 547(defun eshell-write-last-dir-ring ()
548 "Writes the buffer's `eshell-last-dir-ring' to a history file." 548 "Write the buffer's `eshell-last-dir-ring' to a history file."
549 (let ((file eshell-last-dir-ring-file-name)) 549 (let ((file eshell-last-dir-ring-file-name))
550 (cond 550 (cond
551 ((or (null file) 551 ((or (null file)