prettify-symbols-mode))
(defun prog-context-menu (menu)
- (when (featurep 'xref)
- (define-key-after menu [prog-separator] menu-bar-separator
- 'mark-whole-buffer)
- (define-key-after menu [xref-find-def]
- '(menu-item "Find Definition" xref-find-definitions-at-mouse
- :visible (save-excursion
- (mouse-set-point last-input-event)
- (xref-backend-identifier-at-point (xref-find-backend)))
- :help "Find definition of function or variable")
- 'prog-separator)
- (define-key-after menu [xref-pop]
- '(menu-item "Back Definition" xref-pop-marker-stack
- :visible (not (xref-marker-stack-empty-p))
- :help "Back to the position of the last search")
- 'xref-find-def))
+ (define-key-after menu [prog-separator] menu-bar-separator
+ 'mark-whole-buffer)
+ (define-key-after menu [xref-find-def]
+ '(menu-item "Find Definition" xref-find-definitions-at-mouse
+ :visible (save-excursion
+ (mouse-set-point last-input-event)
+ (xref-backend-identifier-at-point
+ (xref-find-backend)))
+ :help "Find definition of function or variable")
+ 'prog-separator)
+ (define-key-after menu [xref-pop]
+ '(menu-item "Back Definition" xref-pop-marker-stack
+ :visible (not (xref-marker-stack-empty-p))
+ :help "Back to the position of the last search")
+ 'xref-find-def)
menu)
(defvar prog-mode-map