Browse Source

fix eshell clear

pull/1/head
10sr 10 years ago
parent
commit
cb1577c14a
1 changed files with 5 additions and 3 deletions
  1. +5
    -3
      emacs.el

+ 5
- 3
emacs.el View File

@@ -1687,7 +1687,9 @@ Optional prefix ARG says how many lines to unflag; default is one line."

(defun eshell-clear ()
(interactive)
nil)
(let ((inhibit-read-only t))
(erase-buffer)
(insert (funcall eshell-prompt-function))))

(defun eshell/d (&optional dirname switches)
"if first arg is omitted open current directory."
@@ -1830,8 +1832,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
'eshell-kill-input)
(define-key eshell-mode-map (kbd "C-d")
'eshell-delete-char-or-logout)
(define-key eshell-mode-map (kbd "C-l")
'eshell/clear)
;; (define-key eshell-mode-map (kbd "C-l")
;; 'eshell-clear)
(define-key eshell-mode-map (kbd "DEL")
'my-eshell-backward-delete-char)
(define-key eshell-mode-map


Loading…
Cancel
Save