--- 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")