670 (eval-when 'compile (require 'whitespace)) |
670 (eval-when 'compile (require 'whitespace)) |
671 |
671 |
672 (setq-default indicate-empty-lines t) |
672 (setq-default indicate-empty-lines t) |
673 (setq-default indicate-buffer-boundaries 'left) |
673 (setq-default indicate-buffer-boundaries 'left) |
674 |
674 |
675 ;; (setq-default show-trailing-whitespace t) |
675 ;; Old trailing whitespace highlighter built-in into Emacs engine, until global-whitespace-mode is fixed. |
676 |
676 (setq-default show-trailing-whitespace t) |
677 (setq whitespace-style '(face trailing tabs)) |
677 (set-face-attribute 'trailing-whitespace nil :background "magenta") |
678 (setq whitespace-global-modes t) |
678 |
679 (ignore-errors |
679 ;; whitespace-style "face" causes double quoted strings to be highlighted by font-lock-string-face. |
680 (require 'whitespace) |
680 ;; https://emacs.stackexchange.com/questions/61770/whitespace-style-face-activats-highlighting-of-quoted-string-in-fundamental-mo |
681 (global-whitespace-mode 1)) |
681 ;; (setq whitespace-style '(face trailing tabs)) |
|
682 ;; (setq whitespace-global-modes t) |
|
683 ;; (ignore-errors |
|
684 ;; (require 'whitespace) |
|
685 ;; (global-whitespace-mode -1)) |
682 |
686 |
683 (setq next-line-add-newlines nil) |
687 (setq next-line-add-newlines nil) |
684 |
688 |
685 ;; See also 'mode-require-final-newline'. |
689 ;; See also 'mode-require-final-newline'. |
686 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
690 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil))) |
2932 ;; (define-key semantic-mode-map [(control return)] 'semantic-ia-complete-symbol) |
2936 ;; (define-key semantic-mode-map [(control return)] 'semantic-ia-complete-symbol) |
2933 ;; (define-key semantic-mode-map (kbd "C-c , C") 'semantic-ia-describe-class) |
2937 ;; (define-key semantic-mode-map (kbd "C-c , C") 'semantic-ia-describe-class) |
2934 ;; semantic-decoration-include-visit |
2938 ;; semantic-decoration-include-visit |
2935 ;; semantic-analyze-proto-impl-toggle |
2939 ;; semantic-analyze-proto-impl-toggle |
2936 ) |
2940 ) |
2937 |
|
2938 ;; END OF: (when (featurep 'cedet) ...) |
2941 ;; END OF: (when (featurep 'cedet) ...) |
2939 ) |
2942 ) |
2940 |
2943 |
2941 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2944 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2942 (message "imenu") |
2945 (message "imenu") |