Browse Source

use multi-term instead of eshell

pull/1/head
10sr 13 years ago
parent
commit
eff8fcb606
1 changed files with 17 additions and 4 deletions
  1. +17
    -4
      .emacs.el

+ 17
- 4
.emacs.el View File

@@ -379,6 +379,8 @@

(define-key my-prefix-map (kbd "C-f") 'make-frame-command)
(define-key my-prefix-map (kbd "C-o") 'occur)
(define-key my-prefix-map (kbd "C-s") (or (require 'multi-term)
'ansi-term))

;; moving around
;; (global-set-key (kbd "M-j") 'next-line)
@@ -394,6 +396,7 @@
(global-set-key (kbd "C-<right>") 'scroll-up)
(global-set-key (kbd "C-x M-x") 'execute-extended-command)
(global-set-key (kbd "C-x M-:") 'eval-expression)
(global-set-key (kbd "<select>") 'previous-line-mark)

;; C-h and DEL
;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify)
@@ -508,6 +511,10 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."

;; (ffap-bindings)

(add-hook 'sh-mode-hook
(lambda ()
(define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))

(add-hook 'inferior-python-mode-hook
(lambda ()
(define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
@@ -1455,10 +1462,10 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
;; ;; (eshell/alias "ut" "ssh g841105@un001.ecc.u-tokyo.ac.jp")
;; (add-to-list 'recentf-exclude (concat eshell-directory-name "alias"))))

(define-key my-prefix-map (kbd "C-s") (lambda ()
(interactive)
(eshell-cd-default-directory (buffer-name (or (my-eshell-frame-buffer (selected-frame))
(eshell t))))))
;; (define-key my-prefix-map (kbd "C-s") (lambda ()
;; (interactive)
;; (eshell-cd-default-directory (buffer-name (or (my-eshell-frame-buffer (selected-frame))
;; (eshell t))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 最終更新日時を得る
@@ -1531,6 +1538,12 @@ when SEC is nil, stop auto save if enabled."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; misc funcs

(defun my-execute-shell-command-current-line ()
""
(interactive)
(shell-command (buffer-substring-no-properties (point-at-bol)
(point-at-eol))))

(defun my-format-time-string (&optional time)
""
(let ((system-time-locale "C"))


Loading…
Cancel
Save