# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1292880828 -7200
# Node ID 1c216ab8a926f20e129c4980a3c22edcb4fa6864
# Parent  6889ad2dbd357e8d9787f334d2915388060bff46# Parent  14a5ff978db74522b2bdfa66774cca2fe53c85a9
Automated merge with file:///cygdrive/e/srv/hg/dot-emacs

diff -r 14a5ff978db7 -r 1c216ab8a926 .emacs-my
--- a/.emacs-my	Mon Dec 20 23:33:38 2010 +0200
+++ b/.emacs-my	Mon Dec 20 23:33:48 2010 +0200
@@ -658,6 +658,19 @@
 (setq-default calc-group-digits t)
 (setq-default calc-group-char "'")
 
+(defun my-calc-eval-region (arg beg end)
+  "Calculate the region and display the result in the echo area.
+With prefix ARG non-nil, insert the result at the end of region."
+  (interactive "P\nr")
+  (require 'calc)
+  (let* ((expr (buffer-substring-no-properties beg end))
+         (result (calc-eval expr)))
+    (if (null arg)
+        (message "%s = %s" expr result)
+      (goto-char end)
+      (save-excursion
+        (insert result)))))
+
 ;;; ----------------------------------------------------------------
 ;;; TeX, LaTeX.
 
@@ -896,6 +909,32 @@
   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   )
 
+(defvar my-jabber-users nil
+  "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")
+
+(defun my-jabber-send (group)
+  "GROUP is keys from `my-jabber-users'"
+  (interactive
+   (list (completing-read "Select group: " my-jabber-users))
+   )
+  (let (
+        (msg (if (use-region-p)
+                 (buffer-substring (region-beginning) (region-end))
+               (buffer-string)))
+        (jc (jabber-read-account))
+        )
+    (deactivate-mark)
+    (mapc
+     (lambda (user)
+       (jabber-send-message jc user "" msg "normal")
+       )
+     (cdr (assoc group my-jabber-users))
+     )
+    )
+  )
+
+(global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
+
 ;;; ----------------------------------------------------------------
 ;;; rcirc.
 
@@ -1051,17 +1090,18 @@
 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
 
 (unless (featurep 'cedet)
-  (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2)) (>= emacs-minor-version 24))
-    (semantic-mode 1)
-    ))
+  ;; (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2)) (>= emacs-minor-version 24))
+  ;;   (semantic-mode 1)
+  ;;   )
+  )
 
 (when (featurep 'cedet)
   (unless (equal cedet-version "1.0pre7") ; Come with Emacs 23.2.
-    (semantic-load-enable-code-helpers)
-    (semantic-load-enable-guady-code-helpers)
+    ;; (semantic-load-enable-code-helpers)
+    ;; (semantic-load-enable-guady-code-helpers)
     ;; (global-srecode-minor-mode 1)
-    (require 'semanticdb)
-    (require 'semantic-ia)
+    ;; (require 'semanticdb)
+    ;; (require 'semantic-ia)
     )
 
   (global-ede-mode t)