anchor.diff:  
   (define-key *global-keymap* (kbd "C-x C-i") 'insert-file)
   (define-command insert-file (filename) ("fInsert file: ")
  -  (insert-file-contents filename))
  +  (point-set (insert-file-contents (current-buffer)
  +                                   (current-point)
  +                                   filename))
  +  t)
   
   (define-key *global-keymap* (kbd "C-x s") 'save-some-buffers)
   (define-command save-some-buffers (&optional save-silently-p) ("P")
  
positive.code:              (filename (probe-file (buffer-filename buffer))))
          (set-buffer buffer)
          (when filename
            (insert-file-contents filename)
            (buffer-unmark (current-buffer)))
          (buffer-enable-undo buffer))))
    (prepare-auto-mode)
  
negative.code:     (values external-format
              end-of-line)))
  
  (defun insert-file-contents (buffer point filename)
    (multiple-value-bind (external-format end-of-line)
        (detect-external-format-from-file filename)
      (let ((output (make-buffer-output-stream buffer point nil)))
        (with-open-file (in filename :external-format external-format)
          (loop
            (multiple-value-bind (str eof-p)
                (read-line in nil)
              (cond
                (eof-p
                 (when str
                   (write-string str output))
                 (return))
                (t
                 (let ((end nil))
                   #+sbcl
                   (when (and (eq end-of-line :crlf)
                              (< 0 (length str)))
                     (setf end (1- (length str))))
                   (write-line str output :end end)))))))
        (setf (buffer-external-format buffer)
              (cons external-format end-of-line))
        (buffer-output-stream-point output))))
  
  (defun prepare-auto-mode ()
    (let* ((filename (file-namestring (buffer-filename)))
  