[Emacs-diffs] master 42a851c 1/7: Merge from origin/emacs-26

[Glenn Morris]

branch: master
commit 42a851c6347bb45a2fb8acdb0d2a1ca468ecefd3
Merge: 4a7e74f ca3f0a8
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Merge from origin/emacs-26
    
    ca3f0a8 ; * etc/NEWS: Belated announcement of 2 changes made in Emacs...
    99f92da Improve documentation of 'directory-files-and-attributes'
    df8649a * lisp/gnus/message.el (message-remove-header): Don't remove ...
    b682a7e ; * etc/NEWS: Add headings for Emacs 26.2
    aa175a4 Adapt hexl-mode to native line-number display
    b8e7749 Fix example in Tramp manual
    f212fe5 Handle case where Xft is found but not XRender
    186280f * doc/misc/tramp.texi (Frequently Asked Questions): Adapt zsh...
    24ba633 Improve read-multiple-choice docstring (Bug#31628)
    
    Conflicts:
        etc/NEWS
        src/dired.c
---
 configure.ac           |  7 +++++--
 doc/lispref/files.texi |  4 ++--
 doc/misc/tramp.texi    |  5 +++++
 etc/NEWS.26            | 45 +++++++++++++++++++++++++++++++++++++++++++++
 lisp/emacs-lisp/rmc.el | 18 +++++++++---------
 lisp/gnus/message.el   |  4 +++-
 lisp/hexl.el           | 14 +++++++++++---
 src/dired.c            | 13 +++++--------
 8 files changed, 85 insertions(+), 25 deletions(-)

diff --git a/configure.ac b/configure.ac
index a11abc1..eddeb50 100644
--- a/configure.ac
+++ b/configure.ac
@@ -3257,8 +3257,8 @@ if test "${HAVE_X11}" = "yes"; then
     if test "x${with_xft}" != "xno"; then
 
       EMACS_CHECK_MODULES([XFT], [xft >= 0.13.0], [], [HAVE_XFT=no])
-      ## Because xftfont.c uses XRenderQueryExtension, we also
-      ## need to link to -lXrender.
+      ## Because xterm.c uses XRenderQueryExtension when XFT is
+      ## enabled, we also need to link to -lXrender.
       HAVE_XRENDER=no
       AC_CHECK_LIB(Xrender, XRenderQueryExtension, HAVE_XRENDER=yes)
       if test "$HAVE_XFT" != no && test "$HAVE_XRENDER" != no; then
@@ -3281,6 +3281,9 @@ if test "${HAVE_X11}" = "yes"; then
        CPPFLAGS=$OLD_CPPFLAGS
        CFLAGS=$OLD_CFLAGS
        LIBS=$OLD_LIBS
+      else
+      # Make sure XFT is disabled if we found XFT but not XRender
+       HAVE_XFT=no
       fi                          # "$HAVE_XFT" != no
     fi                            # "x${with_xft}" != "xno"
 
diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index 71402cd..e36fdbe 100644
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -2915,8 +2915,8 @@ are included.
 This is similar to @code{directory-files} in deciding which files
 to report on and how to report their names.  However, instead
 of returning a list of file names, it returns for each file a
-list @code{(@var{filename} . @var{attributes})}, where @var{attributes}
-is what @code{file-attributes} would return for that file.
+list @code{(@var{filename} @var{attributes})}, where @var{attributes}
+is what @code{file-attributes} returns for that file.
 The optional argument @var{id-format} has the same meaning as the
 corresponding argument to @code{file-attributes} (@pxref{Definition
 of file-attributes}).
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
index 38669a0..2962613 100644
--- a/doc/misc/tramp.texi
+++ b/doc/misc/tramp.texi
@@ -3425,6 +3425,11 @@ following line to @file{~/.zshrc}:
 [[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
 @end example
 
+This uses the default value of @code{tramp-terminal-type},
address@hidden"dumb"}, as value of the @env{TERM} environment variable.  If
+you want to use another value for @env{TERM}, change
address@hidden and this line accordingly.
+
 When using fish shell on remote hosts, disable fancy formatting by
 adding the following to @file{~/.config/fish/config.fish}:
 
diff --git a/etc/NEWS.26 b/etc/NEWS.26
index 812394f..6240b7d 100644
--- a/etc/NEWS.26
+++ b/etc/NEWS.26
@@ -16,6 +16,51 @@ You can narrow news to a specific version by calling 
'view-emacs-news'
 with a prefix argument or by typing C-u C-h C-n.
 
 
+* Installation Changes in Emacs 26.2
+
+---
+** Building Emacs with the '--with-xwidgets' option now requires WebKit2
+To build Emacs with xwidgets support, you will need to install the
+webkit2gtk-4.0 package; version 2.12 or later is required.
+(This change was actually made in Emacs 26.1, but was not called out
+in its NEWS.)
+
+
+* Startup Changes in Emacs 26.2
+
+
+* Changes in Emacs 26.2
+
+
+* Editing Changes in Emacs 26.2
+
+
+* Changes in Specialized Modes and Packages in Emacs 26.2
+
+** Shell mode
+
+---
+*** Shell mode buffers now have 'scroll-conservatively' set to 101.
+This is so as to better emulate the scrolling behavior of a text
+terminal when new output is added to the screen buffer.  To get back
+the previous behavior, reset 'scroll-conservatively' to zero (or any
+other value you like) in a function and add it to 'shell-mode-hook'.
+(This change was actually made in Emacs 26.1, but was not called out
+in its NEWS.)
+
+
+* New Modes and Packages in Emacs 26.2
+
+
+* Incompatible Lisp Changes in Emacs 26.2
+
+
+* Lisp Changes in Emacs 26.2
+
+
+* Changes in Emacs 26.2 on Non-Free Operating Systems
+
+
 * Installation Changes in Emacs 26.1
 
 ** By default libgnutls is now required when building Emacs.
diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 3dd3508..3197478 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -30,12 +30,12 @@
   "Ask user a multiple choice question.
 PROMPT should be a string that will be displayed as the prompt.
 
-CHOICES is an alist where the first element in each entry is a
-character to be entered, the second element is a short name for
-the entry to be displayed while prompting (if there's room, it
-might be shortened), and the third, optional entry is a longer
-explanation that will be displayed in a help buffer if the user
-requests more help.
+CHOICES is a list of (KEY NAME [DESCRIPTION]).  KEY is a
+character to be entered.  NAME is a short name for the entry to
+be displayed while prompting (if there's room, it might be
+shortened).  DESCRIPTION is an optional longer explanation that
+will be displayed in a help buffer if the user requests more
+help.
 
 This function translates user input into responses by consulting
 the bindings in `query-replace-map'; see the documentation of
@@ -46,9 +46,9 @@ perform the requested window recentering or scrolling and ask
 again.
 
 When `use-dialog-box' is t (the default), this function can pop
-up a dialog window to collect the user input. That functionality
-requires `display-popup-menus-p' to return t. Otherwise, a text
-dialog will be used.
+up a dialog window to collect the user input.  That functionality
+requires `display-popup-menus-p' to return t.  Otherwise, a
+text dialog will be used.
 
 The return value is the matching entry from the CHOICES list.
 
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7cc4d61..dde9c28 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2422,7 +2422,9 @@ Return the number of headers removed."
     (while (and (not (eobp))
                (not last))
       (if (if reverse
-             (not (looking-at regexp))
+             (and (not (looking-at regexp))
+                  ;; Don't remove things not looking like header.
+                  (looking-at "[!-9;-~]+:"))
            (looking-at regexp))
          (progn
            (cl-incf number)
diff --git a/lisp/hexl.el b/lisp/hexl.el
index d716405..2c1a7de 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -1104,8 +1104,15 @@ This function is assumed to be used as callback function 
for `hl-line-mode'."
   "Return a string ruler for Hexl mode."
   (let* ((highlight (mod (hexl-current-address) 16))
         (s (cdr (assq hexl-bits hexl-rulers)))
-        (pos 0))
+        (pos 0)
+         (lnum-width
+          (if display-line-numbers
+              (round (line-number-display-width 'columns))
+            0)))
     (set-text-properties 0 (length s) nil s)
+    (when (> lnum-width 0)
+      (setq s (concat (make-string lnum-width ?  ) s))
+      (setq pos (+ pos lnum-width)))
     ;; Turn spaces in the header into stretch specs so they work
     ;; regardless of the header-line face.
     (while (string-match "[ \t]+" s pos)
@@ -1116,10 +1123,11 @@ This function is assumed to be used as callback 
function for `hl-line-mode'."
                         s))
     ;; Highlight the current column.
     (let ( (offset (+ (* 2 highlight) (/ (* 8 highlight) hexl-bits))) )
+      (if (> lnum-width 0) (setq offset (+ offset lnum-width)))
       (put-text-property (+ 11 offset) (+ 13 offset) 'face 'highlight s))
     ;; Highlight the current ascii column
-    (put-text-property (+ (hexl-ascii-start-column) highlight 1)
-                       (+ (hexl-ascii-start-column) highlight 2)
+    (put-text-property (+ (hexl-ascii-start-column) lnum-width highlight 1)
+                       (+ (hexl-ascii-start-column) lnum-width highlight 2)
                        'face 'highlight s)
     s))
 
diff --git a/src/dired.c b/src/dired.c
index 115413d..a753b19 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -358,17 +358,14 @@ If NOSORT is non-nil, the list is not sorted--its order 
is unpredictable.
 DEFUN ("directory-files-and-attributes", Fdirectory_files_and_attributes,
        Sdirectory_files_and_attributes, 1, 5, 0,
        doc: /* Return a list of names of files and their attributes in 
DIRECTORY.
-The list returned has elements that contain the data from
-`file-attributes' for each file -- with the file name prepended.  So
-the structure of each element is
-`(FILE-NAME FILE-ATTRIBUTE1 FILE-ATTRIBUTE2 ...)'.
+Value is a list of the form:
 
-For instance, to get the size of the fourth element in a directory,
-you could say:
+  ((FILE1 FILE1-ATTRS) (FILE2 FILE2-ATTRS) ...)
 
-  (file-attribute-size (cdr (nth 3 (directory-files-and-attributes "/"))))
+where each FILEn-ATTRS is the attributes of FILEn as returned
+by `file-attributes'.
 
-There are four optional arguments:
+This function accepts four optional arguments:
 If FULL is non-nil, return absolute file names.  Otherwise return names
  that are relative to the specified directory.
 If MATCH is non-nil, mention only file names that match the regexp MATCH.