Browse Source

add funtion my-execute-terminal

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

+ 15
- 4
.emacs.el View File

@@ -494,8 +494,7 @@ if EXCLUDE-CURRENT-BUFFER-P is non-nil, never kill current buffer"

(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 nil t)
'ansi-term))
(define-key my-prefix-map (kbd "C-s") 'my-execute-terminal)

;; (define-key my-prefix-map (kbd "C-h") help-map)
(global-set-key (kbd "C-\\") help-map)
@@ -760,6 +759,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
(define-key term-raw-map [delete] 'term-send-raw)
(define-key term-raw-map "\C-h" 'term-send-backspace)
(define-key term-raw-map "\C-y" 'term-paste)
(define-key term-raw-map "\C-c" 'term-interrupt-subjob)
;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
;; (define-key term-raw-map (kbd key) 'term-send-raw))
;; (define-key term-raw-map "\C-d" 'delete-char)
@@ -1593,6 +1593,19 @@ when SEC is nil, stop auto save if enabled."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; misc funcs

(defvar my-desktop-terminal "roxterm")
(defun my-execute-terminal ()
""
(interactive)
(if window-system
(let ((process-environment (cons "TERM=xterm" process-environment)))
(start-process "terminal"
nil
my-desktop-terminal))
(if (require 'multi-term nil t)
(multi-term)
(ansi-term))))

(defun my-execute-shell-command-current-line ()
""
(interactive)
@@ -1870,8 +1883,6 @@ this is test, does not rename files"
(scim-define-common-key ?\* nil)
(scim-define-common-key ?\^/ nil))



(defun my-load-anthy ()
"use anthy.el as japanese im."
;; anthy


Loading…
Cancel
Save