# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1033156318 0
# Node ID 07509eeb7745659944819c4a10dc6292f17728af
# Parent  63e32e0ab1ef57fd51e45578088dc78db11adf67
(write-abbrev-file): Don't hardcode point-min == 1.

diff -r 63e32e0ab1ef -r 07509eeb7745 lisp/abbrev.el
--- a/lisp/abbrev.el	Fri Sep 27 19:50:12 2002 +0000
+++ b/lisp/abbrev.el	Fri Sep 27 19:51:58 2002 +0000
@@ -219,7 +219,7 @@
      (while tables
        (insert-abbrev-table-description (car tables) nil)
        (setq tables (cdr tables))))
-   (write-region 1 (point-max) file)
+   (write-region (point-min) (point-max) file)
    (erase-buffer)))
 
 (defun add-mode-abbrev (arg)