.emacs-my
changeset 151 0b6f4adf5096
parent 150 8716dde9dd03
child 152 907336e50d23
equal deleted inserted replaced
150:8716dde9dd03 151:0b6f4adf5096
    25 
    25 
    26 ;; ======================================================================
    26 ;; ======================================================================
    27 ;; Настройка внешнего вида редактора.
    27 ;; Настройка внешнего вида редактора.
    28 ;; View.
    28 ;; View.
    29 
    29 
    30 (menu-bar-mode -1)                     ; 1/-1
    30 (menu-bar-mode -1)
    31 (tool-bar-mode -1)                     ; 1/-1
    31 (tool-bar-mode -1)
    32 (tooltip-mode -1)                      ; 1/-1
    32 (tooltip-mode -1)
       
    33 (scroll-bar-mode 1)
    33 
    34 
    34 (if window-system
    35 (if window-system
    35     ;; Для X-window и Win
    36     ;; Для X-window и Win
    36     (progn
    37     (progn
    37       ;; size of emacs area and position
    38       ;; size of emacs area and position
    73 ;; (desktop-read)
    74 ;; (desktop-read)
    74 
    75 
    75 ;; ======================================================================
    76 ;; ======================================================================
    76 ;; Standart settings
    77 ;; Standart settings
    77 
    78 
    78 ;прикрепляет к каждому окну полоску прокрутки t/nil
       
    79 (scroll-bar-mode t)
       
    80 
       
    81 ;; удаляем строку целиком
       
    82 (setq kill-whole-line t)
    79 (setq kill-whole-line t)
    83 
    80 
    84 ;; show column & line numbers in status bar
    81 ;; show column & line numbers in status bar
    85 (setq column-number-mode t)
    82 (setq column-number-mode t)
    86 (setq line-number-mode t)
    83 (setq line-number-mode t)
   186 ;; Mouse
   183 ;; Mouse
   187 
   184 
   188 ;; Scroll Bar gets dragged by mouse butn 1
   185 ;; Scroll Bar gets dragged by mouse butn 1
   189 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
   186 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
   190 ;; Paste at point NOT at cursor
   187 ;; Paste at point NOT at cursor
   191 (setq mouse-yank-at-point 't)
   188 (setq mouse-yank-at-point t)
   192 (mouse-wheel-mode 1)
   189 (mouse-wheel-mode 1)
   193 
   190 
   194 ;; ----------------------------------------------------------------------
   191 ;; ----------------------------------------------------------------------
   195 ;; Key Binding (Short-keys).
   192 ;; Key Binding (Short-keys).
   196 
   193