Function: lgstring-remove-glyph

lgstring-remove-glyph is a byte-compiled function defined in composite.el.gz.

Signature

(lgstring-remove-glyph GSTRING IDX)

Source Code

;; Defined in /usr/src/emacs/lisp/composite.el.gz
;; Remove glyph at IDX from GSTRING.
(defun lgstring-remove-glyph (gstring idx)
  (setq gstring (copy-sequence gstring))
  (lgstring-set-id gstring nil)
  (let ((len (length gstring)))
    (setq idx (+ idx 3))
    (while (< idx len)
      (aset gstring (1- idx) (aref gstring idx))
      (setq idx (1+ idx)))
    (aset gstring (1- len) nil))
  gstring)