 ; Simple example of using completion with a prompt. Not useful by itself.
 (defun testcomplete (text)
   (interactive (list (completing-read
-		"Complete a foo: " 
+		"Complete a foo: "
 		'(("foobar1" 1) ("barfoo" 2) ("foobaz" 3) ("foobar2" 4))
 		nil t "fo")))
   (if (stringp text) (print "Text is a tring"))

        (save-buffers-kill-emacs))
    (message "Canceled exit")))

(when window-system 
  (global-set-key (kbd "C-x C-c") 'ask-before-closing))

;;; Copied from sample.init.el

  (interactive)
  (find-file "~/DropBox/TaskTracking/projects.txt"))

; Add a person to the Names.txt file if they aren't already in there.
(defun addperson (name)
  (if (member name (read-lines "~/DropBox/TaskTracking/Names.txt"))
      nil
    (append-file name "~/DropBox/TaskTracking/Names.txt")))

