Function: magit--safe-default-directory

magit--safe-default-directory is a byte-compiled function defined in magit-git.el.

Signature

(magit--safe-default-directory &optional FILE)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-git.el
;;; Repository
;;;; Repository Locations

(defun magit--safe-default-directory (&optional file)
  (catch 'unsafe-default-dir
    (let ((dir (file-name-as-directory
                (expand-file-name (or file default-directory))))
          (previous nil))
      (while (not (file-accessible-directory-p dir))
        (setq dir (file-name-directory (directory-file-name dir)))
        (when (equal dir previous)
          (throw 'unsafe-default-dir nil))
        (setq previous dir))
      dir)))