Merge from origin/emacs-27

749e4b7e0b Reset xref-show-xrefs-function temporarily
3e6525d69f Don't show in 'view-lossage' responses to xterm feature qu...
9fbff9c35c ; * src/buffer.c: Fix comment describing 'buffer_defaults'.
This commit is contained in:
Glenn Morris 2020-12-01 07:50:12 -08:00
commit 45f0fef718
3 changed files with 12 additions and 4 deletions

View file

@ -3140,7 +3140,13 @@ REGEXP should use constructs supported by your local `grep' command."
(query-replace-read-args
"Query replace regexp in marked files" t t)))
(list (nth 0 common) (nth 1 common))))
(with-current-buffer (dired-do-find-regexp from)
(require 'xref)
(defvar xref-show-xrefs-function)
(with-current-buffer
(let ((xref-show-xrefs-function
;; Some future-proofing (bug#44905).
(eval (car (get 'xref-show-xrefs-function 'standard-value)))))
(dired-do-find-regexp from))
(xref-query-replace-in-results from to)))
(defun dired-nondirectory-p (file)

View file

@ -767,7 +767,8 @@ Can be nil to mean \"no timeout\".")
By not redisplaying right away for xterm queries, we can avoid
unsightly flashing during initialization. Give up and redisplay
anyway if we've been waiting a little while."
(let ((start-time (current-time)))
(let ((start-time (current-time))
(inhibit--record-char t))
(or (let ((inhibit-redisplay t))
(read-event nil nil xterm-query-redisplay-timeout))
(read-event nil nil

View file

@ -62,8 +62,9 @@ struct buffer buffer_defaults;
/* This structure marks which slots in a buffer have corresponding
default values in buffer_defaults.
Each such slot has a nonzero value in this structure.
The value has only one nonzero bit.
Each such slot has a value in this structure.
The value is a positive Lisp integer that must be smaller than
MAX_PER_BUFFER_VARS.
When a buffer has its own local value for a slot,
the entry for that slot (found in the same slot in this structure)