anchor.diff:             (string/= (expand-file-name filename) (buffer-filename buf)))
         (let ((uniq-name
                (uniq-buffer-name
  -              (file-name-nondirectory filename))))
  +              (file-namestring filename))))
           (file-open filename)
           (rename-buffer uniq-name)))
        (t
  
positive.code:     t))
  
  (defun prepare-auto-mode ()
    (let* ((filename (file-name-nondirectory (buffer-filename)))
           (elt (find-if #'(lambda (elt)
                             (ppcre:scan (car elt) filename))
                         *auto-mode-alist*)))
  
negative.code:           (return-from scan-file-property-list))))))
  
  (defun file-open (path)
    (let ((name (file-namestring path))
          (absolute-path (expand-file-name path)))
      (when (and (string/= "" name)
                 (not (cl-fad:directory-exists-p absolute-path)))
  