From 24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 13 Mar 2023 19:38:28 +0200 Subject: [PATCH] * lisp/progmodes/xref.el (xref--xref-buffer-mode): Split up 'setq-local'. xref.el needs to support 26.1, but an arbitrary number of variables in 'setq-local' was added in Emacs 27.1 (bug#62162). --- lisp/progmodes/xref.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 38c424402a0..1493856cfdd 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -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))) -- 2.39.2