1498 |
(defsubst strokes-xpm-encode-length-as-string (length) |
(defsubst strokes-xpm-encode-length-as-string (length) |
1499 |
"Given some LENGTH in [0,62) do a fast lookup of its encoding." |
"Given some LENGTH in [0,62) do a fast lookup of its encoding." |
1500 |
(aref strokes-base64-chars length)) |
(aref strokes-base64-chars length)) |
1501 |
|
|
1502 |
(defsubst strokes-xpm-decode-char (character) |
(defsubst strokes-xpm-decode-char (character) |
1503 |
"Given a CHARACTER, do a fast lookup to find its corresponding integer value." |
"Given a CHARACTER, do a fast lookup to find its corresponding integer value." |
1504 |
(aref strokes-char-table character)) |
(aref strokes-char-table character)) |
1505 |
|
|
1506 |
(defun strokes-xpm-to-compressed-string (&optional xpm-buffer) |
(defun strokes-xpm-to-compressed-string (&optional xpm-buffer) |
1507 |
"Convert XPM in XPM-BUFFER to compressed string representing the stroke. |
"Convert XPM in XPM-BUFFER to compressed string representing the stroke. |
1508 |
XPM-BUFFER defaults to ` *strokes-xpm*'." |
XPM-BUFFER defaults to ` *strokes-xpm*'." |