src/charset.lisp

   1 (in-package "LICE")
   2
   3 (defun define-charset ()
   4   (error "unimplemented define-charset"))
   5
   6 (defun generic-character-list ()
   7   (error "unimplemented generic-character-list"))
   8
   9 (defun get-unused-iso-final-char ()
  10   (error "unimplemented get-unused-iso-final-char"))
  11
  12 (defun declare-equiv-charset ()
  13   (error "unimplemented declare-equiv-charset"))
  14
  15 (defun find-charset-region ()
  16   (error "unimplemented find-charset-region"))
  17
  18 (defun find-charset-string ()
  19   (error "unimplemented find-charset-string"))
  20
  21 (defun make-char-internal ()
  22   (error "unimplemented make-char-internal"))
  23
  24 (defun split-char ()
  25   (error "unimplemented split-char"))
  26
  27 (defun char-charset ()
  28   (error "unimplemented char-charset"))
  29
  30 (defun charset-after (&optional (pos (pt)))
  31   "Return charset of a character in the current buffer at position POS.
  32 If POS is nil, it defauls to the current point.
  33 If POS is out of range, the value is nil."
  34   (error "unimplemented charset-after"))
  35
  36 (defun iso-charset ()
  37   (error "unimplemented iso-charset"))
  38
  39 (defun char-valid-p ()
  40   (error "unimplemented char-valid-p"))
  41
  42 (defun unibyte-char-to-multibyte ()
  43   (error "unimplemented unibyte-char-to-multibyte"))
  44
  45 (defun multibyte-char-to-unibyte ()
  46   (error "unimplemented multibyte-char-to-unibyte"))
  47
  48 (defun char-bytes ()
  49   (error "unimplemented char-bytes"))
  50
  51 (defun char-width ()
  52   (error "unimplemented char-width"))
  53
  54 (defun string-width ()
  55   (error "unimplemented" string-width))
  56
  57 (defun char-direction ()
  58   (error "unimplemented char-direction"))
  59
  60 ;; (defun string ()
  61 ;;   (error (format nil "unimplemented ~a"))
  62
  63 (defun setup-special-charsets ()
  64   (error "unimplemented setup-special-charsets"))