402  )

   402  )

   403 

   403 

   404 (defun my-prevent-kill-buffer ()

   404 (defun my-prevent-kill-buffer ()

   405   (if (equal (buffer-name) "*scratch*") nil t))

   405   (if (equal (buffer-name) "*scratch*") nil t))

   406 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)

   406 (add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)

   407 

   409 

   408 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   410 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   409 (message "switching, creating, selecting buffers")

   411 (message "switching, creating, selecting buffers")

   410 

   412 

   411 (iswitchb-mode 1)

   413 (iswitchb-mode 1)

  1035    )

  1037    )

  1036   (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))

  1038   (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))

  1037   (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))

  1039   (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))

  1038   (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))

  1040   (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))

  1039   (define-key global-map "\C-ca" 'org-agenda)

  1041   (define-key global-map "\C-ca" 'org-agenda)

  1041   ;; I expect that these bindings work in all mode, Org mode use own, so redefine:

  1043   ;; I expect that these bindings work in all mode, Org mode use own, so redefine:

  1042   (define-key org-mode-map [C-S-right] 'forward-word-mark)

  1044   (define-key org-mode-map [C-S-right] 'forward-word-mark)

  1043   (define-key org-mode-map [C-S-left] 'backward-word-mark)

  1045   (define-key org-mode-map [C-S-left] 'backward-word-mark)

  1044   (define-key org-mode-map [S-up] 'previous-line-mark)

  1046   (define-key org-mode-map [S-up] 'previous-line-mark)

  1045   (define-key org-mode-map [S-down] 'next-line-mark)

  1047   (define-key org-mode-map [S-down] 'next-line-mark)