.emacs-my
changeset 1220 90e3a3721051
parent 1218 53eaec665fcf
child 1221 940024bc72ee
equal deleted inserted replaced
1219:68542ca74092 1220:90e3a3721051
   288   (setq split-height-threshold nil)
   288   (setq split-height-threshold nil)
   289   (setq split-width-threshold nil)
   289   (setq split-width-threshold nil)
   290   )
   290   )
   291 
   291 
   292 (setq frame-title-format '("EMACS " system-name ": %b"))
   292 (setq frame-title-format '("EMACS " system-name ": %b"))
       
   293 (setq icon-title-format '("EMACS " system-name ": %b"))
   293 
   294 
   294 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
   295 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
   295 ;; For `mode-line-format' default value was used.
   296 ;; For `mode-line-format' default value was used.
   296 (setq-default header-line-format nil)
   297 (setq-default header-line-format nil)
   297 
   298 
   844 
   845 
   845 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   846 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   846 (message "selecting/switching, creating/killing buffers, open file")
   847 (message "selecting/switching, creating/killing buffers, open file")
   847 (message "ido, ffap")
   848 (message "ido, ffap")
   848 
   849 
       
   850 ;; (add-hook 'find-file-hook #'make-frame-visible)
       
   851 
   849 (require 'ffap)
   852 (require 'ffap)
       
   853 
       
   854 (setq find-file-existing-other-name t)
   850 
   855 
   851 (setq ido-enable-flex-matching t)
   856 (setq ido-enable-flex-matching t)
   852 
   857 
   853 (setq ido-use-filename-at-point 'guess)
   858 (setq ido-use-filename-at-point 'guess)
   854 (setq ido-use-url-at-point t)
   859 (setq ido-use-url-at-point t)
  1236         '(rst-level-3-face ((t (:background "yellow"))) t)
  1241         '(rst-level-3-face ((t (:background "yellow"))) t)
  1237         '(rst-level-4-face ((t (:background "yellow"))) t)
  1242         '(rst-level-4-face ((t (:background "yellow"))) t)
  1238         '(rst-level-5-face ((t (:background "yellow"))) t)
  1243         '(rst-level-5-face ((t (:background "yellow"))) t)
  1239         '(rst-level-6face ((t (:background "yellow"))) t)
  1244         '(rst-level-6face ((t (:background "yellow"))) t)
  1240         ) ) ) )
  1245         ) ) ) )
       
  1246 
       
  1247 ;; (add-hook 'rst-mode-hook #'abbrev-mode)
       
  1248 ;; (remove-hook 'rst-mode-hook #'abbrev-mode)
  1241 
  1249 
  1242 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1250 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1243 (message "TeX, LaTeX")
  1251 (message "TeX, LaTeX")
  1244 
  1252 
  1245 (setq tex-run-command "initex")
  1253 (setq tex-run-command "initex")
  2327 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2335 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2328 (message "gdb, gud")
  2336 (message "gdb, gud")
  2329 ;; Use C-x SPACE to set breakpoint in source file.
  2337 ;; Use C-x SPACE to set breakpoint in source file.
  2330 
  2338 
  2331 (setq gdb-show-main t)                  ; See also (gdb-many-windows)
  2339 (setq gdb-show-main t)                  ; See also (gdb-many-windows)
       
  2340 
       
  2341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  2342 (message "completion, abbrev")
       
  2343 
       
  2344 (setq completion-ignore-case t)
       
  2345 
       
  2346 (setq abbrev-file-name (concat user-emacs-directory ".abbrev"))
       
  2347 ;; (quietly-read-abbrev-file)
       
  2348 ;; (setq default-abbrev-mode t)
       
  2349 ;; (setq save-abbrevs t)
       
  2350 
  2332 
  2351 
  2333 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2352 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2334 (message "TAGS, etags, ctags, GNU GLOBAL")
  2353 (message "TAGS, etags, ctags, GNU GLOBAL")
  2335 
  2354 
  2336 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
  2355 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
  2756 (message "java")
  2775 (message "java")
  2757 
  2776 
  2758 (when (fboundp 'subword-mode)
  2777 (when (fboundp 'subword-mode)
  2759   (add-hook 'java-mode-hook #'subword-mode))
  2778   (add-hook 'java-mode-hook #'subword-mode))
  2760 
  2779 
       
  2780 (add-hook 'java-mode-hook #'auto-revert-mode)
       
  2781 
       
  2782 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  2783 (message "Pascal")
       
  2784 
       
  2785 (setq
       
  2786  pascal-indent-level 4
       
  2787  pascal-case-indent 2
       
  2788  pascal-auto-newline t
       
  2789  pascal-tab-always-indent t
       
  2790  ;; pascal-toggle-completions t
       
  2791  ;; pascal-auto-lineup nil
       
  2792  pascal-auto-endcomments t)
       
  2793 
  2761 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2794 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2762 (message "ECB")
  2795 (message "ECB")
  2763 
  2796 
  2764 (setq ecb-tip-of-the-day nil)
  2797 (setq ecb-tip-of-the-day nil)
  2765 
  2798