[elpa] externals/marginalia ae454a2aa0: marginalia-annotate-symbol: Add symbol-file

[ELPA Syncer]

branch: externals/marginalia
commit ae454a2aa0c5d85b5e151938b310e7d16538157d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia-annotate-symbol: Add symbol-file
---
 CHANGELOG.org | 1 +
 marginalia.el | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 1dc9b4bed5..31b388321d 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -7,6 +7,7 @@
 - =marginalia-classify-by-prompt=: Use case-insensitive matching.
 - =marginalia-annotate-symbol=: Additional symbol classes. Use =M= for module
   functions, =P= for primitives and =S= for special forms.
+- =marginalia-annotate-symbol=: Add =symbol-file= column.
 - =marginalia-cycle=: Add =completion-predicate= to display command only in
   recursive minibuffers.
 
diff --git a/marginalia.el b/marginalia.el
index c4cffc6813..1494844f34 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -574,7 +574,9 @@ t cl-type"
        ((fboundp sym) (marginalia--function-doc sym))
        ((facep sym) (documentation-property sym 'face-documentation))
        (t (documentation-property sym 'variable-documentation)))
-      :truncate 1.0 :face 'marginalia-documentation))))
+      :truncate 1.0 :face 'marginalia-documentation)
+     ((abbreviate-file-name (or (symbol-file sym) ""))
+      :truncate -0.5 :face 'marginalia-file-name))))
 
 (defun marginalia-annotate-command (cand)
   "Annotate command CAND with its documentation string.