  (save-buffer)
  (kill-buffer nil))
 
-
-
-(defun list-people ()
-  "Read in TaskTracking/Names.txt to use for completions."
-  (interactive)
-  (mapcar 'double-entry (read-lines "~/DropBox/TaskTracking/Names.txt")))
-
-(defun readnames ()
-  "Read the list of names that we've saved."
-  (interactive)
-;  (setq mybuffer (find-file-noselect "~/DropBox/TaskTracking/Names.txt"))
-  (goto-char (point-min) (find-file-noselect "~/DropBox/TaskTracking/Names.txt"))
-  (setq names (read (find-file-noselect "~/DropBox/TaskTracking/Names.txt")))
-  (kill-buffer (find-file-noselect "~/DropBox/TaskTracking/Names.txt"))
-  names
-)
-
 (defun alist-from-list (lst)
   "Make a simple alist from a list LST.  car is cdr for each entry."
   (mapcar #'(lambda (x) (list x x)) lst))


(defun truncon ()
  (interactive)
  (Setq truncate-lines t)
)

(defun truncoff ()

(eval-after-load "flycheck"
  '(add-hook 'flycheck-mode-hook 'flycheck-color-mode-line-mode))

;;; .emacs ends here
(custom-set-variables
 ;; custom-set-variables was added by Custom.
