procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/xref.el (xref--xref-buffer-mode): Split up 'setq-local'.

Browse source 
xref.el needs to support 26.1, but an arbitrary number of variables
in 'setq-local' was added in Emacs 27.1 (bug#62162).
This commit is contained in:
Juri Linkov 2023-03-13 19:38:28 +02:00
parent 46f9e53c3d
commit 24c8b146bb
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/xref.el
View file

@ -981,7 +981,7 @@ point."
map))
(declare-function outline-search-text-property "outline"
(property &optional value bound move backward looking-at))
(property &optional value bound move backward looking-at))
(define-derived-mode xref--xref-buffer-mode special-mode "XREF"
"Mode for displaying cross-references."
@ -993,14 +993,14 @@ point."
(setq imenu-extract-index-name-function
#'xref--imenu-extract-index-name)
(setq-local add-log-current-defun-function
#'xref--add-log-current-defun)
(setq-local outline-minor-mode-cycle t
outline-minor-mode-use-buttons 'insert
outline-search-function
#'xref--add-log-current-defun)
(setq-local outline-minor-mode-cycle t)
(setq-local outline-minor-mode-use-buttons 'insert)
(setq-local outline-search-function
(lambda (&optional bound move backward looking-at)
(outline-search-text-property
'xref-group nil bound move backward looking-at))
outline-level (lambda () 1)))
'xref-group nil bound move backward looking-at)))
(setq-local outline-level (lambda () 1)))
(defvar xref--transient-buffer-mode-map
(let ((map (make-sparse-keymap)))