Guest User

Untitled

a guest
Dec 7th, 2015
100
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun eshell-append-history ()
  2. "Call `eshell-write-history' with the `append' parameter set to `t'."
  3. (when eshell-history-ring
  4. (let ((newest-cmd-ring (make-ring 1)))
  5. (ring-insert newest-cmd-ring (car (ring-elements eshell-history-ring)))
  6. (let ((eshell-history-ring newest-cmd-ring))
  7. (eshell-write-history eshell-history-file-name t)))))
RAW Paste Data