From c0056a9c9441b9910baeffb2be5673324c475717 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 26 Jan 2025 17:50:34 +0200 Subject: [PATCH] ; Fix last change * lisp/disp-table.el (display-table-slot) (set-display-table-slot): * etc/NEWS: * doc/lispref/display.texi (Display Tables): Fix punctuation and typos. (cherry picked from commit 8cfb4e35da4b7ffa84c521e28fd592c40209d04e) --- doc/lispref/display.texi | 4 ++-- lisp/disp-table.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi index 42cc4610572..85f9b1ffc01 100644 --- a/doc/lispref/display.texi +++ b/doc/lispref/display.texi @@ -8751,7 +8751,7 @@ the single-line tty menu separator. The glyphs for a double-line border, in the order of vertical, horizontal, down-right edge, down-left edge, up-right, and up-left edge -glyphs. The horizontal glyph is also used for the single-line tty menu +glyphs. The horizontal glyph is also used for the single-line TTY menu separator, the other glyphs are not yet used. @end table @@ -8790,7 +8790,7 @@ Valid slot name symbols are @code{truncation}, @code{wrap}, @code{box-down-right}, @code{box-down-left}, @code{box-up-right}, @code{box-up-left}, @code{box-double-vertical}, @code{box-double-horizontal}, @code{box-double-down-right}, -@code{box-double-down-left}, @code{box-double-down-left}, +@code{box-double-down-left}, @code{box-double-up-right}, @code{box-double-up-left}. @defun describe-display-table display-table diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 738887d0d00..afce22deb85 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -70,7 +70,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', `box-horizontal', `box-down-right', `box-down-left', `box-up-right', `box-up-left',`box-double-vertical', `box-double-horizontal', `box-double-down-right', `box-double-down-left', -`box-double-up-left', `box-double-up-left'," +`box-double-up-right', `box-double-up-left'," (let ((slot-number (if (numberp slot) slot (or (get slot 'display-table-slot) @@ -86,7 +86,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', `box-horizontal', `box-down-right', `box-down-left', `box-up-right', `box-up-left',`box-double-vertical', `box-double-horizontal', `box-double-down-right', `box-double-down-left', -`box-double-up-left', `box-double-up-left'," +`box-double-up-right', `box-double-up-left'," (let ((slot-number (if (numberp slot) slot (or (get slot 'display-table-slot) -- 2.39.5