# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 960483521 0
# Node ID 394a5cf826d6bd51569c01400e09e637eee63d77
# Parent  fc84e59f692cecb39011cdbfe5e7eb5ba8be8d37
(create-glyph): Doc fix.

diff -r fc84e59f692c -r 394a5cf826d6 lisp/disp-table.el
--- a/lisp/disp-table.el	Thu Jun 08 16:04:30 2000 +0000
+++ b/lisp/disp-table.el	Thu Jun 08 16:58:41 2000 +0000
@@ -163,9 +163,9 @@
 	     (logior uc (lsh (face-id 'underline) 19))
 	   (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m"))))))
 
-;; Allocate a glyph code to display by sending STRING to the terminal.
 ;;;###autoload
 (defun create-glyph (string)
+  "Allocate a glyph code to display by sending STRING to the terminal."
   (if (= (length glyph-table) 65536)
       (error "No free glyph codes remain"))
   ;; Don't use slots that correspond to ASCII characters.