; 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)

diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 42cc46105726bf05fd273b7098e6f29b125ba0a3..85f9b1ffc01ed6a5784e4f5b123cdfbdc9f0f0a5 100644 (file)
--- 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 738887d0d00d1de81d7910c2e9b1befcffd48d58..afce22deb85446fd76ac3522ea348efb9d1adf4f 100644 (file)
--- 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)