diff options
| author | Stefan Monnier | 2010-03-24 14:02:56 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2010-03-24 14:02:56 -0400 |
| commit | e867cb5d30200dd696b012e1ad0964d25c2a7ecc (patch) | |
| tree | 3340026420f168909eaa734232e4890e15bc1626 /lisp/eshell | |
| parent | b2b8574b8d03673f5673e2154d17c2cb80f59a0b (diff) | |
| parent | efee6a6d9cec2af824b8355c93d8f47b72a685a8 (diff) | |
| download | emacs-e867cb5d30200dd696b012e1ad0964d25c2a7ecc.tar.gz emacs-e867cb5d30200dd696b012e1ad0964d25c2a7ecc.zip | |
Merge from `emacs-23'.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-basic.el | 2 | ||||
| -rw-r--r-- | lisp/eshell/em-dirs.el | 8 |
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." | |||
| 178 | Thus, this does not include the current directory.") | 178 | Thus, 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) |