From 06b7c53927b983764a7174b7edbb51832b21fbc8 Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Sun, 20 Feb 2022 13:23:03 +0100 Subject: [PATCH] Add more bookmark types * lisp/gnus/gnus-sum.el (gnus-summary-bookmark-jump): * lisp/man.el (Man-bookmark-jump): Mark the bookmark type (bug#54030). --- lisp/gnus/gnus-sum.el | 2 ++ lisp/man.el | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 8fb07d5905c..1be5a48068c 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -13278,6 +13278,8 @@ BOOKMARK is a bookmark name or a bookmark record." (buffer . ,(current-buffer)) . ,(bookmark-get-bookmark-record bookmark))))) +(put 'gnus-summary-bookmark-jump 'bookmark-handler-type "Gnus") + (gnus-summary-make-all-marking-commands) (provide 'gnus-sum) diff --git a/lisp/man.el b/lisp/man.el index a53a696c313..951e0ef9add 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1976,6 +1976,8 @@ Uses `Man-name-local-regexp'." (bookmark-default-handler `("" (buffer . ,buf) . ,(bookmark-get-bookmark-record bookmark))))) +(put 'Man-bookmark-jump 'bookmark-handler-type "Man") + ;;; Mouse support (defun Man-at-mouse (e) "Open man manual at point." -- 2.39.5