Mercurial > emacs
comparison lisp/eshell/em-rebind.el @ 31241:3099993cba0f
See ChangeLog
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Tue, 29 Aug 2000 00:47:45 +0000 |
parents | 34b1ab9d583d |
children | aab90b31807c |
comparison
equal
deleted
inserted
replaced
31240:10b1c85c0bbe | 31241:3099993cba0f |
---|---|
233 input." | 233 input." |
234 (interactive "p") | 234 (interactive "p") |
235 (let ((proc (get-buffer-process (current-buffer)))) | 235 (let ((proc (get-buffer-process (current-buffer)))) |
236 (if (eobp) | 236 (if (eobp) |
237 (cond | 237 (cond |
238 ((not (= (point) eshell-last-output-end)) | 238 ((/= (point) eshell-last-output-end) |
239 (beep)) | 239 (beep)) |
240 (proc | 240 (proc |
241 (process-send-eof)) | 241 (process-send-eof)) |
242 (t | 242 (t |
243 (eshell-life-is-too-much))) | 243 (eshell-life-is-too-much))) |