equal
deleted
inserted
replaced
195 "List of text modes.") |
195 "List of text modes.") |
196 |
196 |
197 (defvar my-text-mode-hook-list |
197 (defvar my-text-mode-hook-list |
198 (my-mode2hook my-text-mode-list) |
198 (my-mode2hook my-text-mode-list) |
199 "List of text mode hooks.") |
199 "List of text mode hooks.") |
|
200 |
|
201 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
202 (message "package, elpa") |
|
203 |
|
204 ;; (setq package-enable-at-startup t) |
|
205 (package-initialize) |
|
206 |
|
207 (setq package-archives |
|
208 '( |
|
209 ("elpa" . "http://tromey.com/elpa/") |
|
210 ("gnu" . "http://elpa.gnu.org/packages/") |
|
211 ("marmalade" . "http://marmalade-repo.org/packages/") |
|
212 ("melpa" . "http://melpa.milkbox.net/packages/") |
|
213 )) |
200 |
214 |
201 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
215 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
202 (message "appearance") |
216 (message "appearance") |
203 |
217 |
204 ;; To maximize frame on full screen, not work with Windows Emacs 21.4. |
218 ;; To maximize frame on full screen, not work with Windows Emacs 21.4. |
518 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
532 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
519 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
533 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
520 |
534 |
521 (define-key global-map "\C-v" nil) |
535 (define-key global-map "\C-v" nil) |
522 (define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
536 (define-key global-map "\C-vt" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
523 |
|
524 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
525 (message "package, elpa") |
|
526 |
|
527 ;; (setq package-enable-at-startup t) |
|
528 (package-initialize) |
|
529 |
|
530 (setq package-archives |
|
531 '( |
|
532 ("elpa" . "http://tromey.com/elpa/") |
|
533 ("gnu" . "http://elpa.gnu.org/packages/") |
|
534 ("marmalade" . "http://marmalade-repo.org/packages/") |
|
535 ("melpa" . "http://melpa.milkbox.net/packages/") |
|
536 )) |
|
537 |
537 |
538 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
538 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
539 (message "scrolling") |
539 (message "scrolling") |
540 |
540 |
541 (defvar my-scroll-margin 4) |
541 (defvar my-scroll-margin 4) |