Mercurial > emacs

changeset 8920:45e6d5476e7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Jim Blandy <jimb@redhat.com>
date Mon, 19 Sep 1994 17:31:15 +0000
parents 644f69fe736e
children beb7bc6f2d5c
files lisp/disp-table.el
diffstat 1 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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