equal
deleted
inserted
replaced
977 (global-set-key [s-insert] 'ibuffer) |
977 (global-set-key [s-insert] 'ibuffer) |
978 |
978 |
979 (icomplete-mode 1) |
979 (icomplete-mode 1) |
980 (setq icomplete-with-completion-tables t) |
980 (setq icomplete-with-completion-tables t) |
981 |
981 |
982 (defun my--is-file-large () |
982 (defun my--large-file-p () |
983 "If buffer too large and my cause performance issue." |
983 "If buffer too large and my cause performance issue." |
984 (< large-file-warning-threshold (buffer-size))) |
984 (< large-file-warning-threshold (buffer-size))) |
985 |
985 |
986 (define-derived-mode my-large-file-mode fundamental-mode "LargeFile" |
986 (define-derived-mode my-large-file-mode fundamental-mode "LargeFile" |
987 "Fixes performance issues in Emacs for large files." |
987 "Fixes performance issues in Emacs for large files." |
993 ;; (setq mode-line-format (delq 'mode-line-position 'mode-line-format)) |
993 ;; (setq mode-line-format (delq 'mode-line-position 'mode-line-format)) |
994 (set (make-variable-buffer-local 'global-hl-line-mode) nil) |
994 (set (make-variable-buffer-local 'global-hl-line-mode) nil) |
995 (set (make-variable-buffer-local 'line-number-mode) nil) |
995 (set (make-variable-buffer-local 'line-number-mode) nil) |
996 (set (make-variable-buffer-local 'column-number-mode) nil) ) |
996 (set (make-variable-buffer-local 'column-number-mode) nil) ) |
997 |
997 |
998 (add-to-list 'magic-mode-alist (cons #'my--is-file-large #'my-large-file-mode)) |
998 (add-to-list 'magic-mode-alist (cons #'my--large-file-p #'my-large-file-mode)) |
999 |
999 |
1000 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1000 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1001 (message "bookmark") |
1001 (message "bookmark") |
1002 |
1002 |
1003 ;; (require 'autobm) |
1003 ;; (require 'autobm) |
2199 |
2199 |
2200 (which-func-mode 1) |
2200 (which-func-mode 1) |
2201 |
2201 |
2202 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
2202 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
2203 |
2203 |
2204 (defun my-c++-header-file-p () |
2204 (defun my--c++-header-file-p () |
2205 "Return non-nil, if in a C++ header." |
2205 "Return non-nil, if in a C++ header." |
2206 (and (string-match "\\.h$" |
2206 (and (string-match "\\.h$" |
2207 (or (buffer-file-name) |
2207 (or (buffer-file-name) |
2208 (buffer-name))) |
2208 (buffer-name))) |
2209 (save-excursion |
2209 (save-excursion |
2210 (re-search-forward "\\_<class\\_>" nil t)))) |
2210 (re-search-forward "\\_<class\\_>" nil t)))) |
2211 |
2211 |
2212 (when (>= emacs-major-version 22) |
2212 (when (>= emacs-major-version 22) |
2213 (add-to-list 'magic-mode-alist '(my-c++-header-file-p . c++-mode)) |
2213 (add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode)) |
2214 ) |
2214 ) |
2215 |
2215 |
2216 (setq-default comment-style (quote indent)) |
2216 (setq-default comment-style (quote indent)) |
2217 (setq-default comment-column 44) |
2217 (setq-default comment-column 44) |
2218 (setq-default comment-fill-column my-fill-column) |
2218 (setq-default comment-fill-column my-fill-column) |