anchor.diff:               (region-end)
                (prompt-for-file "Write Region To File: " (buffer-directory) nil nil))))
     (setf filename (expand-file-name filename))
  +  (add-newline-at-eof (point-buffer start))
     (write-region-to-file start end filename)
     (message "Wrote ~A" filename))
   
  
positive.code: 
  (export '(find-file
            read-file
            save-buffer
            changefile-name
            write-file
  
negative.code:       (switch-to-buffer buffer t nil)))
    t)
  
  (define-editor-variable Add-Newline-at-EOF-on-Writing-File nil)
  
  (defun add-newline-at-eof (buffer)
    (when (variable-value 'Add-Newline-at-EOF-on-Writing-File :default buffer)
      (unless (start-line-p (buffer-end-point buffer))
        (with-point ((p (buffer-point buffer) :left-inserting))
          (save-excursion
            (insert-character p #\newline))))))
  
  (define-key *global-keymap* "C-x C-s" 'save-buffer)
  (define-command save-buffer (&optional arg) ("P")
    (let ((buffer (current-buffer)))
      (cond
        ((and (or arg (buffer-modified-p buffer))
              (buffer-filename buffer))
         (add-newline-at-eof buffer)
         (write-to-file buffer (buffer-filename buffer))
         (buffer-unmark buffer)
         (message "Wrote ~A" (buffer-filename)))
  