浏览代码

add eshell-mode keybind and func eshell/v

pull/1/head
10sr 14 年前
父节点
当前提交
b94881c63a
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. +5
    -0
      .emacs

+ 5
- 0
.emacs 查看文件

@@ -1291,6 +1291,9 @@ Optional prefix ARG says how many lines to unflag; default is one line."
"if first arg is omitted open current directory." "if first arg is omitted open current directory."
(dired (or dirname ".") switches)) (dired (or dirname ".") switches))


(defun eshell/v ()
(view-mode 1))

(defalias 'eshell/type 'eshell/which) (defalias 'eshell/type 'eshell/which)
(defalias 'eshell/vim 'eshell/vi) (defalias 'eshell/vim 'eshell/vi)
(defalias 'eshell/ff 'find-file) (defalias 'eshell/ff 'find-file)
@@ -1373,6 +1376,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(eshell-goto-prompt) (eshell-goto-prompt)
(my-keyboard-quit))) (my-keyboard-quit)))
(define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char) (define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)
(define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)
(define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)
(mapcar (lambda (alias) (mapcar (lambda (alias)
(add-to-list 'eshell-command-aliases-list (add-to-list 'eshell-command-aliases-list
alias)) alias))


正在加载...
取消
保存