# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1605529600 -7200
# Node ID d231b87af643977151234ff5e63f63c6b6bbe519
# Parent  1c19f4e2ac1968c1c363d529344124909cb10161
Grouped related code so paragraph selected text can be evaluated by eval-reegion!

diff -r 1c19f4e2ac19 -r d231b87af643 .emacs-my
--- a/.emacs-my	Mon Nov 16 14:23:28 2020 +0200
+++ b/.emacs-my	Mon Nov 16 14:26:40 2020 +0200
@@ -639,7 +639,6 @@
 
 (my--eval-after-load term
   (define-key term-mode-map [?\t] #'term-dynamic-complete)
-
   (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))
   (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))
   (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)
@@ -919,7 +918,6 @@
 (when (<= emacs-major-version 23)
   ;; 1/-1, when the mark is active, the region is highlighted.
   (transient-mark-mode 1)
-
   ;; Order of next items is important, (assignment must done before pc-selection-mode enabled).
   (require 'pc-select)
   (setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
@@ -1904,7 +1902,7 @@
 
 (defun my-org-archive-file (path)
   "Move marked by `org-done-keywords' entries to archive file.
-
+.
 Archive file name constructed by `my-org-archive-location'."
   (let ( (archive (my-org-archive-location path))
          entry-re entry-done-re
@@ -1938,7 +1936,7 @@
 (defun my-org-archive (&optional prefix)
   "Move all entries marked by `org-done-keywords' to archive
 files with name mangled by `my-org-archive-location'.
-
+.
 Without prefix work on current file. With prefix work on
 `org-agenda-files'."
   (interactive "P")
@@ -2850,9 +2848,24 @@
     (require 'cedet)
     (require 'mode-local)))
 
+(defun my-srecode-reload-templates ()
+  "Reload all templates under `srecode-map-load-path'. Useful
+during template developing."
+  (interactive)
+  (setq srecode-mode-table-list nil
+        srecode-current-map nil)
+  (srecode-map-update-map) )
+
+(defun my-c-mode-cedet-hook ()
+  ;; (local-set-key [C-return] 'semantic-complete-symbol)
+  ;; (local-set-key [C-return] 'semantic-complete-analyze-inline)
+  ;; (local-set-key "." 'semantic-complete-self-insert)
+  ;; (local-set-key ">" 'semantic-complete-self-insert)
+  )
+(add-hook 'c-mode-common-hook 'my-c-mode-cedet-hook)
+
 (when (featurep 'cedet)
   (require 'semantic)
-
   (global-semantic-idle-scheduler-mode 1)
   (global-semantic-idle-summary-mode 1)
   (global-semantic-idle-completions-mode -1)
@@ -2863,40 +2876,25 @@
   (global-semantic-decoration-mode 1)
   (when (fboundp 'global-semantic-idle-local-symbol-highlight-mode)
     (global-semantic-idle-local-symbol-highlight-mode 1))
-
   (setq semantic-idle-scheduler-idle-time 10)
   (setq semantic-idle-scheduler-work-idle-time 60)
   (setq semantic-idle-scheduler-max-buffer-size 100000)
   ;; (setq semantic-idle-work-parse-neighboring-files-flag nil)
-
   ;; semantic-dependency-system-include-path, semantic-customize-system-include-path
-
   ;; file local project unloaded system recursive
   (setq-mode-local c-mode semanticdb-find-default-throttle '(file local))
   (add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c-mode)))
   (add-hook 'c-mode-hook (lambda nil (semantic-add-system-include "~/.emacs.d/include" 'c++-mode)))
   (global-semanticdb-minor-mode 1)
-
   (ignore-errors
     (global-cedet-m3-minor-mode 1))
-
   (semantic-mode 1)
   (global-ede-mode 1)
-
   (require 'srecode)
   (defvar srecode-map-load-path nil)
   (add-to-list 'srecode-map-load-path (locate-user-emacs-file "srecode/"))
   (global-srecode-minor-mode 1)
   (add-hook 'prog-mode-hook 'srecode-minor-mode)
-
-  (defun my-srecode-reload-templates ()
-    "Reload all templates under `srecode-map-load-path'. Useful
-during template developing."
-    (interactive)
-    (setq srecode-mode-table-list nil
-          srecode-current-map nil)
-    (srecode-map-update-map) )
-
   (ignore-errors
     (cedet-ectag-version-check)
     (semantic-load-enable-primary-ectags-support))
@@ -2905,28 +2903,14 @@
     (require 'cedet-global)
     (semanticdb-enable-gnu-global-databases 'c-mode)
     (semanticdb-enable-gnu-global-databases 'c++-mode))
-
   (ignore-errors
     (require 'cedet-java))
-
   (setq project-linux-build-directory-default 'same
         project-linux-architecture-default "x86")
-
   ;; (require 'semantic/db-javap)
-
   ;; (add-to-list 'ede-locate-setup-options 'ede-locate-idutils)
   ;; (add-to-list 'ede-locate-setup-options 'ede-locate-global)
-
   ;; (ignore-errors (require 'cedet-idutils))
-
-  (defun my-c-mode-cedet-hook ()
-    ;; (local-set-key [C-return] 'semantic-complete-symbol)
-    ;; (local-set-key [C-return] 'semantic-complete-analyze-inline)
-    ;; (local-set-key "." 'semantic-complete-self-insert)
-    ;; (local-set-key ">" 'semantic-complete-self-insert)
-    )
-  (add-hook 'c-mode-common-hook 'my-c-mode-cedet-hook)
-
   (ignore-errors
     (require 'semantic/ia)
     (define-key semantic-mode-map (kbd "C-c , .") 'semantic-ia-fast-jump)