diff options
| author | Juri Linkov | 2023-03-13 19:38:28 +0200 |
|---|---|---|
| committer | Juri Linkov | 2023-03-13 19:39:32 +0200 |
| commit | 24c8b146bbce1bbaa032fbc75ab40e5d924b3fc3 (patch) | |
| tree | e2bffee14449567a8848b4d6cb2b206e97abc469 | |
| parent | 46f9e53c3da53db662bf6ab94c02e50754eeae0a (diff) | |
| download | emacs-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.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." | |||
| 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))) |