   (interactive)
   (find-file "~/DropBox/TaskTracking/projects.txt"))
 
-; Add a person to the Names.txt file if they aren't already in there. 
+; 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")) 
+  (if (member name (read-lines "~/DropBox/TaskTracking/Names.txt"))
       nil
     (append-file name "~/DropBox/TaskTracking/Names.txt")))
 

; Simple example of using completion with a prompt. Not useful by itself.
(defun testcomplete (text)
  (interactive (list (completing-read
		"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
