Function: strokes-compose-complex-stroke

strokes-compose-complex-stroke is an autoloaded, interactive and byte-compiled function defined in strokes.el.gz.

Signature

(strokes-compose-complex-stroke)

Documentation

Read a complex stroke and insert its glyph into the current buffer.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/strokes.el.gz
;;;###autoload
(defun strokes-compose-complex-stroke ()
  ;; ### NOTE !!! ###
  ;; Even though we don't have lexical scoping, it's somewhat ugly how I
  ;; pass around variables in the global name space.  I can/should
  ;; change this.
  "Read a complex stroke and insert its glyph into the current buffer."
  (interactive "*")
  (let ((strokes-grid-resolution 33))
    (strokes-read-complex-stroke)
    (strokes-xpm-for-stroke nil " *strokes-xpm*" t)
    (insert (strokes-xpm-to-compressed-string " *strokes-xpm*"))
    (strokes-decode-buffer)
    ;; strokes-decode-buffer does a save-excursion.
    (forward-char)))