Function: marginalia--buffer-file

marginalia--buffer-file is a byte-compiled function defined in marginalia.el.

Signature

(marginalia--buffer-file BUFFER)

Documentation

Return the file or process name of BUFFER.

Source Code

;; Defined in ~/.emacs.d/elpa/marginalia-20260724.810/marginalia.el
(defun marginalia--buffer-file (buffer)
  "Return the file or process name of BUFFER."
  (if-let* ((proc (get-buffer-process buffer)))
      (format "(%s %s) %s"
              proc (process-status proc)
              (marginalia--abbreviate-file-name (buffer-local-value 'default-directory buffer)))
    (marginalia--abbreviate-file-name
     (or (cond
          ;; see ibuffer-buffer-file-name
          ((buffer-file-name buffer))
          ((when-let* ((dir (and (local-variable-p 'dired-directory buffer)
                                 (buffer-local-value 'dired-directory buffer))))
             (expand-file-name (if (stringp dir) dir (car dir))
                               (buffer-local-value 'default-directory buffer))))
          ((local-variable-p 'list-buffers-directory buffer)
           (buffer-local-value 'list-buffers-directory buffer)))
         ""))))