equal
deleted
inserted
replaced
471 (defun my-prevent-kill-buffer () |
471 (defun my-prevent-kill-buffer () |
472 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
472 (if (member (buffer-name) '("*scratch*" "NOTE.org")) nil t)) |
473 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
473 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) |
474 |
474 |
475 (define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
475 (define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) |
|
476 |
|
477 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
478 (message "package, elpa") |
|
479 |
|
480 (setq package-archives |
|
481 '( |
|
482 ("ELPA" . "http://tromey.com/elpa/") |
|
483 ("gnu" . "http://elpa.gnu.org/packages/") |
|
484 ("marmalade" . "http://marmalade-repo.org/packages/") |
|
485 ("melpa" . "http://melpa.milkbox.net/packages/") |
|
486 )) |
476 |
487 |
477 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
488 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
478 (message "switching, creating, selecting buffers") |
489 (message "switching, creating, selecting buffers") |
479 |
490 |
480 (iswitchb-mode 1) |
491 (iswitchb-mode 1) |