(strokes-list-strokes): Don't try to delete char at eob.

(strokes-unload-hook): Set as a variable with add-hook.

diff --git a/lisp/strokes.el b/lisp/strokes.el
index cd3e82c4d3c83cd4cac50617f9cd141174072285..57f1e3355b2c1568224e01eb32518b5c6fa7a8fc 100644 (file)
--- 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)