|
@@ -86,6 +86,9 @@ |
|
|
|
|
|
|
|
|
;; (comint-show-maximum-output) |
|
|
;; (comint-show-maximum-output) |
|
|
|
|
|
|
|
|
|
|
|
(setq delete-by-moving-to-trash t |
|
|
|
|
|
trash-directory "~/.emacs.d/trash") |
|
|
|
|
|
|
|
|
;; change color for border |
|
|
;; change color for border |
|
|
(set-face-foreground (make-face 'vertical-border-face) "red") |
|
|
(set-face-foreground (make-face 'vertical-border-face) "red") |
|
|
(set-display-table-slot standard-display-table 'vertical-border |
|
|
(set-display-table-slot standard-display-table 'vertical-border |
|
@@ -230,6 +233,7 @@ |
|
|
;; "underline yellow") |
|
|
;; "underline yellow") |
|
|
(setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil) |
|
|
(setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil) |
|
|
(global-hl-line-mode 1) ;; (hl-line-mode 1) |
|
|
(global-hl-line-mode 1) ;; (hl-line-mode 1) |
|
|
|
|
|
(setq hl-line-global-modes nil) |
|
|
|
|
|
|
|
|
(setq font-lock-global-modes |
|
|
(setq font-lock-global-modes |
|
|
'(not |
|
|
'(not |
|
@@ -557,6 +561,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." |
|
|
(setq c-basic-offset 2 |
|
|
(setq c-basic-offset 2 |
|
|
indent-tabs-mode nil) |
|
|
indent-tabs-mode nil) |
|
|
;; (set-face-foreground 'font-lock-keyword-face "blue") |
|
|
;; (set-face-foreground 'font-lock-keyword-face "blue") |
|
|
|
|
|
(c-toggle-hungry-state 1) |
|
|
)) |
|
|
)) |
|
|
(defun my-compile-c-this-file () |
|
|
(defun my-compile-c-this-file () |
|
|
"" |
|
|
"" |
|
@@ -564,6 +569,8 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." |
|
|
(compile (format "gcc -Wall -g -o %s %s" |
|
|
(compile (format "gcc -Wall -g -o %s %s" |
|
|
(file-name-sans-extension buffer-file-name) |
|
|
(file-name-sans-extension buffer-file-name) |
|
|
buffer-file-name))) |
|
|
buffer-file-name))) |
|
|
|
|
|
;; (define-key c-mode-base-map "\C-h" 'c-electric-backspace) |
|
|
|
|
|
;; (when (require 'c nil t)(c-toggle-hungry-state t) |
|
|
|
|
|
|
|
|
(when (dllib-if-unfound "js2-mode" |
|
|
(when (dllib-if-unfound "js2-mode" |
|
|
"https://github.com/mooz/js2-mode/raw/master/js2-mode.el" |
|
|
"https://github.com/mooz/js2-mode/raw/master/js2-mode.el" |
|
@@ -840,22 +847,7 @@ if arg is omitted use value of `buffer-list'." |
|
|
;; vc |
|
|
;; vc |
|
|
;; (require 'vc) |
|
|
;; (require 'vc) |
|
|
|
|
|
|
|
|
(unless (executable-find "rcs") |
|
|
|
|
|
(setq vc-handled-backends (delq 'RCS vc-handled-backends))) |
|
|
|
|
|
|
|
|
|
|
|
(unless (executable-find "git") |
|
|
|
|
|
(setq vc-handled-backends (delq 'Git vc-handled-backends))) |
|
|
|
|
|
|
|
|
|
|
|
(defadvice vc-rcs-register (after rcs-register-non-strict-locking activate) |
|
|
|
|
|
"" |
|
|
|
|
|
(when (eq (vc-backend (buffer-file-name)) 'RCS) |
|
|
|
|
|
(vc-rcs-set-non-strict-locking (buffer-file-name)))) |
|
|
|
|
|
|
|
|
|
|
|
(defadvice vc-next-action (before rcs-save-before-next-action activate) |
|
|
|
|
|
"" |
|
|
|
|
|
(save-buffer)) |
|
|
|
|
|
|
|
|
|
|
|
(setq vc-command-messages t) |
|
|
|
|
|
|
|
|
(setq vc-handled-backends nil) |
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;; gauche-mode |
|
|
;; gauche-mode |
|
|