# HG changeset patch # User Oleksandr Gavenko # Date 1318528157 -10800 # Node ID 77c31cb9ae75d6a28faa577cd8ad3d850e689bfd # Parent ff912b026ad2debd5546f9118b103c7c4bb45db4# Parent 7d43d5ae86fe6b509836777d276ef41d0aae7243 merged diff -r ff912b026ad2 -r 77c31cb9ae75 .emacs-my --- a/.emacs-my Mon Oct 10 10:41:54 2011 +0300 +++ b/.emacs-my Thu Oct 13 20:49:17 2011 +0300 @@ -405,6 +405,8 @@ (if (equal (buffer-name) "*scratch*") nil t)) (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer) +(define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*"))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "switching, creating, selecting buffers") @@ -1037,7 +1039,7 @@ (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) (define-key global-map "\C-ca" 'org-agenda) - (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file))) + (define-key global-map "\C-ce" (lambda nil (interactive) (find-file my-org-agenda-note-file))) ;; I expect that these bindings work in all mode, Org mode use own, so redefine: (define-key org-mode-map [C-S-right] 'forward-word-mark) (define-key org-mode-map [C-S-left] 'backward-word-mark)