aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2023-03-13 19:38:28 +0200
committerJuri Linkov2023-03-13 19:39:32 +0200
commit24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3 (patch)
treee2bffee14449567a8848b4d6cb2b206e97abc469
parent46f9e53c3da53db662bf6ab94c02e50754eeae0a (diff)
downloademacs-24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3.tar.gz
emacs-24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3.zip
* 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).
-rw-r--r--lisp/progmodes/xref.el14
1 files 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."
981 map)) 981 map))
982 982
983(declare-function outline-search-text-property "outline" 983(declare-function outline-search-text-property "outline"
984 (property &optional value bound move backward looking-at)) 984 (property &optional value bound move backward looking-at))
985 985
986(define-derived-mode xref--xref-buffer-mode special-mode "XREF" 986(define-derived-mode xref--xref-buffer-mode special-mode "XREF"
987 "Mode for displaying cross-references." 987 "Mode for displaying cross-references."
@@ -993,14 +993,14 @@ point."
993 (setq imenu-extract-index-name-function 993 (setq imenu-extract-index-name-function
994 #'xref--imenu-extract-index-name) 994 #'xref--imenu-extract-index-name)
995 (setq-local add-log-current-defun-function 995 (setq-local add-log-current-defun-function
996 #'xref--add-log-current-defun) 996 #'xref--add-log-current-defun)
997 (setq-local outline-minor-mode-cycle t 997 (setq-local outline-minor-mode-cycle t)
998 outline-minor-mode-use-buttons 'insert 998 (setq-local outline-minor-mode-use-buttons 'insert)
999 outline-search-function 999 (setq-local outline-search-function
1000 (lambda (&optional bound move backward looking-at) 1000 (lambda (&optional bound move backward looking-at)
1001 (outline-search-text-property 1001 (outline-search-text-property
1002 'xref-group nil bound move backward looking-at)) 1002 'xref-group nil bound move backward looking-at)))
1003 outline-level (lambda () 1))) 1003 (setq-local outline-level (lambda () 1)))
1004 1004
1005(defvar xref--transient-buffer-mode-map 1005(defvar xref--transient-buffer-mode-map
1006 (let ((map (make-sparse-keymap))) 1006 (let ((map (make-sparse-keymap)))