.emacs-my
changeset 556 782325bafc4a
parent 555 7b2833356d27
child 557 f692f2fe00a2
equal deleted inserted replaced
555:7b2833356d27 556:782325bafc4a
   334 ;; Do not set t because some grep do not has --color options.
   334 ;; Do not set t because some grep do not has --color options.
   335 (setq grep-highlight-matches nil)
   335 (setq grep-highlight-matches nil)
   336 (setq grep-use-null-device nil)
   336 (setq grep-use-null-device nil)
   337 
   337 
   338 (eval-after-load 'grep
   338 (eval-after-load 'grep
   339   (lambda nil
   339   '(progn
   340     (add-to-list 'grep-find-ignored-directories "build" t)
   340      (add-to-list 'grep-find-ignored-directories "build" t)
   341     (add-to-list 'grep-find-ignored-directories "dist" t)
   341      (add-to-list 'grep-find-ignored-directories "dist" t)
   342     (add-to-list 'grep-find-ignored-directories "lib" t)
   342      (add-to-list 'grep-find-ignored-directories "lib" t)
   343 
   343 
   344     (add-to-list 'grep-find-ignored-files "*TAGS")
   344      (add-to-list 'grep-find-ignored-files "*TAGS")
   345     (add-to-list 'grep-find-ignored-files "GPATH")
   345      (add-to-list 'grep-find-ignored-files "GPATH")
   346     ))
   346      ))
   347 
   347 
   348 (global-set-key [M-f7] 'rgrep)
   348 (global-set-key [M-f7] 'rgrep)
   349 
   349 
   350 ;;; ----------------------------------------------------------------
   350 ;;; ----------------------------------------------------------------
   351 (message "syntax highlighting")
   351 (message "syntax highlighting")
  1125       compile-command "make ")
  1125       compile-command "make ")
  1126 ;; compilation window shall scroll down if not 0
  1126 ;; compilation window shall scroll down if not 0
  1127 (setq compilation-scroll-output 1)
  1127 (setq compilation-scroll-output 1)
  1128 
  1128 
  1129 (eval-after-load 'compile
  1129 (eval-after-load 'compile
  1130   (lambda nil
  1130   '(progn
  1131     ;; My funny error messages.
  1131      ;; My funny error messages.
  1132     (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
  1132      (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
  1133     (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
  1133      (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
  1134     (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
  1134      (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
  1135     (when (boundp 'compilation-mode-font-lock-keywords)
  1135      (when (boundp 'compilation-mode-font-lock-keywords)
  1136       (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
  1136        (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
  1137       (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))
  1137        (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))
  1138       )
  1138        )
  1139     ))
  1139      ))
  1140 
  1140 
  1141 ;;; ----------------------------------------------------------------
  1141 ;;; ----------------------------------------------------------------
  1142 (message "TAGS, etags, ctags, GNU GLOBAL")
  1142 (message "TAGS, etags, ctags, GNU GLOBAL")
  1143 
  1143 
  1144 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
  1144 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to