1354 |
:color-symbols |
:color-symbols |
1355 |
`(("foreground" |
`(("foreground" |
1356 |
. ,(frame-parameter nil 'foreground-color)))))) |
. ,(frame-parameter nil 'foreground-color)))))) |
1357 |
finally do (kill-region (1+ (point)) (point-max))) |
finally do (unless (eobp) |
1358 |
|
(kill-region (1+ (point)) (point-max)))) |
1359 |
(view-buffer "*Strokes List*" nil) |
(view-buffer "*Strokes List*" nil) |
1360 |
(set (make-local-variable 'view-mode-map) |
(set (make-local-variable 'view-mode-map) |
1361 |
(let ((map (copy-keymap view-mode-map))) |
(let ((map (copy-keymap view-mode-map))) |
1746 |
(strokes-mode -1) |
(strokes-mode -1) |
1747 |
(remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes)) |
(remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes)) |
1748 |
|
|
1749 |
|
(add-hooks 'strokes-unload-hook 'strokes-unload-hook) |
1750 |
|
|
1751 |
(run-hooks 'strokes-load-hook) |
(run-hooks 'strokes-load-hook) |
1752 |
(provide 'strokes) |
(provide 'strokes) |
1753 |
|
|