|
@@ -320,13 +320,6 @@ found, otherwise returns nil." |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; editting |
|
|
;; editting |
|
|
|
|
|
|
|
|
(defun my-copy-whole-line () |
|
|
|
|
|
"Copy whole line." |
|
|
|
|
|
(interactive) |
|
|
|
|
|
(kill-new (concat (buffer-substring (point-at-bol) |
|
|
|
|
|
(point-at-eol)) |
|
|
|
|
|
"\n"))) |
|
|
|
|
|
|
|
|
|
|
|
(setq require-final-newline t) |
|
|
(setq require-final-newline t) |
|
|
(setq kill-whole-line t) |
|
|
(setq kill-whole-line t) |
|
|
(setq scroll-conservatively 35 |
|
|
(setq scroll-conservatively 35 |
|
@@ -370,7 +363,6 @@ found, otherwise returns nil." |
|
|
(global-set-key (kbd "C-m") 'newline-and-indent) |
|
|
(global-set-key (kbd "C-m") 'newline-and-indent) |
|
|
;; (global-set-key (kbd "C-o") (kbd "C-e C-m")) |
|
|
;; (global-set-key (kbd "C-o") (kbd "C-e C-m")) |
|
|
|
|
|
|
|
|
(define-key esc-map "k" 'my-copy-whole-line) |
|
|
|
|
|
;; (global-set-key "\C-z" 'undo) ; undo is M-u |
|
|
;; (global-set-key "\C-z" 'undo) ; undo is M-u |
|
|
(define-key esc-map "u" 'undo) |
|
|
(define-key esc-map "u" 'undo) |
|
|
(define-key esc-map "i" (kbd "ESC TAB")) |
|
|
(define-key esc-map "i" (kbd "ESC TAB")) |
|
|