(create-glyph): Doc fix.

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index a335d15241ca7050901c3431944365999e2025e7..1acfc8ab8fea6980efcc938071d9b718948c7d7c 100644 (file)
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -163,9 +163,9 @@ X frame."
             (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.