dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:1c19f4e2ac19
+:d231b87af643
 (setq term-scroll-show-maximum-output t)
 (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)
 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)
 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))
 (defvar pc-select-selection-keys-only)
 (defvar pc-select-meta-moves-sexps)
 (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.
 (setq pc-select-meta-moves-sexps t)
 (pc-selection-mode 1) )
 (concat (file-name-sans-extension path) "_." (file-name-extension path))
 nil))
 (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
 entry-beg entry-end )
 (unless archive
 (save-buffer) )))))
 (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")
 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
 (my-org-archive-file file)))
 (and (= emacs-major-version 23) (>= emacs-minor-version 2))
 (>= emacs-major-version 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)
 (global-semantic-mru-bookmark-mode 1)
 ;; (setq semantic-stickyfunc-sticky-classes '(function type variable include package))
 (global-semantic-stickyfunc-mode -1)
 (global-semantic-highlight-func-mode -1)
 (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))
 (ignore-errors
 (cedet-gnu-global-version-check)
 (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)
 (define-key semantic-mode-map (kbd "C-c , d") 'semantic-ia-show-doc)
 (define-key semantic-mode-map (kbd "C-c , D") 'semantic-ia-show-summary)

changeset 1635	d231b87af643
parent 1634	1c19f4e2ac19
child 1636	fbef0a487803