# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1424623446 -7200
# Node ID 90e3a3721051c46851c32ad657fb1bc9233f8270
# Parent  68542ca74092ad27ba644c630ee8a174d40dcb8b
abbrev-file-name, pascal-mode

diff -r 68542ca74092 -r 90e3a3721051 .emacs-my
--- a/.emacs-my	Sun Feb 22 18:55:54 2015 +0200
+++ b/.emacs-my	Sun Feb 22 18:44:06 2015 +0200
@@ -290,6 +290,7 @@
   )
 
 (setq frame-title-format '("EMACS " system-name ": %b"))
+(setq icon-title-format '("EMACS " system-name ": %b"))
 
 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
 ;; For `mode-line-format' default value was used.
@@ -846,8 +847,12 @@
 (message "selecting/switching, creating/killing buffers, open file")
 (message "ido, ffap")
 
+;; (add-hook 'find-file-hook #'make-frame-visible)
+
 (require 'ffap)
 
+(setq find-file-existing-other-name t)
+
 (setq ido-enable-flex-matching t)
 
 (setq ido-use-filename-at-point 'guess)
@@ -1239,6 +1244,9 @@
         '(rst-level-6face ((t (:background "yellow"))) t)
         ) ) ) )
 
+;; (add-hook 'rst-mode-hook #'abbrev-mode)
+;; (remove-hook 'rst-mode-hook #'abbrev-mode)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TeX, LaTeX")
 
@@ -2331,6 +2339,17 @@
 (setq gdb-show-main t)                  ; See also (gdb-many-windows)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "completion, abbrev")
+
+(setq completion-ignore-case t)
+
+(setq abbrev-file-name (concat user-emacs-directory ".abbrev"))
+;; (quietly-read-abbrev-file)
+;; (setq default-abbrev-mode t)
+;; (setq save-abbrevs t)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TAGS, etags, ctags, GNU GLOBAL")
 
 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
@@ -2758,6 +2777,20 @@
 (when (fboundp 'subword-mode)
   (add-hook 'java-mode-hook #'subword-mode))
 
+(add-hook 'java-mode-hook #'auto-revert-mode)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "Pascal")
+
+(setq
+ pascal-indent-level 4
+ pascal-case-indent 2
+ pascal-auto-newline t
+ pascal-tab-always-indent t
+ ;; pascal-toggle-completions t
+ ;; pascal-auto-lineup nil
+ pascal-auto-endcomments t)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "ECB")