abbrev file needs to be multilingual

[Dave Love <d.love@dl.ac.uk>]

The abbrevs file needs to be encoded as emacs-mule so that you can use
multilingual abbrevs.   Here's a solution.

2003-01-21  Dave Love  <fx@gnu.org>

	* abbrev.el (write-abbrev-file): Simplify and put a coding cookie
	in the file.

*** abbrev.el.~1.32.~	Mon Sep 30 23:36:54 2002
--- abbrev.el	Thu Jan 16 12:01:26 2003
***************
*** 212,226 ****
  		    abbrev-file-name)))
    (or (and file (> (length file) 0))
        (setq file abbrev-file-name))
!   (save-excursion
!    (set-buffer (get-buffer-create " write-abbrev-file"))
!    (erase-buffer)
!    (let ((tables abbrev-table-name-list))
!      (while tables
!        (insert-abbrev-table-description (car tables) nil)
!        (setq tables (cdr tables))))
!    (write-region (point-min) (point-max) file)
!    (erase-buffer)))
  \f
  (defun add-mode-abbrev (arg)
    "Define mode-specific abbrev for last word(s) before point.
--- 212,222 ----
  		    abbrev-file-name)))
    (or (and file (> (length file) 0))
        (setq file abbrev-file-name))
!   (let ((coding-system-for-write 'emacs-mule))
!     (with-temp-file file
!       (insert ";;-*-coding: emacs-mule;-*-\n")
!       (dolist (table abbrev-table-name-list)
! 	(insert-abbrev-table-description table nil)))))
  \f
  (defun add-mode-abbrev (arg)
    "Define mode-specific abbrev for last word(s) before point.