emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 45f0fef 3/4: Merge from origin/emacs-27


From: Glenn Morris
Subject: master 45f0fef 3/4: Merge from origin/emacs-27
Date: Tue, 1 Dec 2020 10:54:53 -0500 (EST)

branch: master
commit 45f0fef718a77dfcef105fb7a44c7422b44d5db1
Merge: 23d206b 749e4b7
Author: Glenn Morris <rgm@gnu.org>
Commit: Glenn Morris <rgm@gnu.org>

    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'.
---
 lisp/dired-aux.el  | 8 +++++++-
 lisp/term/xterm.el | 3 ++-
 src/buffer.c       | 5 +++--
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 94a2bbf..2615519 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -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)
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 1a727e3..7094100 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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
diff --git a/src/buffer.c b/src/buffer.c
index 360dd34..4215acb 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]