[Emacs-diffs] Changes to emacs/lisp/strokes.el

[Richard M . Stallman]

Index: emacs/lisp/strokes.el
diff -c emacs/lisp/strokes.el:1.17 emacs/lisp/strokes.el:1.18
*** emacs/lisp/strokes.el:1.17  Sat Mar 27 11:33:37 2004
--- emacs/lisp/strokes.el       Sun Oct 17 06:57:51 2004
***************
*** 1354,1360 ****
                           :color-symbols
                           `(("foreground"
                              . ,(frame-parameter nil 'foreground-color))))))
!         finally do (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)))
--- 1354,1361 ----
                           :color-symbols
                           `(("foreground"
                              . ,(frame-parameter nil 'foreground-color))))))
!         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,1750 ****
--- 1746,1753 ----
    (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)