 
 (defun truncon ()
   (interactive)
-  (Setq truncate-lines t)
+  (setq truncate-lines t)
 )
 
 (defun truncoff ()

 (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))

  (list var var))

(defun read-lines (file)
  "Return a list of lines in FILE."
  (interactive)
  (with-temp-buffer
