- (defun sd/eshell-clear-buffer ()
- "Clear eshell buffer"
- (interactive)
- (let ((inhibit-read-only t)
- (current-point (- (point-max) (point))))
- (beginning-of-line)
- (delete-region (point-min) (point))
- (goto-char (- (point-max) current-point))))
-