Mercurial > emacs
comparison lisp/eshell/em-hist.el @ 37654:08f6bad878f8
(eshell-add-to-history): Reference to `eshell-history-ring' needed to
be `eshell-history-index'.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Thu, 10 May 2001 03:28:51 +0000 |
| parents | 11b33211a908 |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 37653:2b50df29a117 | 37654:08f6bad878f8 |
|---|---|
| 372 (or (null eshell-hist-ignoredups) | 372 (or (null eshell-hist-ignoredups) |
| 373 (not (ring-p eshell-history-ring)) | 373 (not (ring-p eshell-history-ring)) |
| 374 (ring-empty-p eshell-history-ring) | 374 (ring-empty-p eshell-history-ring) |
| 375 (not (string-equal (eshell-get-history 0) input)))) | 375 (not (string-equal (eshell-get-history 0) input)))) |
| 376 (eshell-put-history input)) | 376 (eshell-put-history input)) |
| 377 (setq eshell-save-history-index eshell-history-ring) | 377 (setq eshell-save-history-index eshell-history-index) |
| 378 (setq eshell-history-index nil)))) | 378 (setq eshell-history-index nil)))) |
| 379 | 379 |
| 380 (defun eshell-read-history (&optional filename silent) | 380 (defun eshell-read-history (&optional filename silent) |
| 381 "Sets the buffer's `eshell-history-ring' from a history file. | 381 "Sets the buffer's `eshell-history-ring' from a history file. |
| 382 The name of the file is given by the variable | 382 The name of the file is given by the variable |