(let ((dir (concat (file-name-directory (directory-file-name (file-name-directory (or load-file-name (when (boundp 'bytecomp-filename) bytecomp-filename) buffer-file-name)))) (file-name-as-directory "emacsstuff")))) (add-to-list 'load-path dir)) (require 'g0dilstuff-init) (require 'cc-ide) (require 'softtext) (require 'cc-mode) (define-key c++-mode-map "\C-c\C-c" 'recompile) (define-key c++-mode-map "\C-c\C-i" 'comment-indent) ;;; remove some unnecessary compilation error regexp settings which just cause problems (setq compilation-error-regexp-alist (delq 'cucumber compilation-error-regexp-alist)) (setq compilation-error-regexp-alist (delq 'mips-1 compilation-error-regexp-alist)) ;;; remove matching whitespace in filenames for 'gnu' style error messages (setf (nth 1 (assoc 'gnu compilation-error-regexp-alist-alist)) (replace-regexp-in-string (regexp-quote " [^-/\n]\\|") "" (nth 1 (assoc 'gnu compilation-error-regexp-alist-alist)) t t))