]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/progmodes/xref.el (xref--xref-buffer-mode): Split up 'setq-local'.
authorJuri Linkov <juri@linkov.net>
Mon, 13 Mar 2023 17:38:28 +0000 (19:38 +0200)
committerJuri Linkov <juri@linkov.net>
Mon, 13 Mar 2023 17:39:32 +0000 (19:39 +0200)
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

index 38c424402a071aad59eb84fa9d0ad478b6a6029c..1493856cfdd6d7e2af4609d85aec0f5ca37c7d41 100644 (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)))