[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/strokes.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/strokes.el [lexbind] |
Date: |
Mon, 25 Oct 2004 00:42:15 -0400 |
Index: emacs/lisp/strokes.el
diff -c emacs/lisp/strokes.el:1.10.2.3 emacs/lisp/strokes.el:1.10.2.4
*** emacs/lisp/strokes.el:1.10.2.3 Thu Apr 1 04:29:02 2004
--- emacs/lisp/strokes.el Mon Oct 25 04:22:23 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)
- [Emacs-diffs] Changes to emacs/lisp/strokes.el [lexbind],
Miles Bader <=