diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-17 06:57:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-17 06:57:51 +0000 |
| commit | 4c3fca9c23cd47fc883a7f3feae7cdc044d27230 (patch) | |
| tree | f1f7dc042406dc0ac7c7b28eee3f9c47d131b1aa /lisp/strokes.el | |
| parent | b55c0dea6dee8944fe6697e34e82df0376f11742 (diff) | |
| download | emacs-4c3fca9c23cd47fc883a7f3feae7cdc044d27230.tar.gz | |
(strokes-list-strokes): Don't try to delete char at eob.
(strokes-unload-hook): Set as a variable with add-hook.
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index cd3e82c4d3c..57f1e3355b2 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1354,7 +1354,8 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead." :color-symbols `(("foreground" . ,(frame-parameter nil 'foreground-color)))))) - finally do (kill-region (1+ (point)) (point-max))) + finally do (unless (eobp) + (kill-region (1+ (point)) (point-max)))) (view-buffer "*Strokes List*" nil) (set (make-local-variable 'view-mode-map) (let ((map (copy-keymap view-mode-map))) @@ -1745,6 +1746,8 @@ Store XPM in buffer BUFNAME if supplied \(default is ` *strokes-xpm*'\)" (strokes-mode -1) (remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes)) +(add-hooks 'strokes-unload-hook 'strokes-unload-hook) + (run-hooks 'strokes-load-hook) (provide 'strokes) |