File tree Expand file tree Collapse file tree 1 file changed +7
-4
lines changed Expand file tree Collapse file tree 1 file changed +7
-4
lines changed Original file line number Diff line number Diff line change @@ -2043,17 +2043,17 @@ OBJ may be a symbol or a compiled function object."
20432043 ((macrop sym) " macro" )
20442044 ((helpful--kbd-macro-p sym) keyboard-macro-button)
20452045 (t " function" )))
2046+ (path (buffer-file-name buf))
20462047 (defined
20472048 (cond
20482049 (buf
2049- (let ((path (buffer-file-name buf)))
2050- (if path
2050+ (if path
20512051 (format
20522052 " defined in %s"
20532053 (helpful--navigate-button
20542054 (file-name-nondirectory path) path pos))
20552055 (format " defined in buffer %s "
2056- (helpful--buffer-button buf pos)))))
2056+ (helpful--buffer-button buf pos))))
20572057 (primitive-p
20582058 " defined in C source code" )
20592059 ((helpful--kbd-macro-p sym) nil )
@@ -2064,7 +2064,10 @@ OBJ may be a symbol or a compiled function object."
20642064 70
20652065 (format " %s is %s %s %s%s ."
20662066 (if (symbolp sym)
2067- (helpful--format-symbol sym)
2067+ (if path
2068+ (helpful--navigate-button
2069+ (helpful--format-symbol sym) path pos)
2070+ (helpful--format-symbol sym))
20682071 " This lambda" )
20692072 (if (string-match-p
20702073 (rx bos (or " a" " e" " i" " o" " u" ))
You can’t perform that action at this time.
0 commit comments