diff options
| author | Juri Linkov <juri@linkov.net> | 2023-03-13 19:38:28 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2023-03-13 19:39:32 +0200 |
| commit | 24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3 (patch) | |
| tree | e2bffee14449567a8848b4d6cb2b206e97abc469 /lisp/progmodes/xref.el | |
| parent | 46f9e53c3da53db662bf6ab94c02e50754eeae0a (diff) | |
| download | emacs-24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3.tar.gz emacs-24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3.tar.bz2 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).
Diffstat (limited to 'lisp/progmodes/xref.el')
| -rw-r--r-- | lisp/progmodes/xref.el | 14 |
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." 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))) |