diff options
| author | David Aspinall | 2008-01-30 12:53:16 +0000 |
|---|---|---|
| committer | David Aspinall | 2008-01-30 12:53:16 +0000 |
| commit | a402566919a84e57aa1adf5023aa5e2b0aaeb251 (patch) | |
| tree | ce37b4e1c2a3e07cf9bf655f4eb1511d29cc0db3 /lib | |
| parent | 2990bdddc46430fc99d75c9bde4e2634c0b45bbd (diff) | |
Add docstrings
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicode-tokens.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el index bda53b52..46536f3e 100644 --- a/lib/unicode-tokens.el +++ b/lib/unicode-tokens.el @@ -190,8 +190,8 @@ data if you want to preserve them." (= (point) here)))))) (defun unicode-tokens-electric-suffix () - "Detect tokens and replace them with the appropriate char. -This can be bound to the character ending `unicode-tokens-token-suffix' + "Detect tokens and replace them with the appropriate string. +This is bound to the character ending `unicode-tokens-token-suffix' if there is such a unique character." (interactive) (let ((pos (point)) @@ -238,6 +238,8 @@ if there is such a unique character." (defvar unicode-tokens-rotate-glyph-last-char nil) (defun unicode-tokens-rotate-glyph-forward (&optional n) + "Rotate the character before point in the current code page, by N steps. +If no character is found at the new codepoint, no change is made." (interactive "p") (if (> (point) (point-min)) (let* ((codept (or (if (or (eq last-command @@ -264,6 +266,8 @@ if there is such a unique character." (setq unicode-tokens-rotate-glyph-last-char newcode))))) (defun unicode-tokens-rotate-glyph-backward (&optional n) + "Rotate the character before point in the current code page, by -N steps. +If no character is found at the new codepoint, no change is made." (interactive "p") (unicode-tokens-rotate-glyph-forward (if n (- n) -1))) |