diff options
| -rw-r--r-- | emacs | 34 |
1 files changed, 34 insertions, 0 deletions
@@ -233,6 +233,11 @@ '(widget-field-face ((t (:background "gray85"))) t) '(widget-single-line-field-face ((t (:background "gray85"))) t)) +(if (not window-system) + (custom-set-faces + '(linum ((t (:background "black" :foreground "white" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) + '(region ((nil (:inverse-video t)))))) + (global-set-key [mouse-3] 'imenu) ;; define F1 to display man page of the current word @@ -259,6 +264,35 @@ (normal-top-level-add-subdirs-to-load-path) (nconc load-path orig-load-path)) +; fix keys for urxvt +(if (not window-system) + (mapc (lambda (map) + (define-key function-key-map + (read-kbd-macro (cadr map)) + (read-kbd-macro (car map)))) + '(("<S-tab>" "M-[ Z") + ("<S-up>" "<select>") + ("<S-down>" "M-[ b") + ("<S-right>" "M-[ c") + ("<S-left>" "M-[ d") + ("<M-up>" "ESC M-O A") + ("<M-down>" "ESC M-O B") + ("<M-right>" "ESC M-O C") + ("<M-left>" "ESC M-O D") + ("<C-up>" "M-O a") + ("<C-down>" "M-O b") + ("<C-right>" "M-O c") + ("<C-left>" "M-O d") + ("<C-M-up>" "ESC M-O a") + ("<C-M-down>" "ESC M-O b") + ("<C-M-right>" "ESC M-O c") + ("<C-M-left>" "ESC M-O d") + ("<M-S-up>" "ESC M-[ a") + ("<M-S-down>" "ESC M-[ b") + ("<M-S-right>" "ESC M-[ c") + ("<M-S-left>" "ESC M-[ d") + ))) + (setq auto-mode-alist (cons '("README" . text-mode) auto-mode-alist)) (setq compilation-scroll-output t) |