projects
/
dotfiles.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d8b2821
)
emacs - improve C-l to clear the eshell buffer
author
Peng Li
<seudut@gmail.com>
Fri, 12 May 2017 07:33:32 +0000
(15:33 +0800)
committer
Peng Li
<seudut@gmail.com>
Fri, 12 May 2017 07:33:32 +0000
(15:33 +0800)
emacs.d/config.org
patch
|
blob
|
history
diff --git
a/emacs.d/config.org
b/emacs.d/config.org
index
de6dfdb
..
1ff1bf7
100644
(file)
--- a/
emacs.d/config.org
+++ b/
emacs.d/config.org
@@
-1258,9
+1258,14
@@
set default eshell history folder
(defun sd/eshell-clear-buffer ()
"Clear eshell buffer"
(interactive)
(defun sd/eshell-clear-buffer ()
"Clear eshell buffer"
(interactive)
- (let ((inhibit-read-only t))
- (erase-buffer)
- (eshell-send-input)))
+ (let ((inhibit-read-only t)
+ (current-point (- (point-max) (point))))
+ (beginning-of-line)
+ (delete-region (point-min) (point))
+ (goto-char (- (point-max) current-point))
+ ;; (eshell-send-input)
+ ))
+
(add-hook 'eshell-mode-hook (lambda ()
(local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
(add-hook 'eshell-mode-hook (lambda ()
(local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))