Give appropriate name to backlink button object

This commit is contained in:
Protesilaos Stavrou 2022-06-19 16:46:17 +03:00
parent 855c677724
commit efd9d537cd
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -192,7 +192,7 @@ format is always [[denote:IDENTIFIER]]."
;;;; Backlinks' buffer
(define-button-type 'denote-link-find-file
(define-button-type 'denote-link-backlink-button
'follow-link t
'action #'denote-link--find-file
'face 'unspecified)
@ -230,7 +230,7 @@ Use optional TITLE for a prettier heading."
(insert (format "%s\n%s\n\n" heading (make-string l ?-))))
(mapc (lambda (f)
(insert (file-name-nondirectory f))
(make-button (point-at-bol) (point-at-eol) :type 'denote-link-find-file)
(make-button (point-at-bol) (point-at-eol) :type 'denote-link-backlink-button)
(newline))
files)
(goto-char (point-min))