Re: write-abbrev-file

[Richard Stallman]

    M-x `edit-abbrevs', narrowing the buffer, calling `edit-abbrevs-redefine'.

    Then `write-abbrev-file' kills all abbrevs
    except the visible one in the narrowed buffer.

It does not fail for me.

It also seems not to make sense.
write-abbrev-file does nothing that could alter the
existing abbrev definitions.  All it does it construct
text in a buffer and write that to a file.

    ***************
    *** 227,235 ****
                        abbrev-file-name)))
        (or (and file (> (length file) 0))
            (setq file abbrev-file-name))
    -   ;; 20060505 address@hidden
    -   (edit-abbrevs-redefine)
    -   ;; end of inserted section
        (let ((coding-system-for-write 'emacs-mule))
          (with-temp-file file
            (insert ";;-*-coding: emacs-mule;-*-\n")
    --- 227,232 ----

That cannot be right, because it assumes that the current buffer
is a list of abbrevs.  write-abbrev-file is not supposed to depend
on the current buffer at all.