# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 779995875 0
# Node ID 45e6d5476e7fe08b47b0274fe4682820d3d6c327
# Parent  644f69fe736e8df4593a8b70394afec530c35b86
* disp-table.el: Add support for new window border display table
element.
(describe-display-table): Describe the window border glyph.
(display-table-len): New constant.
(make-display-table, standard-display-8bit,
standard-display-default, standard-display-ascii,
standard-display-g1, standard-display-graphic,
standard-display-underline): Use display-table-len, instead of
hard-coding the display table length.

diff -r 644f69fe736e -r 45e6d5476e7f lisp/disp-table.el
--- a/lisp/disp-table.el	Mon Sep 19 17:28:37 1994 +0000
+++ b/lisp/disp-table.el	Mon Sep 19 17:31:15 1994 +0000
@@ -24,6 +24,9 @@
 
 ;;; Code:
 
+(defconst display-table-len 262
+  "The proper length of a display table.")
+
 (defun describe-display-table (dt)
   "Describe the display table DT in a help buffer."
   (with-output-to-temp-buffer "*Help*"
@@ -37,6 +40,8 @@
     (prin1 (aref dt 259))
     (princ "\nSelective display glyph sequence: ")
     (prin1 (aref dt 260))
+    (princ "\nVertical window border glyph: ")
+    (prin1 (aref dt 261))
     (princ "\nCharacter display glyph sequences:\n")
     (save-excursion
       (set-buffer standard-output)
@@ -63,7 +68,7 @@
 ;;;###autoload
 (defun make-display-table ()
   "Return a new, empty display table."
-  (make-vector 261 nil))
+  (make-vector display-table-len nil))
 
 ;;;###autoload
 (defun standard-display-8bit (l h)
@@ -72,7 +77,7 @@
     (if (and (>= l ?\ ) (< l 127))
 	(if standard-display-table (aset standard-display-table l nil))
       (or standard-display-table
-	  (setq standard-display-table (make-vector 261 nil)))
+	  (setq standard-display-table (make-vector display-table-len nil)))
       (aset standard-display-table l (vector l)))
     (setq l (1+ l))))
 
@@ -83,7 +88,7 @@
     (if (and (>= l ?\ ) (< l 127))
 	(if standard-display-table (aset standard-display-table l nil))
       (or standard-display-table
-	  (setq standard-display-table (make-vector 261 nil)))
+	  (setq standard-display-table (make-vector display-table-len nil)))
       (aset standard-display-table l nil))
     (setq l (1+ l))))
 
@@ -95,7 +100,7 @@
   (if window-system
       (error "Cannot use string glyphs in a windowing system"))
   (or standard-display-table
-      (setq standard-display-table (make-vector 261 nil)))
+      (setq standard-display-table (make-vector display-table-len nil)))
   (aset standard-display-table c (apply 'vector (append s nil))))
 
 ;;;###autoload
@@ -106,7 +111,7 @@
   (if window-system
       (error "Cannot use string glyphs in a windowing system"))
   (or standard-display-table
-      (setq standard-display-table (make-vector 261 nil)))
+      (setq standard-display-table (make-vector display-table-len nil)))
   (aset standard-display-table c
 	(vector (create-glyph (concat "\016" (char-to-string sc) "\017")))))
 
@@ -118,7 +123,7 @@
   (if window-system
       (error "Cannot use string glyphs in a windowing system"))
   (or standard-display-table
-      (setq standard-display-table (make-vector 261 nil)))
+      (setq standard-display-table (make-vector display-table-len nil)))
   (aset standard-display-table c
 	(vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B")))))
 
@@ -127,7 +132,7 @@
   "Display character C as character UC plus underlining."
   (if window-system (require 'faces))
   (or standard-display-table
-      (setq standard-display-table (make-vector 261 nil)))
+      (setq standard-display-table (make-vector display-table-len nil)))
   (aset standard-display-table c
 	(vector 
 	 (if window-system