--- a/.emacs-my Sat Apr 18 12:44:07 2009 +0300
+++ b/.emacs-my Sat Apr 18 12:48:54 2009 +0300
@@ -88,6 +88,8 @@
(setq view-read-only t)
+(setq frame-title-format "Emacs - %b")
+
;; ----------------------------------------------------------------------
;; Switching, creating, selecting buffers.
(iswitchb-mode 1)
@@ -112,12 +114,19 @@
;; ----------------------------------------------------------------------
;; Scrolling
-;; гладкий скроллинг с полями
-;; (setq-default scroll-conservatively 70)
-;; (setq-default scroll-preserve-screen-position 't)
-;; при перемещении точка останавливается на расстоянии i строк к границе фрейма,
-;; далее скроллиться текст
-;; (setq scroll-margin 2)
+(setq-default
+ ;; 2 - default value
+ next-screen-context-lines 2
+ ;; The number of lines to try scrolling a window by when point moves out.
+ scroll-step 1
+ scroll-conservatively 100
+ ;; при перемещении точка останавливается на расстоянии i строк к границе фрейма,
+ scroll-margin 2
+ scroll-preserve-screen-position t
+ )
+
+;; ----------------------------------------------------------------------
+;; fringe-mode
;; ----------------------------------------------------------------------
;; *Text*
@@ -201,7 +210,6 @@
(global-set-key [f7] 'occur) ; Key binding as in mc
;; frames, windows manipulation, switch buffers
-(global-set-key [C-tab] 'other-window)
(global-set-key [?\C-x right] 'next-buffer)
(global-set-key [?\C-x left] 'previous-buffer)
@@ -806,37 +814,50 @@
(setq c-echo-syntactic-information-p t)
(defconst my-c-style
- '((c-tab-always-indent . t)
+ '((c-tab-always-indent . t)
(c-comment-only-line-offset . 4)
- (c-hanging-braces-alist . ((substatement-open after)
- (brace-list-open)))
- (c-hanging-colons-alist . ((member-init-intro before)
- (inher-intro)
- (case-label after)
- (label after)
- (access-label after)))
- (c-cleanup-list . (scope-operator
- empty-defun-braces
- defun-close-semi))
- (c-offsets-alist . ((arglist-intro . ++)
- (arglist-close . c-lineup-arglist)
- (arglist-cont-nonempty . ++)
- (statement-block-intro . +)
- (inline-open . 0)
- (inexpr-class . 0)
- (statement-cont . ++)
- (label . 0)
- (substatement-open . 0)
- (case-label . 0)
- (block-open . 0)
- (comment-intro . 0)
- (knr-argdecl-intro . -)))
+ (c-hanging-braces-alist
+ . (
+ (brace-list-open)
+ (substatement-open after)
+ ))
+ (c-hanging-colons-alist
+ . (
+ (access-label after)
+ (case-label after)
+ (inher-intro)
+ (label after)
+ (member-init-intro before)
+ ))
+ (c-cleanup-list
+ . (
+ defun-close-semi
+ empty-defun-braces
+ scope-operator
+ ))
+ (c-offsets-alist
+ . (
+ (arglist-close . c-lineup-arglist)
+ (arglist-cont-nonempty . ++)
+ (arglist-intro . ++)
+ (block-open . 0)
+ (case-label . 0)
+ (comment-intro . 0)
+ (func-decl-cont . ++)
+ (inexpr-class . 0)
+ (inline-open . 0)
+ (knr-argdecl-intro . -)
+ (label . 0)
+ (statement-block-intro . +)
+ (statement-cont . ++)
+ (substatement-open . 0)
+ ))
(c-echo-syntactic-information-p . t))
"My C Programming Style")
;; (objc-mode . "my-mode") (c++-mode . "cc-mode")
-(add-hook 'c-initialization-hook (lambda ()
- (c-add-style "my" my-c-style t)))
+(add-hook 'c-mode-common-hook
+ (lambda () (c-add-style "my" my-c-style t)))
(setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (other . "my")))
;; Customizations for all modes in CC Mode.