Browse Source

.emacs.el: misc changes

pull/1/head
10sr 13 years ago
parent
commit
4340191c44
1 changed files with 12 additions and 9 deletions
  1. +12
    -9
      .emacs.el

+ 12
- 9
.emacs.el View File

@@ -648,11 +648,11 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
;; (define-key term-raw-map "\C-f" 'forward-char)
;; (define-key term-raw-map "\C-b" 'backward-char)
;; (define-key term-raw-map "\C-t" 'set-mark-command)
(define-key term-raw-map (kbd "ESC") 'term-send-raw)
(define-key term-raw-map [delete] 'term-send-raw)
(define-key term-raw-map "\C-c" 'term-send-raw)
(define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))
(define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))
(define-key term-raw-map (kbd "ESC") 'term-send-raw)
(define-key term-raw-map [delete] 'term-send-raw)
(define-key term-raw-map "\C-c" 'term-send-raw)
(define-key term-raw-map "\C-y" 'term-paste)
;; (define-key term-raw-map "\C-d" 'delete-char)
(set (make-variable-buffer-local 'scroll-margin) 0)))
@@ -1562,16 +1562,19 @@ when SEC is nil, stop auto save if enabled."
sh-mode
js-mode
sgml-mode
c-mode))
c-mode
c++-mode))
(defun my-indent-buffer ()
""
"indent whole buffer."
(interactive)
(indent-region (point-min)
(point-max)))
(point-max)))
(defun my-auto-indent-buffer ()
""
(when (memq major-mode my-indent-buffer-mode-list)
(my-indent-buffer)))
(add-hook 'before-save-hook
(lambda ()
(when (memq major-mode my-indent-buffer-mode-list)
(my-indent-buffer))))
'my-auto-indent-buffer)

(defun my-keyboard-quit ()
""


Loading…
Cancel
Save